आउटलुक में किसी विशिष्ट व्यक्ति से आने वाले सभी ईमेल को स्वचालित रूप से कैसे खोलें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2019-01-10

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

किसी विशिष्ट व्यक्ति द्वारा आने वाले सभी ईमेल को VBA कोड के साथ स्वचालित रूप से खोलें

किसी विशिष्ट व्यक्ति द्वारा आने वाले सभी ईमेल को VBA कोड के साथ स्वचालित रूप से खोलें

किसी विशिष्ट व्यक्ति के ईमेल को स्वचालित रूप से खोलने के लिए, निम्नलिखित VBA कोड आपकी सहायता कर सकता है, कृपया ऐसा करें:

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

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

वीबीए कोड: किसी विशिष्ट व्यक्ति के सभी ईमेल स्वतः खोलें:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

दस्तावेज़ प्रेषक द्वारा ईमेल खोलें 1

नोट: उपरोक्त कोड में, आप प्रेषकों के पते को अपने पते में बदल सकते हैं।

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

दस्तावेज़ प्रेषक द्वारा ईमेल खोलें 2