現場の「ヒューマンエラー」をコードで撲滅せよ：Outlook ItemSend を完全制御する防壁の実装
業務自動化の現場において、最も避けるべきは「ツールが動かないこと」ではない。「ツールが動いているのに、致命的なミスを許容してしまうこと」だ。
特にメール送信における「宛先ミス」や「機密情報の誤送信」は、企業の信頼を一瞬で失墜させる。手動チェックに頼るという選択肢は、エンジニアの辞書から消去すべきだ。今回は、Outlookの送信プロセスに直接介入し、ポリシー違反を検知した瞬間に送信を「強制キャンセル」する、堅牢な実装アーキテクチャを伝授する。
—
1. なぜ「送信前チェック」が必要なのか
多くの開発者は、送信後に送信済みアイテムを監視して削除するような泥縄式のアプローチをとるが、これは最悪の設計だ。ネットワークにパケットが流れた時点で、取り返しがつかないリスクが発生しているからだ。
我々が実装すべきは、`Application_ItemSend` イベントを通じた「同期的な割り込み制御」である。このイベントの引数 `Cancel` を `True` に設定することで、Outlookは送信プロセスを即座に中断する。これにより、誤送信は物理的に不可能となる。
—
2. プロダクションコード：堅牢な送信ガード実装
このコードは `ThisOutlookSession` モジュールに記述する。単なるIF文の羅列にするのではなく、チェックロジックを分離し、保守性と拡張性を担保するのがプロの流儀だ。
‘ ThisOutlookSession モジュールに記述
Option Explicit
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim mail As MailItem
‘ オブジェクトの型判定（メール以外の場合は無視）
If Not TypeOf Item Is MailItem Then Exit Sub
Set mail = Item
‘ セキュリティポリシーの検証
‘ 戻り値が True の場合、送信をキャンセルする
If IsViolationDetected(mail) Then
Cancel = True
MsgBox “【送信ポリシー違反】” & vbCrLf & _
“送信をキャンセルしました。宛先または添付ファイルを確認してください。”, _
vbCritical, “セキュリティ制御”
End If
End Sub
‘ 送信可否を判定するロジック（ここを外部設定化するのがアーキテクチャの要）
Private Function IsViolationDetected(mail As MailItem) As Boolean
‘ 1. 宛先ドメインチェック（例：外部ドメインへの送信制限）
If InStr(mail.To, “@competitor.com”) > 0 Then
IsViolationDetected = True
Exit Function
End If
‘ 2. 添付ファイル強制チェック（例：特定のファイル名が含まれない場合）
‘ ※このロジックは社内DBや設定ファイルから読み込む設計にすべき
If mail.Attachments.Count = 0 Then
‘ 添付がないと判断できない機密メールの場合など
End If
IsViolationDetected = False
End Function
—
3. 設計上の注意点：パフォーマンスと保守性
このコードを実務に投入する際、以下の3点に注意せよ。これを見落とすと、運用開始後に必ず泣きを見ることになる。
A. 外部リソース（DB/CSV）との連携
上記の `IsViolationDetected` 内で、毎回テキストファイルやDBを読みに行く実装は愚策だ。Outlookの起動時や初回送信時にメモリ上のコレクション（`Scripting.Dictionary`）へ設定情報をロードし、比較は常にメモリ内で行うこと。I/Oボトルネックを送信処理に持ち込んではならない。
B. 「例外」の許容設計
現場からは「どうしても今だけ送信したい」という要望が必ず上がる。その場合、メールの件名に特定のタグ（例：`[FORCE_SEND]`）が含まれている場合はチェックをスキップする等の「バックドア」を慎重に実装すること。ただし、これには必ずログ出力機能（テキストファイルへの書き出し等）を併設し、監査の追跡可能性を確保せよ。
C. オブジェクトのライフサイクル
`ItemSend` はOutlookのメインスレッドで動作する。ここで重い処理（大規模な正規表現マッチングや複雑なループ）を走らせると、送信ボタンを押した瞬間のOutlookのフリーズを招く。処理は最小限かつ高速に終えることが、ユーザーエクスペリエンスを損なわないための鉄則だ。
—
4. 最後に：エンジニアとしての矜持
VBAは、時として「場当たり的な解決策」として蔑まれることがある。しかし、適切に設計されたVBAは、大規模なシステム改修を行わずとも、既存のデスクトップ環境で強力なセーフティネットを構築できる、極めてコストパフォーマンスの高い武器だ。
「なぜこのチェックが必要なのか」というポリシーをコードに落とし込み、それを動的に管理する。これこそが、業務自動化エンジニアが組織に対して提供できる最大の価値である。
さあ、あなたの環境でもこの「防壁」を実装し、ヒューマンエラーという名の負債をコードで消し去ってほしい。
