Outlookでカテゴリ別にメールをカウントするにはどうすればよいですか？

インスタント検索機能を使用してOutlookでカテゴリ別にメールをカウントする

VBAを使用してOutlookでカテゴリ別にメールをカウントする

この方法では、 インスタント検索機能を使用して指定された色のカテゴリでマークされたすべてのメールを見つけ、ステータスバーですべての検索結果の合計数を簡単に取得する手順を説明します。

1. メールビューで、Ctrl + E キーを同時に押して検索ツールをアクティブにします。

2. 検索 > カテゴリ化 をクリックし、次にカウントしたい指定された色のカテゴリを選択します。

3. これで、指定された色のカテゴリでマークされたすべてのメールが見つかり、メールリストに表示されます。そして、ステータスバーですべての検索結果の総数を簡単に確認できます。スクリーンショットをご覧ください：

注意：

(1) 黄色のカテゴリとオレンジのカテゴリでマークされたメールを同時にカウントするには、検索条件 category:="Yellow Category" AND "Orange Category" をインスタント検索ボックスに直接入力してください：

(2) 黄色のカテゴリまたはオレンジのカテゴリでマークされたメールを同時にカウントするには、検索条件 category:="Yellow Category" OR "Orange Category" をインスタント検索ボックスに直接入力してください。

この方法では、Outlookでカスタム日付範囲内のカテゴリ別にメールをカウントするためのVBAを紹介します。以下の手順を行ってください：

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ダイアログボックスで、カウントするカスタム日付範囲の開始日を入力し、OKボタンをクリックします。(2) 次のMicrosoft Outlookダイアログボックスで、終了日を入力し、OK ボタンをクリックします。スクリーンショットをご覧ください：

これで、色分けされたカテゴリでマークされたメールの件数を表示するダイアログボックスが表示されます。スクリーンショットをご覧ください：

Outlookでの検索結果の総数をカウントする

Outlookでの予定や会議に費やした時間/日数/週数をカウントする

Outlookで件名別にメールの件数をカウントする

Outlookで1日の受信メールの総数をカウントする

Outlookで選択したメールの総数をカウントする