Outlook VBAを掌握する極限の知見：`Selection`オブジェクトを制する者がバッチ処理を制す
業務自動化の現場において、Outlook VBAの真価が問われるのは「ユーザーが画面上で選択した複数のアイテム対して、いかに高速かつ安全に一括処理（バッチ処理）を行うか」という局面に差し掛かったときだ。
ネット上の散見されるコードの多くは、`ActiveExplorer.Selection` を安易にループさせ、エラーハンドリングすらない脆弱なものばかりだ。そんなコードを実務の現場に投入すれば、ユーザーが何も選択していない状態（空選択）での実行時エラーや、メール以外のアイテム（会議予定や連絡先など）が混入した際の型ミスマッチ、そして何より膨大なアイテム数を処理する際のパフォーマンス劣化という「地雷」を踏むことになる。
今回は、数千人の組織を支える業務システムを裏で構築してきたチーフアーキテクトの視点から、`Application.ActiveExplorer.Selection` を極限まで安全に、かつプロフェッショナルに使い倒すための設計思想とプロダクションコードを伝授しよう。
—
1. `Selection` オブジェクトの罠と、プロが守るべき3つの鉄則
`ActiveExplorer.Selection` は、現在エクスプローラー上でユーザーが選択しているアイテムのコレクションを返す。一見シンプルだが、ここに潜む落とし穴を把握している者は少ない。
鉄則その1：選択数「ゼロ」の防衛策
ユーザーが何も選択していない状態でマクロが実行された場合、`Selection.Count` は `0` を返す。この状態でインデックスアクセスを行うと、容赦なく実行時エラー（エラー438や9）が発生する。必ず処理の冒頭で `Count` を評価し、早期リターン（Guard Clause）を組むこと。
鉄則その2：型不整合（Heterogeneous Selection）への耐性
Outlookのグリッドビューでは、メール（`MailItem`）だけでなく、会議出席依頼（`MeetingItem`）、タスク、連絡先などを「マルチ選択」することが物理的に可能だ。
メールを一括処理するロジクールのつもりで `MailItem` としてキャストせずにプロパティを叩くと、会議アイテムが混ざった瞬間にスクリプトはクラッシュする。「選択されたアイテムが何であるか」を動的に型判定（`TypeOf … Is`）する防衛的プログラミングが必須となる。
鉄則その3：オブジェクトの解放とパフォーマンス
大量のアイテムをループ処理する際、COMオブジェクトの参照がメモリリークを引き起こす原因になる。特に `For Each` を回す際は、不要なオブジェクト変数を残さず、かつ画面の描画更新（ScreenUpdating的な概念はないが、イベントの抑制）を意識した設計が求められる。
—
2. 【プロダクションコード】堅牢性と速度を両立した一括フラグ・カテゴリ変更
以下のコードは、ユーザーが選択した複数のメールに対して、一括で「重要」フラグを設定し、特定のカテゴリ（例：「【自動処理済】」）を付与する実用的なマクロだ。
エラーハンドリング、型安全、そしてユーザーへのフィードバック（進捗や結果の明示）を完備した、そのまま実務に投入できるアーキテクチャとなっている。
Option Explicit
‘ =========================================================================
‘ 処理名: BatchProcessSelectedItems
‘ 概要 : 選択された複数のメールアイテムに対して、一括でフラグとカテゴリを付与する
‘ 著者 : チーフアーキテクト
‘ =========================================================================
Public Sub BatchProcessSelectedItems()
‘ 1. 宣言セクション
Dim objSelection As Outlook.Selection
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim lngProcessCount As Long
Dim lngSkipCount As Long
Dim i As Long
‘ エラーハンドリングの有効化
On Error GoTo ErrorHandler
‘ 2. アクティブエクスプローラーの取得と選択チェック（Guard Clause）
Set objSelection = Application.ActiveExplorer.Selection
If objSelection.Count = 0 Then
MsgBox “処理対象のアイテムが選択されていません。” & vbCrLf & _
“少なくとも1つのメールを選択してから実行してください。”, _
vbExclamation, “一括処理エラー”
GoTo Finally
End If
‘ 3. 処理開始の確認（誤操作防止）
If MsgBox(“選択された ” & objSelection.Count & ” 件のアイテムに対して、” & vbCrLf & _
“・フラグの追加” & vbCrLf & _
“・カテゴリ「【自動処理済】」の付与” & vbCrLf & _
“を実行します。よろしいですか？”, _
vbQuestion + vbYesNo, “一括処理の確認”) = vbNo Then
GoTo Finally
End If
‘ ステータスバーに処理中を表示（ユーザーエクスペリエンスの向上）
Application.StatusBar = “選択アイテムの一括処理を実行中…”
‘ 4. バッチ処理メインループ
‘ ※Selectionは1ベースのコレクション
For i = objSelection.Count To 1 Step -1
Set objItem = objSelection.Item(i)
‘ 型判定：MailItemである場合のみ処理を実行（会議依頼などはスキップ）
If TypeOf objItem Is Outlook.MailItem Then
Set objMail = objItem
With objMail
‘ フラグの設定（今日中を指定）
.MarkAsTask olMarkToday
.TaskSubject = “要確認・対応”
‘ カテゴriの追加（既存のカテゴリを維持しつつ追加）
Dim currentCategories As String
currentCategories = .Categories
If InStr(1 < currentCategories, "【自動処理済】", vbTextCompare) = 0 Then
If Len(currentCategories) > 0 Then
.Categories = currentCategories & “, 【自動処理済】”
Else
.Categories = “【自動処理済】”
End If
End If
‘ 変更を保存（重要：これを忘れると変更が破棄される）
.Save
End With
lngProcessCount = lngProcessCount + 1
Else
‘ メール以外のアイテムが選択されていた場合はカウントしてスキップ
lngSkipCount = lngSkipCount + 1
End If
‘ ループ内でのオブジェクト参照のクリア
Set objMail = Nothing
Set objItem = Nothing
Next i
‘ 5. 完了通知
Application.StatusBar = “”
MsgBox “一括処理が完了しました。” & vbCrLf & _
“・処理成功: ” & lngProcessCount & ” 件” & vbCrLf & _
“・スキップ（非メール）: ” & lngSkipCount & ” 件”, _
vbInformation, “処理完了”
Finally:
‘ 6. クリーンアップ
Set objSelection = Application.ActiveExplorer.Selection
Application.StatusBar = “”
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング
Application.StatusBar = “”
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error ” & Err.Number & “: ” & Err.Description, _
vbCritical, “システムエラー”
Resume Finally
End Sub
—
ジグソーパズルのようにパーツを組み合わせるだけのVBAコードはもう卒業しよう。ここで紹介した「型安全なキャスティング」「明確なガード句」「確実な変更保存（`.Save`）」「ステータスバーによるフィードバック」の4原則をマスターすれば、あなたの作る自動化ツールは、現場から「止まらない、信頼できる右腕」として絶賛されるはずだ。アーキテクトとして、妥協のないコードを書き続けてほしい。
