こんにちは！ Outlook VBAの深淵へようこそ。
今回は、日々のメール処理を劇的に効率化する「Selectionオブジェクトを用いたユーザー選択アイテムのバッチ処理」について解説します。
「マクロの記録」ボタンすらないOutlookの世界では、VBAを書く上でオブジェクトモデルの理解が避けて通れません。特に、ユーザーが画面上で「どのメールを選んでいるか」を正確に捉え、一括処理するスキルは、業務自動化のエンジニアとして最初にして最大の関門です。
ここをクリアすれば、あなたのOutlook VBAの基本はバッチリ。
マクロの記録から完全に脱却し、実務で即戦力となる「生きたコード」が書けるようになりますよ。一緒にマスターしていきましょう！
—
1. Outlookオブジェクトモデルの階層と「今、何が選ばれているか」
Excel VBAであれば `ActiveCell` や `Selection` でお馴染みですが、Outlookのそれは少し毛色が違います。
Outlookの背後には、次のような厳格な階層構造（オブジェクトツリー）が存在します。
[Application] （アプリアプリケーション本体）
└─ [ActiveExplorer] （現在開いているメイン画面ウィンドウ）
└─ [Selection] （ユーザーが選択しているアイテムの集合体）
私たちが操作するのは、この一番末端にある `Selection` オブジェクト です。
ユーザーがメールを1つ選んでいれば1つ、CtrlキーやShiftキーを押しながら複数選んでいればその数だけ、`Selection` の中にアイテムが格納されます。
—
2. 陥りやすい罠：なぜ「選択なし」や「メール以外のアイテム」を考慮すべきなのか？
初心者が最初に直面するエラーの代表格が、「何もしない状態で実行したときのオブジェクトエラー」です。
また、Outlookには「メール」だけでなく、「予定表（カレンダー）」や「連絡先」「タスク」など、多様なアイテムが存在します。
ユーザーがうっかり「予定」を選んでいる状態でメール用のマクロを実行すると、型が一致せずにマクロが強制終了してしまいます。
ここを知り尽くしたエンジニアは、必ず次の2点に備えます。
1. 選択アイテムが「0個」のときのガード節（例外処理）
2. 選択されたアイテムが本当に「メール」であるかの型チェック
—
3. 実装コード：安全かつ高速に一括処理するバッチマクロ
それでは、現在選択している複数のメールに対して、一括で「フラグ（タスク設定）」と「カテゴリ変更」を行う実用的なコードをお見せします。
VBAの開発画面（Alt + F11）を開き、標準モジュールに貼り付けてお試しください。
‘ ==============================================================================
‘ 【マクロ名】BatchProcessSelectedMails
‘ 【概要】選択中のメール複数件に対し、一括でフラグ設定とカテゴリ変更を行う
‘ ==============================================================================
Public Sub BatchProcessSelectedMails()
Dim objApp As Outlook.Application
Dim objSelection As Outlook.Selection
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim lngCount As Long
Dim i As Long
‘ 1. アプリケーションオブジェクトの取得
Set objApp = Application
‘ 2. 現在エクスプローラーで選択されているものを取得
Set objSelection = objApp.ActiveExplorer.Selection
‘ 【重要】ガード節：何も選択されていない場合の判定
If objSelection.Count = 0 Then
MsgBox “処理するメールが選択されていません。” & vbCrLf & _
“1つ以上のメールを選択してから実行してください。”, _
vbExclamation, “選択エラー”
Exit Sub
End If
‘ 処理カウンター初期化
lngCount = 0
‘ 3. 選択されたアイテムをループ処理（後ろから回すのが安全の定石ですが、今回はシンプルに）
For i = 1 To objSelection.Count
Set objItem = objSelection(i)
‘ 【重要】型安全性の確保：選択されたものが「メール」であるか判定
‘ （予定表や連絡先が混ざっている場合のエラーを防ぐため）
If objItem.Class = olMail Then
Set objMail = objItem
With objMail
‘ — ここに一括で行いたい処理を記述 —
‘ 例1：フラグを設定する（今日中に完了するタスクとしてマーク）
.MarkAsTask olMarkToday
‘ 例2：特定のカテゴリを付与する（既存のカテゴリに「要確認」を追加）
If InStr(1, .Categories, “要確認”, vbTextCompare) = 0 Then
If Len(.Categories) > 0 Then
.Categories = .Categories & “, 要確認”
Else
.Categories = “要確認”
End If
End If
‘ 変更を保存（これを忘れると変更が消えます！）
.Save
End With
lngCount = lngCount + 1
End If
‘ オブジェクトの解放（メモリリーク防止の作法）
Set objMail = Nothing
Set objItem = Nothing
Next i
‘ 4. 処理完了の通知
MsgBox lngCount & ” 件のメールにフラグとカテゴリを一括設定しました！”, _
vbInformation, “処理完了”
‘ クリーンアップ
Set objSelection = Nothing
Set objApp = Nothing
End Sub
—
4. コードの深掘りポイント（プロの技）
上記のコードには、現場で培われたいくつかの重要な「作法」が組み込まれています。
① `As Object` で受けてから `Class` で判定する
`For Each` やインデックスで `Selection` を回すとき、最初から `As Outlook.MailItem` として受けてしまうと、予定表アイテムが混ざった瞬間に実行時エラー（型が一致しません）になります。
一度 `Object` 型 で受けて、`.Class = olMail`（メールアイテムであるか）を条件分岐で弾くのが、堅牢なマクロを作る鉄則です。
② `.Save` メソッドの重要性
Excel VBAのセル操作とは異なり、Outlookのメールアイテム（`MailItem`）は、プロパティを書き換えただけではディスクやサーバーに保存されません。明示的に `.Save` を呼び出す必要があることを忘れないでください。
—
5. おわりに
いかがでしたでしょうか？
`Application.ActiveExplorer.Selection` を使いこなせるようになると、受信トレイに溜まった無数のメールの整理整頓、案件ごとの一括フラグ立てなどが、わずか数秒で終わるようになります。
「選択されていないときの優しさ（ガード節）」と「メールかどうかの型チェック」。この2つを意識するだけで、あなたの書くVBAは「動くだけの素人コード」から「現場で信頼されるプロの自動化スクリプト」へと生まれ変わります。
ここをクリアしたあなたなら、もうOutlook VBAの基礎はバッチリです。ぜひ日々の業務で試してみてくださいね！
