كيفية حساب عدد المجلدات الفرعية تحت مجلد معين في Outlook؟
لنفترض أنك قمت بإنشاء بعض المجلدات تحت مجلد رئيسي. الآن تريد معرفة عدد المجلدات الفرعية الموجودة تحت المجلد الرئيسي، فكيف يمكنك القيام بذلك؟ هل تقوم بتوسيع المجلد الرئيسي وحساب جميع المجلدات الفرعية يدويًا واحدة تلو الأخرى؟ ستقترح هذه المقالة طريقة سهلة لتحقيق ذلك.
حساب عدد المجلدات الفرعية باستخدام كود 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. في مربع الحوار تحديد مجلد الذي سيظهر، حدد المجلد الذي تريد حساب المجلدات الفرعية له، ثم انقر فوق زر موافق. شاهد لقطة الشاشة:

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

مقالات ذات صلة:
- كيفية حساب عدد المجلدات تحت حساب بريد إلكتروني محدد أو جميع صناديق البريد في Outlook؟
- كيفية توحيد جميع صناديق الوارد الخاصة بحسابات متعددة لعرض جميع رسائل البريد الإلكتروني معًا في Outlook؟
- كيفية عرض مربع حوار 'تصفح من أجل المجلد' لاختيار مجلد في Outlook؟
- كيفية العثور على مجلد مفقود تم نقله عن طريق الخطأ في Outlook؟
أفضل أدوات إنتاجية أوفيس
أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متاح لـ POP و IMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية عن طريق القواعد عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل منفصلة...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوع وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...
📁 المرفقات المتقدمة: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...
👍 ميزات بضغطة واحدة: الرد على الجميع مع المرفقات / الحماية من التصيد الاحتيالي / 🕘 عرض المنطقة الزمنية للمرسل...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات الاتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...
استخدم أدوات Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!
افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

