كيفية حساب البريد الإلكتروني حسب الفئة في 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