आउटलुक में निश्चित श्रेणी निर्दिष्ट करने के बाद ईमेल को निर्दिष्ट फ़ोल्डर में कैसे ले जाएं?
मान लीजिए कि आपने अपने आउटलुक में एक प्राप्त ईमेल को एक श्रेणी सौंपी है, श्रेणी निर्दिष्ट करने के बाद, आप चाहते हैं कि यह ईमेल श्रेणी नाम के साथ नामित एक निश्चित ईमेल फ़ोल्डर में स्वचालित रूप से स्थानांतरित हो जाए। उदाहरण के लिए, "निजी" श्रेणी के साथ निर्दिष्ट एक ईमेल आपके आउटलुक में "निजी" नाम के फ़ोल्डर में ले जाया जाएगा। उसकी प्राप्ति कैसे हो? इस आलेख में दी गई विधि समस्या को आसानी से हल करने में आपकी सहायता कर सकती है।
VBA के साथ निश्चित श्रेणी निर्दिष्ट करने के बाद ईमेल को निर्दिष्ट फ़ोल्डर में ले जाएँ
VBA के साथ निश्चित श्रेणी निर्दिष्ट करने के बाद ईमेल को निर्दिष्ट फ़ोल्डर में ले जाएँ
नीचे दिया गया वीबीए कोड आउटलुक में कुछ श्रेणी निर्दिष्ट करने के बाद ईमेल को स्वचालित रूप से निर्दिष्ट फ़ोल्डर में ले जाने में मदद कर सकता है। कृपया निम्नानुसार करें.
1। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो खोलने के लिए डबल क्लिक करें यह आउटलुक सत्र (कोड) खिड़की। फिर नीचे दिए गए VBA कोड को विंडो में कॉपी करें। स्क्रीनशॉट देखें:
वीबीए कोड: निश्चित श्रेणी निर्दिष्ट करने के बाद ईमेल को निर्दिष्ट फ़ोल्डर में ले जाएं
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. कोड सहेजें और आउटलुक को पुनरारंभ करें।
4. अब से, प्राप्त ईमेल को श्रेणी निर्दिष्ट करते समय, श्रेणी नाम वाला एक फ़ोल्डर स्वचालित रूप से ईमेल के इनबॉक्स फ़ोल्डर के अंतर्गत बनाया जाएगा। स्क्रीनशॉट देखें:
नोट: समान श्रेणी के साथ निर्दिष्ट सभी ईमेल स्वचालित रूप से एक ही फ़ोल्डर में ले जाये जायेंगे। लेकिन अगर किसी ईमेल को एक नई श्रेणी सौंपी गई है, तो एक नया फ़ोल्डर स्वचालित रूप से बनाया जाएगा।
संबंधित आलेख:
- आउटलुक में आउटगोइंग ईमेल को श्रेणी कैसे निर्दिष्ट करें?
- आउटलुक में ईमेल का उत्तर देते या अग्रेषित करते समय मूल श्रेणियां कैसे रखें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!