कुकीज़ हमें हमारी सेवाएं देने में मदद। हमारी सेवाओं का उपयोग करके, आप कुकी के हमारे उपयोग करने के लिए सहमत हैं।
युक्ति: अन्य भाषाओं में Google-Translated आप यात्रा कर सकते हैं English इस लिंक का संस्करण
लॉग इन करें
x
or
x
x
रजिस्टर
x

or

Outlook से सभी सबफ़ोल्डर कैसे खोलें?

यदि आप अपने Outlook फ़ोल्डरों के तहत एकाधिक सबफ़ोल्डर बनाते हैं, तो आप इन सभी सबफ़ोल्डर को तुरंत कैसे खोल या विस्तारित कर सकते हैं? यह आलेख, मैं इस नौकरी को हल करने के लिए आपके लिए एक उपयोगी वीबीए कोड पेश करूंगा।

VBA कोड के साथ Outlook से सभी सबफ़ोल्डर खोलें या विस्तृत करें


VBA कोड के साथ Outlook से सभी सबफ़ोल्डर खोलें या विस्तृत करें

सभी Outlook खातों से सभी सबफ़ोल्डर का विस्तार करने के लिए कृपया निम्नलिखित वीबीए कोड लागू करें:

1। नीचे पकड़ो ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए Microsoft Visual Basic खिड़की.

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

वीबीए कोड: Outlook से सभी सबफ़ोल्डर खोलें:

उप ExpandAllMailFolders () डिम xCurrentFolder फ़ोल्डर मंद के रूप में xAllFolders फ़ोल्डर के रूप में x xFolder फ़ोल्डर के रूप में फ़ोल्डर के रूप में त्रुटि फिर से शुरू करें xCurrentFolder = Application.ActiveExplorer.CurrentFolder xAllFolders = Application.Session.Folders प्रत्येक xFolder के लिए xAllFolders कॉल प्रक्रिया फ़ोल्डर्स (xFolder) अगला सेट एप्लिकेशन सेट करें। ActiveExplorer.CurrentFolder = xCurrentFolder End उप उप प्रक्रिया फ़ोल्डर्स (ByVal CurFolder फ़ोल्डर के रूप में) Dim xSubfolder त्रुटि पर फ़ोल्डर के रूप में अगली बार फिर से शुरू करें यदि CurFolder.DefaultItemType <> olMailItem फिर उप सेट अनुप्रयोग से बाहर निकलें .ActiveExplorer.CurrentFolder = CurFolder DoEvents यदि CurFolder.Folders.Count = 0 फिर Curfolder में प्रत्येक xSubfolder के लिए उप से बाहर निकलें। फ़ोल्डर्स कॉल प्रक्रिया फ़ोल्डर्स (xSubfolder) अगला अंत उप

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

दस्तावेज़ एक्सफैक्स XfX का विस्तार करें



आउटलुक के लिए कुतुल्स

आउटलुक 100, 2010, 2013, 2016 और 2019 के लिए 365 से अधिक उन्नत कार्य

बैनर 201812 के लिए आउटलुक के लिए स्क्रीन शॉट कुटूल

अधिक सुविधाएँ | मुफ्त डाउनलोड | सैकड़ों कार्यों के लिए केवल $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.