כיצד לספור הודעות דוא"ל לפי קטגוריה ב-Outlook?

ספירת הודעות דוא"ל לפי קטגוריה ב-Outlook עם תכונת החיפוש הרגעי

ספירת הודעות דוא"ל לפי קטגוריה ב-Outlook עם VBA

שיטה זו תדריך אתכם למצוא את כל הודעות הדוא"ל שסומנו עם קטגוריית הצבעים שצוינה על ידי תכונת חיפוש רגעי, ולאחר מכן בקלות לקבל את המספר הכולל של כל תוצאות החיפוש בשורת המצב.

1. בתצוגת הדואר, לחצו בו-זמנית על המקשים Ctrl + E כדי להפעיל את כלים החיפוש.

2. לחצו על חיפוש > ממוין, ולאחר מכן בחרו את קטגוריית הצבע שתרצו לספור את הודעות הדוא"ל לפי.

3. כעת כל הודעות הדוא"ל שסומנו עם קטגוריית הצבע שצוינה נמצאו ורשומות ברשימת הדואר. תוכלו בקלות לקבל את המספר הכולל של כל תוצאות החיפוש בשורת המצב. ראו צילום מסך:

הערות:

(1) כדי לספור הודעות דוא"ל שסומנו עם קטגוריית צהוב וקטגוריית כתום בו-זמנית, אנא הקלידו את קריטריוני החיפוש category:="קטגוריה צהובה" AND "קטגוריה כתומה" לתוך תיבת חיפוש רגעי ישירות:

(2) כדי לספור הודעות דוא"ל שסומנו עם קטגוריית צהוב או קטגוריית כתום בו-זמנית, אנא הקלידו את קריטריוני החיפוש category:="קטגוריה צהובה" OR "קטגוריה כתומה" לתוך תיבת חיפוש רגעי ישירות.

שיטה זו תציג 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 או לחצו על כפתור Run כדי להריץ את ה-VBA.

5. (1) בחלון הדו-שיח הראשון של Microsoft Outlook שקפץ, אנא הקלידו את תאריך ההתחלה של טווח התאריכים המותאם אישית שבו תרצו לספור את הודעות הדוא"ל, ולחצו על הכפתור אישור. (2) בחלון הדו-שיח השני של Microsoft Outlook, אנא הקלידו את תאריך הסיום, ולחצו על הכפתור אישור . ראו צילומי מסך:

ועכשיו קופצת חלונית ומראה את מספרי הודעות הדוא"ל שסומנו עם קטגוריית צבעים. ראו צילום מסך:

ספירת המספר הכולל של תוצאות החיפוש ב-Outlook

ספירת שעות/ימים/שבועות שהוקדשו לפגישה או מפגש ב-Outlook

ספירת מספר הודעות הדוא"ל לפי נושא ב-Outlook

ספירת המספר הכולל של הודעות דואר נכנס ביום ב-Outlook

ספירת המספר הכולל של הודעות הדוא"ל שנבחרו ב-Outlook