Outlookの「送信トレイ」を監視し、特定のキーワードが含まれるメールを自動でCCに追加するルールエンジンの構築
開発プロジェクトの現場において、「送信ボタンを押した後に、上長へのCC追加漏れに気づく」「特定のプロジェクトに関するメールには、決まった関係者を必ずCCに入れなければならないのに、ヒューマンエラーで抜けてしまう」といったトラブルは、業務効率化における永遠の課題だ。
クライアントワークや厳格な情報管理が求められる現場で、これを個人の注意力に依存させるのは設計者としての怠慢である。Outlookの標準機能である「仕訳ルール」は、受信メールに対しては強力だが、送信メール（送信直前）の本文や件名を動的に解析して宛先を書き換える柔軟性には欠けている。
今回は、Outlook VBAのイベントハンドリングの極意を駆使し、送信トレイから飛び立つ瞬間の`MailItem`をインターセプト。本文中の特定のプロジェクトコードを検知して、自動的に適切なステークホルダーをCCにねじ込む「堅牢なルールエンジン」の実装手法を伝授する。
—
1. なぜ「送信トレイ監視」はバグりやすいのか？（アーキテクチャの罠）
世の中の適当なVBA解説記事では、`Application_ItemSend` イベントの中でメールを無理やり書き換えようとして、無限ループに陥ったり、Outlookが突然フリーズしたりするコードが散見される。
プロのエンジニアが知るべき、Outlookオブジェクトモデルの残酷な真実をいくつか共有しておこう。
1. `ItemSend` イベントの危険性
`ItemSend` は、ユーザーが「送信」ボタンを押した瞬間に走る。ここで同期的に重い処理や無限ループに近い走査を行うと、UIスレッドがブロックされ、Outlookが「応答なし」になる。
2. オブジェクトのライフサイクルと解放
VBAだからといってガベージコレクションに甘えてはならない。特にイベント引数として渡されるアイテムや、セッション・名前空間（`NameSpace`）のオブジェクトは、スコープを抜けた瞬間に適切に解放しないと、Outlookのバックグラウンドプロセス（`OUTLOOK.EXE`）がゾンビ化し、次回起動時に二重起動やプロファイルの破損を引き起こす。
3. 動的制御における「二重処理」の防止
プログラムによってCCを追加した結果、再びイベントが誘発されて無限ループに突入するバグ（Re-entrancy）は、送信系マクロにおける最大の敵である。フラグ管理によるガードが絶対に必要となる。
これらを完全に克服したプロダクションコードを以下に提示する。
—
2. 実装：プロダクション・グレードのコード例
このコードは、Outlookの `ThisOutlookSession` モジュールに配置する。
今回は、件名や本文に `[PJ-ALPHA]` というプロジェクトコードが含まれている場合、自動的に `boss@example.com` をCCに追加するルールエンジンを実装する。
Option Explicit
‘ =========================================================================
‘ ódulo: ThisOutlookSession
‘ 概要: 送信メールのインターセプトと動的CC制御エンジン
‘ =========================================================================
‘ 無限ループ（再入）を防ぐための静的フラグ
Private isProcessing As Boolean
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
‘ エラーハンドリングの標準装備
On Error GoTo ErrorHandler
‘ 1. 対象がMailItemであるか厳密に型チェック
If Not TypeOf Item Is MailItem Then Exit Sub
‘ すでにこのエンジンで処理済みの場合はスルー（無限ループ防止）
If isProcessing Then Exit Sub
Dim mail As MailItem
Set mail = Item
‘ 2. 処理フラグを立てる
isProcessing = True
‘ =====================================================================
‘ ルールエンジン本体（外部設定ファイルやDB連携への拡張も容易な設計）
‘ =====================================================================
Dim targetKeyword As String
Dim mandatoryCC As String
targetKeyword = “[PJ-ALPHA]”
mandatoryCC = “boss@example.com”
‘ 件名または本文に特定キーワードが含まれているか判定
If InStr(1, mail.Subject, targetKeyword, vbTextCompare) > 0 Or _
InStr(1, mail.Body, targetKeyword, vbTextCompare) > 0 Then
‘ すでにCCに該当アドレスが含まれていないかチェック
If Not IsAlreadyInCC(mail, mandatoryCC) Then
‘ CCに追加
Dim currentCC As String
currentCC = mail.CC
If Len(currentCC) > 0 Then
mail.CC = currentCC & “; ” & mandatoryCC
Else
mail.CC = mandatoryCC
End If
‘ ユーザーに自動追加を通知（必要に応じてコメントアウト可）
Debug.Print “RuleEngine: ” & mandatoryCC & ” をCCに自動追加しました。”
‘ 変更をアイテムに保存
mail.Save
End If
End If
CleanUp:
‘ 3. フラグの確実なリセット
isProcessing = False
Set mail = Nothing
Exit Sub
ErrorHandler:
MsgBox “送信ルールエンジンの実行中に予期せぬエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “Outlook VBA エラー”
Cancel = True ‘ 送信をキャンセルして安全側に倒す
Resume CleanUp
End Sub
‘ =========================================================================
‘ 補助関数: 指定アドレスがすでにCCに含まれているか判定
‘ =========================================================================
Private Function IsAlreadyInCC(ByVal mail As MailItem, ByVal emailAddress As String) As Boolean
Dim recip As Recipient
Dim found As Boolean
found = False
For Each recip In mail.Recipients
If recip.Type = olCC Then
If LCase(Trim(recip.Address)) = LCase(Trim(emailAddress)) Or _
LCase(Trim(recip.Name)) = LCase(Trim(emailAddress)) Then
found = True
Exit For
End If
End If
Next recip
IsAlreadyInCC = found
Set recip = Nothing
End Function
—
3. 実務運用における設計上の注意点と拡張性
上記のコードは単なるサンプルではない。現場に投入するにあたり、以下のアーキテクチャ的な拡張を考慮しておくと、真に価値のある自動化基盤となる。
A. キーワードと宛先の外部化（JSON / データベース連携）
コード内にハードコードされた `[PJ-ALPHA]` や `boss@example.com` は、プロジェクトの終了や人事異動のたびにVBAのコードを書き直すハメになるため、保守性が最悪だ。
実務では、社内の共有サーバーにある JSONファイル や SQLite / SQL Server、あるいはローカルのExcelマスタ（読み取り専用）を起動時に参照し、動的にルールマップを生成する構造にすべきである。
‘ 概念イメージ：外部CSV/Excelからルールテーブルを読み込む場合
‘ —————————————————————–
‘ ProjectCode | TargetCC
‘ [PJ-ALPHA] | boss-alpha@example.com
‘ [PJ-BETA] | boss-beta@example.com
‘ —————————————————————–
Dictionaryオブジェクト（`Scripting.Dictionary`）をメモリ上に展開し、O(1)のオーダーで高速にキーワードと宛先をマッチングさせる設計が、プロフェッショナルのアプローチと言える。
B. セキュリティとマクロのデジタル署名
企業環境において、`ThisOutlookSession` に未署名のVBAコードを配置することは、セキュリティポリシー（グループポリシー）によってブロックされるケースがほとんどである。
プロダクション運用では、自己証明書（`SelfCert.exe` 等）を作成してVBAプロジェクトにデジタル署名を行うか、組織内の信頼された証明機関（CA）発行の証明書を適用するプロセスが必須となる。
—
総括
Outlook VBAを用いたメールの動的制御は、一歩間違えるとシステム全体の安定性を損ねる諸刃の剣である。しかし、今回解説したような「厳格な型チェック」「再入防止のガード」「確実なメモリ管理」というエンジニアリングの原則を遵守すれば、ヒューマンエラーを完全に排除する強固な自動化基盤へと昇華させることができる。
「ボタンを押せば勝手に最適化される」――それこそが、現場のエンジニアが目指すべき究極のDXの姿だ。ぜひ自身の環境に組み込み、その圧倒的な安定性を体感してほしい。
