كيف يمكنك تصنيف رسائل البريد الإلكتروني في Outlook؟

عدّ رسائل البريد الإلكتروني حسب الفئة في Outlook باستخدام ميزة البحث الفوري

عدّ رسائل البريد الإلكتروني حسب الفئة في Outlook باستخدام VBA

سترشدك هذه الطريقة إلى العثور على جميع الرسائل المُعلَّمة بالفئة اللونية المحددة باستخدامميزة البحث الفوري، ثم الاطّلاع بسهولة على العدد الإجمالي لنتائج البحث فيشريط الحالة.

1. في طريقة عرضالبريد، اضغط على مفاتيحCtrl+E في آنٍ واحد لتفعيلأدوات البحث.

2. انقر فوقبحث > مصنَّف، ثم اختر فئة اللون التي ستعتمدها لعدّ رسائل البريد الإلكتروني.

3. الآن تم العثور على جميع رسائل البريد الإلكتروني المُصنَّفة بفئة اللون المحددة وعرضها في قائمة البريد الإلكتروني. ويمكنك بسهولة معرفة العدد الإجمالي لنتائج البحث من شريط الحالة. راجع لقطة الشاشة:

ملاحظات:

(1) لعدّ الرسائل المُعلَّمة بفئة اللون الأصفروفئة اللون البرتقالي في آنٍ واحد، يُرجى كتابة معايير البحث التالية مباشرةً في مربع البحث الفوري: category:=«Yellow Category» AND "Orange Category"البحث الفوري:

(2) لعدّ الرسائل المُعلَّمة بفئة اللون الأصفرأوفئة اللون البرتقالي في آنٍ واحد، اكتب معايير البحث التالية مباشرةً في مربعالبحث الفوري: category:=«Yellow Category» OR "Orange Category".

ستقدّم لك هذه الطريقة كود VBA لعدّ رسائل البريد الإلكتروني حسب الفئة ضمن مجلد معيّن وضمن نطاق تاريخ محدّد في Outlook. يُرجى اتباع الخطوات التالية:

1. في طريقة عرضالبريد، حدد مجلد البريد الإلكتروني الذي تريد عدّ الرسائل فيه.

2. اضغط على مفاتيحAlt+F11 في آنٍ واحد لفتح نافذة Microsoft Visual Basic for Applications.

3. انقر فوقإدراج > وحدة نمطية، ثم الصق كود VBA أدناه في نافذة الوحدة النمطية الجديدة التي تفتح:

VBA: عدّ رسائل البريد الإلكتروني حسب الفئة في Outlook

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. اضغط على مفتاحF5 أو انقر فوق زر التشغيل لتشغيل كود VBA هذا.

5. (1) في مربع حوار Microsoft Outlook الأول الذي يظهر، أدخل تاريخ البدء لنطاق التاريخ الذي تريد تضمينه في المجلد المخصص لفرز رسائل البريد الإلكتروني، ثم انقر فوق الزرموافق. (2) في مربع حوار Microsoft Outlook الثاني، أدخل تاريخ الانتهاء، ثم انقر فوق الزرموافق. راجع لقطات الشاشة:

والآن، سيظهر مربع حوار يعرض عدد رسائل البريد الإلكتروني المُعلَّمة بفئة اللون. راجع لقطة الشاشة:

عدّ العدد الإجمالي لنتائج البحث في Outlook

عدّ الساعات/الأيام/الأسبوع التي تقضيها في موعد أو اجتماع في Outlook

عدّ عدد البريد الإلكتروني حسب الموضوع في Outlook

عدّ العدد الإجمالي للرسائل الواردة يوميًا في Outlook

عدّ العدد الإجمالي للرسائل المحددة في Outlook