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