انتقل إلى المحتوى الرئيسي

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

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

عد عدد المجلدات الموجودة ضمن حساب البريد الإلكتروني المحدد أو كل علب البريد التي تحتوي على رمز VBA


عد عدد المجلدات الموجودة ضمن حساب البريد الإلكتروني المحدد أو كل علب البريد التي تحتوي على رمز VBA

يمكنك حساب عدد المجلدات الموجودة ضمن حساب البريد الإلكتروني المحدد أو كل علب البريد التي تحتوي على رمز VBA أدناه. الرجاء القيام بما يلي.

1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > المستخدم. انظر لقطة الشاشة:

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

4. قم بتغيير اسم زر الخيار الأول إلى "com.opbCurAccount"وتغيير قيمنا الملكية ل صواب. انظر لقطة الشاشة:

5. استمر في تغيير اسم زر الخيار الثاني إلى "com.opbAllAccounts". ثم حدد اسم زري الأمر من أجل "موافق"و"cdbCancel"بشكل منفصل.

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

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

9. ثم أ كوتولس لتوقعات ينبثق مربع الحوار لإخبارك بعدد المجلدات الموجودة في الحساب الحالي أو جميع صناديق البريد كما هو موضح في الصورة أدناه. الرجاء الضغط على OK .

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


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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations