如何在 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 中計算所選電子郵件的總數