كيف تحسب عدد المجلدات تحت حساب بريد إلكتروني محدد أو كل علب البريد في 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 .
ملاحظات: يتم تضمين جميع المجلدات المخفية مثل مجلد إعدادات إجراء المحادثة ومجلد إعدادات الخطوة السريعة في عد المجلدات.
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!