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 で選択したメールの総数をカウントする