आउटलुक में अज्ञात प्रेषकों से ईमेल को एक विशिष्ट फ़ोल्डर में कैसे ले जाएं?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-05-22

आपके दैनिक कार्य में, आपको अज्ञात प्रेषकों से कई ईमेल प्राप्त हो सकते हैं जो आपके संपर्क फ़ोल्डर में सहेजे नहीं गए हैं। ये कुछ जंक या दुर्भावनापूर्ण ईमेल हो सकते हैं, इस स्थिति में, आप इन ईमेल को इनबॉक्स के बजाय एक विशिष्ट फ़ोल्डर में स्वचालित रूप से स्थानांतरित करना चाहते हैं। आप आउटलुक में इस कार्य को कैसे हल कर सकते हैं?

नियम बनाकर अज्ञात प्रेषकों के ईमेल को एक विशिष्ट फ़ोल्डर में ले जाएं

वीबीए कोड लागू करके अज्ञात प्रेषकों के ईमेल को एक विशिष्ट फ़ोल्डर में ले जाएं

नियम बनाकर अज्ञात प्रेषकों के ईमेल को एक विशिष्ट फ़ोल्डर में ले जाएं

दरअसल, आप अज्ञात प्रेषकों के ईमेल को स्वचालित रूप से एक विशिष्ट फ़ोल्डर में ले जाने के लिए एक नियम बना सकते हैं, कृपया निम्नानुसार करें:

1. इनबॉक्स फ़ोल्डर के अंतर्गत एक नया फ़ोल्डर बनाएं जिसमें अज्ञात प्रेषकों से आए ईमेल को निम्न स्क्रीनशॉट में दिखाए अनुसार रखा जाएगा:

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 1

2। तब दबायें होम > नियम > नियम और अलर्ट प्रबंधित करें, स्क्रीनशॉट देखें:

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 2

3. में नियम और चेतावनियाँ संवाद बॉक्स पर क्लिक करें नए नियम नीचे ई-मेल नियम टैब, स्क्रीनशॉट देखें:

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 3

4. और क्लिक करें OK बटन जाने के लिए नियम जादूगरक्लिक करें, मुझे प्राप्त संदेश पर नियम लागू करें से विकल्प एक रिक्त नियम से प्रारंभ करें अनुभाग बॉक्स, स्क्रीनशॉट देखें:

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 4

5। तब दबायें अगला बटन, इस चरण में, कृपया कोई विकल्प न चुनें, और क्लिक करें अगला सीधे बटन दबाएं, एक चेतावनी बॉक्स खुल जाएगा, कृपया क्लिक करें हाँ बटन, स्क्रीनशॉट देखें:

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 5

6. और अगले डायलॉग बॉक्स में चेक करें इसे निर्दिष्ट फ़ोल्डर में ले जाएँ में विकल्प चरण 1: कार्रवाई का चयन करें सूची बॉक्स, और फिर लिंक किए गए टेक्स्ट पर क्लिक करें विनिर्दिष्ट, और खुले में नियम और चेतावनियाँ संवाद, वह फ़ोल्डर निर्दिष्ट करें जहाँ आप ईमेल ले जाना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 6

7। क्लिक करें OK बटन, और क्लिक करते जाएँ अगला बटन, इसमें क्या कोई अपवाद है संवाद, जांचें सिवाय इसके कि प्रेषक निर्दिष्ट पता पुस्तिका में है में विकल्प चरण 1: अपवाद चुनें सूची बॉक्स, और फिर लिंक किए गए टेक्स्ट पर क्लिक करें विनिर्दिष्ट, और एक पता सूची जोड़ें बॉक्स पॉप आउट हो जाएगा, एक संपर्क फ़ोल्डर चुनें जिसमें वे संपर्क हों जिन्हें आप छोड़ना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 7

8। तब दबायें बटन क्लिक करें, और उसके बाद क्लिक करें अगला अंतिम विज़ार्ड संवाद पर जाने के लिए, एक नियम का नाम टाइप करें चरण 1: इस नियम के लिए एक नाम निर्दिष्ट करें टेक्स्ट बॉक्स, और जांचें इस नियम को चालू करें से विकल्प चरण 2: सेटअप नियम विकल्प अनुभाग. स्क्रीनशॉट देखें:

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 8

9। और फिर क्लिक करें अंत और Ok संवाद बंद करने के लिए बटन। अब से, जब अज्ञात प्रेषकों से ईमेल आएंगे, तो उन्हें स्वचालित रूप से विशिष्ट फ़ोल्डर में ले जाया जाएगा।

वीबीए कोड लागू करके अज्ञात प्रेषकों के ईमेल को एक विशिष्ट फ़ोल्डर में ले जाएं

हो सकता है कि उपरोक्त तरीका आपके लिए परेशानी भरा हो, यहां आप जितनी जल्दी हो सके इससे निपटने के लिए एक कोड लागू कर सकते हैं।

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह आउटलुक सत्र से प्रोजेक्ट1(VbaProject.OTM) मोड खोलने के लिए फलक, और फिर निम्न कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें।

वीबीए कोड: अज्ञात प्रेषकों से स्वचालित रूप से ईमेल को एक विशिष्ट फ़ोल्डर में ले जाना:

Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
    Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
    xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
    Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
    For I = 3 To 1 Step -1
        xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
        Set xContactItem = xContactItems.Find(xFilter)
        If TypeName(xContactItem) <> "Nothing" Then Exit For
    Next
Next
If xContactItem Is Nothing Then
    Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
    xFound = False
    For Each xSubFolder In xInboxFlds
        If xSubFolder.Name = "Unknown" Then
            xFound = True
            Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
            Exit For
        End If
    Next
    If xFound = False Then
        Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
    End If
    item.Move xTargetFolder
End If
End Sub

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 9

3. फिर कोड को सहेजें और कोड विंडो बंद करें, और कोड को प्रभावी बनाने के लिए आउटलुक को पुनरारंभ करें। अब से, जब कुछ अज्ञात प्रेषकों से ईमेल आएंगे, तो उन्हें स्वचालित रूप से अज्ञात फ़ोल्डर में ले जाया जाएगा, स्क्रीनशॉट देखें:

दस्तावेज़ अज्ञात से ईमेल ले जाएँ 10