युक्ति: अन्य भाषाओं में Google-Translated आप यात्रा कर सकते हैं English इस लिंक का संस्करण
लॉग इन करें
x
or
x
x
रजिस्टर
x

or

Outlook को प्रारंभ करते समय स्वचालित रूप से सभी फ़ोल्डर्स कैसे विस्तृत करें?

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

VBA के साथ Outlook को प्रारंभ करते समय स्वचालित रूप से सभी फ़ोल्डर का विस्तार करें

आउटलुक के लिए कुतुल्स: 100 + नई उन्नत उपकरण आउटलुक के लिए
कार्यालय टैब: कार्यालय में टैब्ड संपादन और ब्राउजिंग सक्षम करें, बस क्रोम की तरह, फ़ायरफ़ॉक्स, IE 8 / 9 / 10।
क्लासिक मेनू: पुराने मेनू और टूलबार वापस लाओ Office 2007, 2010, 2013, 2016 और 2019 तक।

तीर नीला सही बुलबुलाVBA के साथ Outlook को प्रारंभ करते समय स्वचालित रूप से सभी फ़ोल्डर का विस्तार करें

जब आप Outlook शुरू करते हैं तो यह विधि नेविगेशन फलक पर स्वचालित रूप से सभी फ़ोल्डरों को विस्तृत करने के लिए एक VBA पेश करेगा। कृपया इस VBA को निम्नानुसार लागू करें:

1। दबाएँ ऑल्ट + F11 चाबियाँ एक साथ अनुप्रयोग विंडो के लिए माइक्रोसॉफ्ट विजुअल बेसिक खोलने के लिए

2। इसका विस्तार करें परियोजना 1 तथा Microsoft Outlook ऑब्जेक्ट्स परियोजना फलक में, खोलने के लिए डबल क्लिक करें ThisOutlookSession खिड़की, और उसके बाद VBA कोड नीचे पेस्ट करें।

VBA: आउटलुक में सभी फ़ोल्डर्स को स्वचालित रूप से विस्तारित करें

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3। कोड को सहेजें और अनुप्रयोग विंडो के लिए Microsoft Visual Basic को बंद करें।

अब से, Outlook को पुनरारंभ करते समय, सभी फ़ोल्डर्स स्वचालित रूप से Outlook में विस्तृत हो जाएंगे।नोट्स: आउटलुक को पुन: प्रारंभ करते समय यह VBA ढह गई खोज फ़ोल्डरों को नहीं खोल सकता है


तीर नीला सही बुलबुलासंबंधित आलेख



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

आउटलुक 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.
  • To post as a guest, your comment is unpublished.
    Selvi · 8 months ago
    Thank you so much.. It solved my problem. :)