आउटलुक में सभी उत्तर न दिए गए ईमेल के लिए एक खोज फ़ोल्डर कैसे बनाएं?

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

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

वीबीए कोड के साथ आउटलुक में सभी गैर-उत्तरित ईमेल के लिए एक खोज फ़ोल्डर बनाएं

वीबीए कोड के साथ आउटलुक में सभी गैर-उत्तरित ईमेल के लिए एक खोज फ़ोल्डर बनाएं

निम्नलिखित वीबीए कोड आपको एक खोज फ़ोल्डर बनाने में मदद कर सकता है जहां सभी गैर-उत्तरित ईमेल रखे जाएंगे, कृपया ऐसा करें:

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

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: उत्तर न दिए गए ईमेल के लिए एक खोज फ़ोल्डर बनाएं:

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim xSearch As Outlook.Search
    Dim xScope As String, xFilter As String
    Dim xRepliedProperty As String
    Dim xFolder As Folder, xSubFolder As Folder
    On Error Resume Next
    xScope = ""
    For Each xFolder In Outlook.Application.Session.Folders
        Set xSubFolder = xFolder.Folders("Inbox")
        xScope = "'" + xSubFolder.FolderPath + "'"
        xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
        xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
        Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
        xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
        Set xSearch = Nothing
        Set xSubFolder = Nothing
    Next
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

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

4। क्लिक करें OK बटन, अब, आपको एक मिलेगा ईमेल का उत्तर नहीं दिया गया के तहत फ़ोल्डर फ़ोल्डर खोजें आपके आउटलुक में प्रत्येक खाते के लिए, और सभी गैर-उत्तरित ईमेल यहां प्रदर्शित किए गए हैं, स्क्रीनशॉट देखें: