如何统计 Outlook 中已标记邮件的数量？

在 Outlook 中，您可以为邮件、联系人或任务添加旗标以突出显示，但有时您还需要统计已加旗标项目的数量。如何在 Outlook 中实现这一操作？

使用搜索文件夹统计单个帐户中已标记的邮件的数量

使用 VBA 代码分别统计所有帐户中的已标记的邮件、联系人和任务数量

---

a name="a 1"> 使用搜索文件夹统计单个帐户中已标记的邮件的数量

若要统计 Outlook 某个帐户中已旗标邮件的数量，可通过搜索文件夹功能实现，操作如下：

1. 在您的电子邮件帐户下，右键单击搜索文件夹，然后选择新建搜索文件夹，如下图所示：

2. 在弹出的新建搜索文件夹对话框中，点击阅读邮件部分下的针对跟进加旗标的邮件选项，见下图：

3. 接着点击确定，所有已标记的邮件将被复制到以供跟进文件夹中，并显示所有已旗标邮件的总数，如下图所示：

---

a name="a 2"> 使用 VBA 代码分别统计所有帐户中的已标记的邮件、联系人和任务数量

如果您希望分别统计 Outlook 中所有已标记项目（如邮件、联系人和任务）的数量，以下 VBA 代码将为您提供帮助。

1. 请按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 然后，点击插入 > 模块，将下方代码复制并粘贴到打开的空白模块中，详见下图：

VBA 代码：统计 Outlook 中已旗标项目的数量：

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub

3. 按下 F5 键运行此代码后，即会弹出提示框，显示所有已旗标项目的合计数量，如下图所示：

---

统计今日、昨日、已读、未读、总共项目数量等数量……适用于 Outlook 借助 Kutools for Outlook 强大的统计功能，您可按日期、选中项目数量、已读或未读等需求，轻松获取各项数量统计。 Kutools for Outlook：拥有超过 70+ 款实用免费 Outlook 加载项，立即下载免费版。 借助 Kutools for Outlook 强大的统计功能，您可根据日期、选中项目数量、已读或未读等条件，轻松获取各类统计数据。 Kutools for Outlook：拥有 70 多款实用免费 Outlook 加载项，立即下载免费版。