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キーを押してこのコードを実行すると、すべてのフラグ付きアイテムの総数を示すプロンプトボックスが表示されます。次のスクリーンショットをご覧ください：
今日、昨日、既読、未読、総アイテム数...Outlook内でカウントする Kutools for Outlookの強力な統計機能を使用すると、日付、選択したアイテム、既読、未読などに基づいて必要なアイテム数を取得できます。  Kutools for Outlook: 70以上の便利で無料のOutlookアドインを搭載。今すぐ無料版をダウンロードしてください。 |
最高のオフィス生産性ツール
最新情報: Kutools for Outlook 無料版リリース！
新しくなった Kutools for Outlook を100以上の素晴らしい機能とともに体験してください！今すぐダウンロードしてみましょう！
🤖 Kutools AI : 高度なAI技術を活用し、メールの返信、要約、最適化、拡張、翻訳、作成までを簡単に処理します。
📧 メール自動化: 自動返信（POPとIMAPに対応） / スケジュール電子メールを送信 /送信時にルールで自動 CC/BCC / 高度なルールによる自動転送 / 挨拶を自動追加 / 複数宛先メールを自動的に一通ずつ分割...
📨 メール管理: メールの取り消し / 件名などで詐欺メールをブロックする / 重複メールを削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: 一括保存 / 一括切り離し / 一括圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェイスマジック: 😊さらに美しくてクールな絵文字 /重要なメール到着時に通知 / Outlookを閉じるのではなくグループを最小化...
👍 ワンクリック便利機能: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーン表示...
👩🏼🤝👩🏻 連絡先＆カレンダー: 選択したメールから一括で連絡先を追加 /連絡先グループを個別グループに分割 / 誕生日のリマインダーを削除...
お好みの言語で Kutools を利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語に対応！
Kutools for Outlookをワンクリックですぐに利用開始。待たずに今すぐダウンロードして効率を高めましょう！
🚀 ワンクリックダウンロード — Office用アドインをすべて入手
強くおすすめ: Kutools for Office（5-in-1）
ワンクリックで五つのインストーラーを同時ダウンロード ― Kutools for Excel、Outlook、Word、PowerPoint、Office Tab Pro。 今すぐダウンロード！
- ✅ ワンクリックの便利さ: 五つのセットアップパッケージを一度にダウンロードできます。
- 🚀 あらゆるOffice作業に準備完了: 必要なアドインをいつでもインストール可能です。
- 🧰 含まれるもの: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint