如何在Outlook中按類別計算郵件數量？

使用即時搜尋功能在Outlook中計算郵件的類別數量

使用VBA在Outlook中計算郵件的類別數量

此方法將引導您使用 即時搜尋功能找出所有標記為指定顏色類別的郵件，然後輕鬆在狀態欄獲取所有搜尋結果的總數。

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中計算選中郵件的總數