كيف يمكن حساب عدد المجلدات في حساب بريد إلكتروني معيّن أو في جميع صناديق البريد ضمن Outlook؟
تتناول هذه المقالة طريقة حساب عدد المجلدات في حساب بريد إلكتروني معيّن أو في جميع صناديق البريد ضمن Outlook.
حساب عدد المجلدات ضمن حساب بريد إلكتروني معيّن أو جميع صناديق البريد باستخدام كود VBA
«حساب عدد المجلدات ضمن حساب بريد إلكتروني معيّن أو جميع صناديق البريد باستخدام كود VBA»
يمكنك حساب عدد المجلدات في حساب بريد إلكتروني معيّن أو في جميع صناديق البريد باستخدام كود VBA أدناه. يُرجى اتباع الخطوات التالية:
1. اضغط على مفتاحَي «Alt» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».
2. في نافذة «Microsoft Visual Basic for Applications»، انقر على «Insert» > «UserForm». راجع لقطة الشاشة:
3. بعد ذلك، أدرج زرَّي «Option Button» وزرَّي «Command Button» في "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 Sub8. اضغط مفتاح "F5" لتشغيل الكود. بعد ذلك، ستظهر نافذة مربعة باسم "UserForm1". لحساب عدد المجلدات في الحساب الحالي، حدد خيار «Current Account»، ثم انقر زر «OK». ولحساب عدد المجلدات في جميع صناديق البريد، اختر خيار «All Accounts»، ثم انقر زر «OK». راجع لقطة الشاشة:
9. بعد ذلك، ستظهر نافذة مربعة تحمل اسم «Kutools لـ Outlook» لإعلامك بعدد المجلدات في الحساب الحالي أو في جميع صناديق البريد، كما هو موضح في لقطة الشاشة أدناه. يُرجى النقر على زر «موافق».
ملاحظة: يتم تضمين جميع المجلدات المخفية، مثل مجلد «Conversation Action Settings» ومجلد «Quick Step Settings»، في عملية حساب المجلدات.
مساعد البريد الذكي في Outlook: ردود أذكى، وتواصل أوضح (سحر بنقرة واحدة!)
بسِّط مهام Outlook اليومية مع مساعد البريد الذكي من Kutools لـ Outlook! تعلّم هذه الأداة القوية من بريدك السابق لتقدّم لك ردودًا ذكية ودقيقة، وتحسّن محتوى رسائلك، وتساعدك في صياغتها وتنقيحها بسلاسة ودون أي جهد.
يدعم هذا الميزة:
- الردود الذكية: احصل على ردود مُعدَّة مسبقًا من محادثاتك السابقة—مخصصة بدقة، وملائمة تمامًا، وجاهزة للاستخدام الفوري.
- قم بتنقية نص بريدك تلقائيًا لضمان وضوحه وتأثيره.
- الكتابة دون عناء: ما عليك سوى إدخال الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع توفر عدة أساليب كتابة.
- الامتدادات الذكية: وسِّع آفاقك باقتراحات ذكية تراعي السياق!
- التلخيص: احصل فورًا على نظرة عامة موجزة للرسائل الإلكترونية الطويلة.
- الوصول العالمي: ترجم رسائلك الإلكترونية إلى أي لغة بسهولة.
يدعم هذا الميزة:
- الردود الذكية على البريد الإلكتروني
- المحتوى المُحسَّن
- مسودات مبنية على الكلمات المفتاحية
- تمديد المحتوى الذكي
- تلخيص البريد الإلكتروني
- الترجمة متعددة اللغات
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل