Skip to main content

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

Author: Siluvia Last Modified: 2025-05-30

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

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


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

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

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

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم انسخ والصق كود 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. في مربع الحوار تحديد مجلد الذي سيظهر، حدد المجلد الذي تريد حساب المجلدات الفرعية له، ثم انقر فوق زر موافق. شاهد لقطة الشاشة:

steps on counting number of subfolders under certain folder in Outlook using vba

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

steps on counting number of subfolders under certain folder in Outlook using vba

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


أفضل أدوات الإنتاجية لمجموعة Office

خبر عاجل: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!

🤖 Kutools AI : يستخدم تقنية الذكاء الاصطناعي المتقدمة لإدارة البريد الإلكتروني بسهولة، بما في ذلك الرد، والتلخيص، والتحسين، والتوسيع، والترجمة، وكتابة الرسائل.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية حسب القواعد عند الإرسال / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوعات وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات ...

📁 المرفقات الاحترافية: حفظ دفعي / فصل دفعي / ضغط دفعي / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تنبيهك عند وصول رسائل هامة / تصغير Outlook بدلاً من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / رسائل البريد الإلكتروني المضادة للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة جهات اتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

kutools for outlook features1 kutools for outlook features2