आउटलुक में खोज परिणाम के फ़ोल्डर को जल्दी से कैसे खोलें और खोलें?

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

पर जाएँ और VBA के साथ खोज परिणाम का फ़ोल्डर खोलें

पर जाएं और राइट-क्लिक से खोज परिणाम का फ़ोल्डर खोलें

पर जाएँ और VBA के साथ खोज परिणाम का फ़ोल्डर खोलें

आउटलुक में, वीबीए कोड को छोड़कर कोई भी अंतर्निहित फ़ंक्शन इस कार्य को संभाल नहीं सकता है।

वीबीए कोड का उपयोग करने से पहले, आपको खोजे गए परिणामों में फ़ोल्डर का नाम प्रदर्शित करना होगा।

1। क्लिक करें देखें > कॉलम जोड़ें.

2। में कॉलम दिखाएँ संवाद और में से उपलब्ध कॉलम चुनें ड्रॉप-डाउन सूची, का चयन करें सभी मेल फ़ील्ड, उसके बाद चुनो फ़ोल्डर में में उपलब्ध कॉलम सूची।

3। क्लिक करें जोड़ने के लिए फ़ोल्डर्स में सेवा मेरे इन कॉलमों को इसी क्रम में दिखाएँ सूची, फिर क्लिक करें बढ़ाना स्थानांतरित करने के लिए बटन फ़ोल्डर में चोटी।

4। क्लिक करें OK संवाद बंद करने के लिए. अब जब आप ईमेल खोज रहे हैं, तो फ़ोल्डर का नाम खोज परिणामों में प्रदर्शित होगा।

5. अब दबाएं ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल एक नया मॉड्यूल बनाने के लिए.

6. नीचे दिए गए कोड को कॉपी करके मॉड्यूल में पेस्ट करें।

वीबीए: किसी नाम से फ़ोल्डर पर जाएं

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7। दबाएँ F5 कोड को सक्षम करने के लिए कुंजी, अब उस फ़ोल्डर का नाम दर्ज करें जिस पर आप संवाद में जाना चाहते हैं।

8। क्लिक करें OK, आपको फ़ोल्डर का स्थान याद दिलाने के लिए एक संवाद पॉप आउट होता है, क्लिक करें हाँ सीधे फ़ोल्डर में जाने के लिए, या क्लिक करें नहीं रद्द करने के लिए।

पर जाएं और राइट-क्लिक से खोज परिणाम का फ़ोल्डर खोलें

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

नि:शुल्क इंस्टॉल आउटलुक के लिए कुटूल, और फिर नीचे दिए गए चरणों के अनुसार कार्य करें:

सर्च करने के बाद आप जिस रिजल्ट का फोल्डर खोलना चाहते हैं उस पर राइट क्लिक करें, सेलेक्ट करें फोल्डर खोलो संदर्भ मेनू से

---

सर्वोत्तम कार्यालय उत्पादकता उपकरण

आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ

🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...

📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध)  /  ईमेल भेजने का शेड्यूल करें  /  ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी  /  स्वतः अग्रेषित (उन्नत नियम)   /  स्वतः ग्रीटिंग जोड़ें   /  बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...

📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें  /  विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें  /  डुप्लिकेट ईमेल हटाएँ  /  उन्नत खोज  /  फ़ोल्डरों को समेकित करें ...

📁 अनुलग्नक प्रो: बैच सहेजें  /  बैच अलग करना  /  बैच संपीड़न  /  ऑटो सहेजें   /  ऑटो डिटैच  /  ऑटो कंप्रेस ...

🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी   /  टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ  /  आउटलुक को बंद करने के बजाय छोटा करें ...

???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें  /   फ़िशिंग-रोधी ईमेल  /  🕘प्रेषक का समय क्षेत्र दिखाएं ...

👩🏼‍🤝‍👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें  /  किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें  /  जन्मदिन अनुस्मारक हटाएँ ...

के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।

विस्तार में पढ़ें       मुफ्त डाउनलोड      खरीद फरोख्त