كيف يمكن حساب عدد المجلدات الفرعية الموجودة داخل مجلد معيّن في Outlook؟

لنفترض أنك أنشأت عدة مجلدات داخل مجلد جذري، وترغب الآن في معرفة عدد المجلدات الفرعية الموجودة تحته. هل ستقوم بتوسيع المجلد الجذري وحساب المجلدات الفرعية يدويًّا واحدة تلو الأخرى؟ تقدّم لك هذه المقالة طريقة سهلة وفعّالة لتحقيق ذلك.

حساب عدد المجلدات الفرعية باستخدام كود VBA

---

حساب عدد المجلدات الفرعية باستخدام كود VBA

يمكنك الاستفادة من كود VBA التالي لحساب عدد المجلدات الفرعية الموجودة داخل مجلد جذري معيّن في Outlook. يُرجى اتباع الخطوات التالية:

1. اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر علىInsert > Module. ثم انسخ ولصق كود VBA أدناه في نافذة الكود.

كود VBA: حساب عدد المجلدات الفرعية الموجودة ضمن مجلد معين في Outlook

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. في مربع حوارSelect Folder الذي يظهر، اختر المجلد الذي تريد حساب مجلداته الفرعية، ثم انقر على زرOK. راجع لقطة الشاشة:

5. بعد ذلك، تظهر نافذة حوارKutools لـ Outlookلإعلامك بعدد المجلدات الفرعية الموجودة في المجلد المحدد. راجع لقطة الشاشة:

---

مقالات ذات صلة:

• كيف يمكن حساب عدد المجلدات الموجودة ضمن حساب بريد إلكتروني معيّن أو جميع صناديق البريد في Outlook؟
• كيف يمكن توحيد صناديق الوارد لعدة حسابات لعرض جميع رسائل البريد معًا في Outlook؟
• كيف يمكن عرض مربع حوار «استعراض المجلدات» لاختيار مجلد في Outlook؟
• كيف يمكنني العثور على مجلد تم نقله عن طريق الخطأ في Outlook؟