आउटलुक शुरू करते समय सभी फ़ोल्डरों का स्वचालित रूप से विस्तार कैसे करें?
आमतौर पर, जब आप आउटलुक के नेविगेशन फलक में किसी फ़ोल्डर को विस्तारित या संक्षिप्त करते हैं और बाद में प्रोग्राम को बंद कर देते हैं, तो आउटलुक को फिर से खोलने पर फ़ोल्डर अपनी विस्तारित या संक्षिप्त स्थिति को बरकरार रखता है। हालाँकि, यदि आप चाहते हैं कि हर बार आउटलुक शुरू करने पर सभी फ़ोल्डर स्वचालित रूप से विस्तारित हो जाएं तो क्या होगा? यह आलेख इसे प्राप्त करने के लिए एक VBA समाधान प्रदान करता है।
वीबीए का उपयोग करके आउटलुक शुरू करते समय सभी फ़ोल्डरों का स्वचालित रूप से विस्तार करें
- के साथ ईमेल स्वचालित करें ऑटो सीसी/बीसीसी, ऑटो फ़ॉरवर्ड नियमों के अनुसार; भेजना स्व उत्तर (कार्यालय से बाहर) एक्सचेंज सर्वर की आवश्यकता के बिना...
- जैसे अनुस्मारक प्राप्त करें बीसीसी चेतावनी जब आप बीसीसी सूची में हों तब सभी को उत्तर देते समय, और अनुलग्नक गुम होने पर याद दिलाएँ भूले हुए अनुलग्नकों के लिए...
- के साथ ईमेल दक्षता में सुधार करें उत्तर (सभी) संलग्नक के साथ, हस्ताक्षर या विषय में स्वतः अभिवादन या दिनांक और समय जोड़ें, एकाधिक ईमेल का उत्तर दें...
- के साथ ईमेलिंग को सुव्यवस्थित करें ईमेल याद करें, अनुलग्नक उपकरण (सभी को संपीड़ित करें, स्वचालित रूप से सभी को सहेजें...), डुप्लिकेट निकालें, तथा त्वरित रिपोर्ट...
वीबीए का उपयोग करके आउटलुक शुरू करते समय सभी फ़ोल्डरों का स्वचालित रूप से विस्तार करें
यह मार्गदर्शिका प्रदर्शित करेगी कि हर बार जब आप आउटलुक लॉन्च करते हैं तो नेविगेशन फलक में सभी फ़ोल्डरों को स्वचालित रूप से विस्तारित करने के लिए वीबीए स्क्रिप्ट का उपयोग कैसे करें। VBA स्क्रिप्ट को लागू करने के लिए इन चरणों का पालन करें:
- दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
- इसका विस्तार करें परियोजना 1 और माइक्रोसॉफ्ट आउटलुक ऑब्जेक्ट्स में परियोजना फलक, खोलने के लिए डबल क्लिक करें यह आउटलुक सत्र विंडो, और फिर नीचे दिए गए VBA कोड को उसमें पेस्ट करें।
वीबीए: आउटलुक में सभी फ़ोल्डरों का स्वचालित रूप से विस्तार करें
Public WithEvents GEx As Explorer Public GFlag As Boolean Private Sub Application_Startup() 'Update by ExtendOffice 2023/12/08 Set GEx = Application.ActiveExplorer GFlag = False End Sub Private Sub GEx_SelectionChange() If GFlag = False Then ExpandAllFolders End If GFlag = True End Sub Public Sub ExpandAllFolders() Dim xNameSpace As Outlook.NameSpace Dim xFlds As Outlook.Folders Dim xCurrFld As Outlook.MAPIFolder Dim xFld As Outlook.MAPIFolder Dim xExpandDefaultStoreOnly As Boolean Dim xModule As NavigationModule On Error Resume Next xExpandDefaultStoreOnly = False Set xNameSpace = Application.Session Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule Set xCurrFld = Application.ActiveExplorer.CurrentFolder If xExpandDefaultStoreOnly = True Then Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox) Set xFld = xFld.Parent Set xFlds = xFld.Folders LoopFolders xFlds, True Else LoopFolders xNameSpace.Folders, True LoopFolders xNameSpace.Folders, False End If DoEvents Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule Set Application.ActiveExplorer.CurrentFolder = xCurrFld Set xNameSpace = Nothing Set xModule = Nothing Set xCurrFld = Nothing End Sub Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean) Dim xFld As Outlook.MAPIFolder On Error Resume Next For Each xFld In Flds Select Case All Case True If xFld.DefaultItemType = olMailItem Then Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End If Case False Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End Select Next End Sub
- कोड सहेजें और बंद करें अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब से, आउटलुक को पुनरारंभ करने पर, सभी फ़ोल्डर्स आउटलुक में स्वचालित रूप से विस्तारित हो जाएंगे।
टिप्पणियाँ:
- आउटलुक को पुनरारंभ करने पर यह वीबीए संक्षिप्त खोज फ़ोल्डरों को नहीं खोल सकता है।
- यह सुनिश्चित करने के लिए कि VBA स्क्रिप्ट ठीक से काम करे, आउटलुक में अपनी मैक्रो सेटिंग्स को समायोजित करना आवश्यक है। को कृपया जाएं पट्टिका > ऑप्शंस > विश्वास केंद्र > विश्वास केंद्र सेटिंग्स > मैक्रो सेटिंग्स, और चुनें सभी मैक्रोज़ सक्षम करें विकल्प। यह सेटिंग VBA स्क्रिप्ट को बिना किसी प्रतिबंध के चलने की अनुमति देती है।
संबंधित आलेख
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।