आउटलुक में निश्चित फ़ोल्डर के अंतर्गत सबफ़ोल्डर्स की संख्या कैसे गिनें?
मान लीजिए कि आपने रूट फ़ोल्डर के अंतर्गत कुछ फ़ोल्डर बनाए हैं। अब आप जानना चाहते हैं कि रूट फ़ोल्डर के अंतर्गत कितने सबफ़ोल्डर हैं, तो आप यह कैसे कर सकते हैं? बस रूट फ़ोल्डर का विस्तार करें और सभी सबफ़ोल्डर्स को एक-एक करके मैन्युअल रूप से गिनें? यह लेख आपके लिए इसे प्राप्त करने का एक आसान तरीका पेश करेगा।
VBA कोड के साथ सबफ़ोल्डर्स की संख्या गिनें
VBA कोड के साथ सबफ़ोल्डर्स की संख्या गिनें
निम्नलिखित VBA कोड आपको आउटलुक में एक निश्चित रूट फ़ोल्डर के अंतर्गत सबफ़ोल्डर्स की संख्या गिनने में मदद कर सकता है। कृपया निम्नानुसार करें.
1। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर कोड विंडो में वीबीए कोड के नीचे कॉपी और पेस्ट करें।
वीबीए कोड: आउटलुक में कुछ फ़ोल्डर के अंतर्गत सबफ़ोल्डर्स की संख्या की गणना करें
Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
Exit Sub
End If
For Each xFolder In xRootFolder.Folders
If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
xFolderCount = xFolderCount + 1
Call ProcessFolders(xFolder, xFolderCount)
End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
Call ProcessFolders(xSubFolder, Num)
Next
End Sub
3। दबाएं F5 कोड चलाने की कुंजी.
4. उद्घाटन में फ़ोल्डर का चयन करें संवाद बॉक्स में, एक फ़ोल्डर का चयन करें, आप उसके उपफ़ोल्डरों की गिनती करेंगे, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
5. फिर ए आउटलुक के लिए कुटूल संवाद बॉक्स आपको यह बताने के लिए पॉप अप होता है कि निर्दिष्ट फ़ोल्डर में कितने सबफ़ोल्डर मौजूद हैं। स्क्रीनशॉट देखें:
संबंधित आलेख:
- आउटलुक में निर्दिष्ट ईमेल खाते या सभी मेलबॉक्स के अंतर्गत फ़ोल्डरों की संख्या की गणना कैसे करें?
- आउटलुक में सभी ईमेल को एक साथ प्रदर्शित करने के लिए एकाधिक खातों के सभी इनबॉक्स को कैसे एकीकृत करें?
- आउटलुक में फ़ोल्डर चुनने के लिए "फ़ोल्डर के लिए ब्राउज़ करें" संवाद कैसे प्रदर्शित करें?
- आउटलुक में गलती से चले गए गुम फ़ोल्डर को कैसे ढूंढें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।