Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
سجلوا معنا  \/ 
x

or

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

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

عد عدد المجلدات الفرعية برمز VBA


عد عدد المجلدات الفرعية برمز VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في حساب عدد المجلدات الفرعية الموجودة ضمن مجلد جذر معين في Outlook. الرجاء القيام بما يلي.

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

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الكود.

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

5. ثم أ كوتولس لتوقعات ينبثق مربع الحوار ليخبرك بعدد المجلدات الفرعية الموجودة في المجلد المحدد. انظر لقطة الشاشة:


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


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة...
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال... تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.