كيفية حساب عدد المجلدات تحت حساب بريد إلكتروني محدد أو جميع صناديق البريد في Outlook؟

تتحدث هذه المقالة عن حساب عدد المجلدات تحت حساب بريد إلكتروني محدد أو جميع صناديق البريد في Outlook.

حساب عدد المجلدات تحت حساب بريد إلكتروني محدد أو جميع صناديق البريد باستخدام كود VBA

"حساب عدد المجلدات تحت حساب بريد إلكتروني محدد أو جميع صناديق البريد باستخدام كود VBA"

يمكنك حساب عدد المجلدات تحت حساب بريد إلكتروني محدد أو جميع صناديق البريد باستخدام الكود التالي لـ VBA. يرجى القيام بما يلي.

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

2. في نافذة "Microsoft Visual Basic for Applications"، انقر فوق "إدراج" > "نموذج المستخدم". شاهد لقطة الشاشة:

3. ثم قم بإدراج زرين خيارين وزرين أمر إلى "UserForm1"، وقم بتغيير النص المعروض للأزرار كما هو موضح في لقطة الشاشة أدناه.

4. قم بتغيير اسم الزر الأول للخيار إلى “opbCurAccount” وقم بتغيير خاصية "value" إلى "True". شاهد لقطة الشاشة:

5. استمر في تغيير اسم الزر الثاني للخيار إلى "opbAllAccounts". وبعد ذلك حدد أسماء الزرين للأمر إلى "cdbOk” و ”cdbCancel" على التوالي.

6. انقر نقرًا مزدوجًا على أي مكان فارغ من UserForm1، ثم استبدل الكود الأصلي بالكود التالي لـ VBA في نافذة Userform1 (Code).

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

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. اضغط على مفتاح "F5" لتشغيل الكود. بعد ذلك ستظهر نافذة حوار "UserForm1"، لحساب عدد المجلدات في الحساب الحالي، يرجى تحديد خيار "الحساب الحالي" والنقر على زر "موافق". لحساب عدد المجلدات في جميع صناديق البريد، اختر خيار "جميع الحسابات" ثم انقر على زر "موافق". شاهد لقطة الشاشة:

9. بعد ذلك ستظهر نافذة حوار "أدوات Kutools لـ Outlook" لإعلامك بعدد المجلدات الموجودة في الحساب الحالي أو جميع صناديق البريد كما في لقطة الشاشة أدناه. يرجى النقر على زر "موافق".

ملاحظة: يتم تضمين جميع المجلدات المخفية مثل مجلد إعدادات إجراء المحادثة ومجلد إعدادات الخطوات السريعة في حساب المجلدات.

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

• ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
• تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
• الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
• التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
• الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
• التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.

هذه الميزة تدعم:

• ردود البريد الإلكتروني الذكية
• المحتوى المُحسّن
• المسودات المستندة إلى الكلمات المفتاحية
• التوسع الذكي للمحتوى
• تلخيص البريد الإلكتروني
• الترجمة متعددة اللغات

الأفضل من كل هذا، هذه الميزة مجانية تمامًا للأبد! لا تنتظر—حمّل مساعد البريد الإلكتروني الذكي الآن واستمتع

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

• كيفية عرض مربع حوار "تصفح للمجلد" لاختيار مجلد في Outlook؟