如何在 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 增益集，立即下載免費版本！