Outlook でフラグ付きメールの件数をカウントするには、どうすればよいですか？

Outlook では、メッセージ、連絡先、タスクにフラグを付けて目立たせることができますが、場合によってはOutlook 内のフラグ付きアイテムの件数をカウントする必要があります。この作業をOutlook でどのように行えばよいでしょうか？

検索フォルダーを使って1 つのアカウント内のフラグ付きメールの件数をカウントする

VBA コードを使ってすべてのアカウント内のフラグ付きメール／連絡先／タスクの件数をそれぞれ別々にカウントする

---

a name="a1">検索フォルダーを使って1 つのアカウント内のフラグ付きメールの件数をカウントする

Outlook のアカウント内でフラグ付きメールの件数をカウントするには、検索フォルダー機能が便利です。以下の手順に従って、簡単に確認しましょう。

1．メールアカウントの下にある検索フォルダーを右クリックし、新しい検索フォルダーを選択します（下記スクリーンショット参照）。

2．次に、新しい検索フォルダーダイアログボックスが表示されたら、メールの読み取りセクション内でフォローのためにフラグが付けられたメールオプションをクリックします（下記スクリーンショット参照）。

3．次に、OKをクリックすると、すべてのフラグ付きメールがフォロー予定フォルダーにコピーされ、フラグ付きメールの合計件数が下のスクリーンショットのように表示されます。

---

a name="a2">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キーを押してこのコードを実行すると、下のスクリーンショットのように、すべてのフラグ付きアイテムの合計件数を表示するプロンプトボックスが現れます。

---

Kutools for Outlook：70 以上もの便利で無料のOutlook アドインを提供！今すぐ無料版をダウンロードしてください。 Kutools for Outlook の強力な統計機能を使えば、日付や選択したアイテム数、既読・未読状態などに基づいて、必要なアイテム数を簡単に取得できます。