こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを探しても見つからず、「Outlookってどうやって自動化すればいいの？」と途方に暮れていませんか？
大丈夫、ここをクリアすれば、Outlook VBAの基本はバッチリですよ。
今日は、日々の業務で埋もれがちなお仕事の進捗状況を、Outlookの「カテゴリ」機能を使って鮮やかに可視化する、実用的なダッシュボード作成術を伝授します。
Excelだけでなく、Outlookの受信トレイや予定表も立派なデータベースです。その中身をVBAで自由自在に操れるようになると、あなたの業務自動化スキルは間違いなく一段上のステージに到達します。さあ、一緒に本質を学んでいきましょう！
—
1. そもそもOutlook VBAの「土台」はどうなっているのか？
Excel VBAであれば `Range` や `Cells` から始まりますが、Outlook VBAの宇宙は 「Application」「NameSpace」「MAPIFolder」 という3つの御三家で成り立っています。まずはこの構造を頭に地図として焼き付けてください。
- `Application`: Outlookアプリそのもの（神様のような存在）。
- `NameSpace` (Session): ログインしているユーザーのデータ領域への窓口。「MAPI」というプロトコルを扱い、メールボックス全体のセッションを管理します。
- `MAPIFolder`: 受信トレイ、送信済みアイテム、予定表といった具体的な「フォルダ」のこと。
この3つを繋ぐ呪文が、Outlook VBAを書くときの最初の関門であり、お約束の定型句です。
Dim olApp As Object
Dim olNs As Object
Dim targetFolder As Object
‘ 1. アプリケーションの取得
Set olApp = Application
‘ 2. 名前空間（セッション）の取得
Set olNs = olApp.GetNamespace(“MAPI”)
‘ 3. 受信トレイを指定して取得
Set targetFolder = olNs.GetDefaultFolder(6) ‘ 6 = olFolderInbox
※ `GetObject` ではなく `Application` を直接使えるのが、Outlookマクロの気楽で強力なところです。
—
2. 今回のミッション：カテゴリで進捗を「見える化」する
実務では、メールや予定に「🔴 未対応」「🟡 対応中」「🟢 完了」といったカラーカテゴリをつけて管理している人が多いはずです。しかし、件数が増えてくると「今、自分はどれを抱えているんだっけ？」と迷子になりますよね。
そこで、「指定したフォルダ内にあるアイテムのカテゴリをVBAで集計し、メッセージボックスでダッシュボード（進捗レポート）として表示する」プログラムを作ります。
ここで知っておくべき「重い罠」
初心者がやりがちなミスが、アイテムの `.Categories` プロパティをそのまま文字列比較することです。
Outlookのカテゴリは「1つのアイテムに複数付与できる（カンマ区切り）」仕様になっています。そのため、完全一致で比較しようとすると、「赤, 青」のような複合カテゴリのときに集計がバグります。
この構造的トラップを回避するスマートなコードを次で見ていきましょう。
—
3. 実装コード：進捗ダッシュボード・ジェネレーター
以下のコードを、OutlookのVBAエディタ（`Alt + F11` で起動し、`ThisOutlookSession` や標準モジュール）に貼り付けて実行してください。今回は一番身近な「受信トレイ」を対象にします。
Option Explicit
Sub ShowProgressDashboard()
‘ — オブジェクト変数の宣言 —
Dim olApp As Outlook.Application
Dim olNs As Outlook.NameSpace
Dim inboxFolder As Outlook.MAPIFolder
Dim targetItem As Object
‘ — 集計用変数の宣言 —
Dim countUnread As Long: countUnread = 0 ‘ 未対応（赤など）
Dim countInProgress As Long: countInProgress = 0 ‘ 対応中（黄など）
Dim countCompleted As Long: countCompleted = 0 ‘ 完了（緑など）
Dim countOther As Long: countOther = 0 ‘ その他・未分類
Dim categoriesStr As String
Dim reportMsg As String
‘ 1. 基本オブジェクトの初期化
Set olApp = Application
Set olNs = olApp.GetNamespace(“MAPI”)
‘ 受信トレイを取得 (olFolderInbox = 6)
Set inboxFolder = olNs.GetDefaultFolder(6)
‘ 2. フォルダ内の全アイテムをループ処理
‘ ※アイテム数が数万件ある場合はループが重くなるため、本当はRestrict等を使いますが、
‘ まずは基本の走査（イテレーション）をマスターしましょう。
For Each targetItem In inboxFolder.Items
‘ メールや会議出席依頼など、カテゴリを持つオブジェクトか判定
If targetItem.Class = olMail Or targetItem.Class = olAppointment Then
categoriesStr = targetItem.Categories
‘ カテゴ1つ含まれている文字列を判定（部分一致で安全に捕捉）
If categoriesStr <> “” Then
If InStr(1, categoriesStr, “未対応”, vbTextCompare) > 0 Then
countUnread = countUnread + 1
ElseIf InStr(1, categoriesStr, “対応中”, vbTextCompare) > 0 Then
countInProgress = countInProgress + 1
ElseIf InStr(1, categoriesStr, “完了”, vbTextCompare) > 0 Then
countCompleted = countCompleted + 1
Else
countOther = countOther + 1
End If
Else
‘ カテゴリが全く設定されていないもの
countOther = countOther + 1
End If
End If
Next targetItem
‘ 3. ダッシュボード（結果レポート）の組み立て
reportMsg = “【Outlook 業務進捗ダッシュボード】” & vbCrLf & _
“—————————————-” & vbCrLf & _
“🔴 未対応件数 : ” & countUnread & ” 件” & vbCrLf & _
“🟡 対応中件数 : ” & countInProgress & ” 件” & vbCrLf & _
“🟢 完了件数 : ” & countCompleted & ” 件” & vbCrLf & _
“⚪ その他・未分類: ” & countOther & ” 件” & vbCrLf & _
“—————————————-” & vbCrLf & _
“本日のタスクをクリアしていきましょう！”
‘ 4. 画面に出力
MsgBox reportMsg, vbInformation, “進捗状況レポート”
‘ 5. メモリ解放（プログラミングの美学）
Set targetItem = Nothing
Set inboxFolder = Nothing
Set olNs = Nothing
Set olApp = Nothing
End Sub
—
4. コードの深掘りポイント（エンジニアの視点）
このコードには、現場で役立ついくつかの「プロのこだわり」が詰まっています。
1. `InStr` 関数による部分一致判定
前述の通り、Outlookのカテゴリは複数設定されることがあります。「未対応」という文字がカテゴリのどこに含まれているかを `InStr` で調べることで、複数カテゴリが設定されたアイテムを取りこぼさずに集計できます。
2. `targetItem.Class` による型安全性の担保
受信トレイにはメールだけでなく、タスクや連絡先、メモが混ざっていることがあります。`.Categories` を持たないオブジェクトを触ってエラーになるのを防ぐため、`olMail` や `olAppointment`（予定）に絞り込んでいます。
3. オブジェクトの解放（`Set … = Nothing`）
Outlook VBAを記述する上で、メモリリーク（メモリの解放漏れ）はOutlook本体を不安定にする原因になります。処理の最後できちんと変数を `Nothing` に戻してあげるのが、一流のエンジニアの作法です。
—
5. さらに実務で活かすための応用アイデア
今回のコードをベースに、さらに業務を自動化・効率化するためのヒントをいくつか挙げておきます。
- Excelへのダッシュボード出力: `MsgBox` ではなく、毎日決まった時間にExcelを開いてシートの特定のセルに集計結果を書き出し、社内共有の進捗シートとして自動保存する。
- 未対応アラート: 「未対応」の件数が一定数（例えば10件）を超えたら、自動的に自分宛てにアラートメールを飛ばす、あるいはチャットツール（TeamsやSlack）のWebhookに飛ばす。
おわりに
Outlookのカテゴリ操作と集計の基本、いかがでしたでしょうか？
「画面をポチポチ手動で数えていた時間」をコードの数行に置き換える。これこそがプログラミングの醍醐味であり、エンジニア最大の武器です。
ここをクリアしたあなたなら、もうOutlook VBAの基礎はバッチリです。ぜひ自分の環境のカテゴリ名に合わせて書き換え、明日からの業務効率化に役立ててくださいね！
