如何在 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 中所选邮件总数