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