【実務・中級編】【中級者向け】メール送信時に「送信待ち」状態を検知し、特定の条件で送信をキャンセルするイベントハンドリング – Outlook VBA解析バイブル

Outlook VBAを掌握する極限の知見：`Application_ItemSend`で送信事故を根絶する「門番」の構築

開発プロジェクトの現場において、メールの誤送信は「ヒューマンエラー」で片付けられてはならない致命的なインシデントだ。機密情報の外部流出、宛先ミスによる顧客情報の漏洩、社外秘ファイルの添付忘れ――。これらを個人の注意力に依存して防ごうとする設計は、エンジニアリングの放棄に他ならない。

真に堅牢なシステムとは、人間がミスをする生き物であることを前提に、システム側で強制的にガードレールを敷くものである。

今回は、Outlook VBAの中核をなすイベント `Application_ItemSend` を完全に掌握し、送信直前のメールを検知・検証、そして不適切な条件を検知した場合には容赦なく送信をキャンセルする「極限まで堅牢な門番（ガード）」の実装手法を伝授する。

—

なぜ「送信時チェック」の設計は難航するのか？

多くの開発者がやりがちな過ちは、各メールアイテム（`MailItem`）個別のイベントに頼ることだ。しかし、日常的に大量のメールを処理する環境において、個別のインスタンスを監視し続けるアプローチはメモリリークやイベントロストの温床となる。

Outlook VBAでメール送信プロセスを統御するためには、`Application` オブジェクトレベルのグローバルイベントを唯一のエントリーポイントとし、そこで全ての送信トランザクションをインターセプト（横取り）しなければならない。

`Application_ItemSend` の仕様と罠

このイベントは、ユーザーが「送信」ボタンを押した瞬間、実際にSMTPサーバーへ送出されるほんの一瞬前に発火する。
イベントシグネチャは以下の通りだ。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

• `Item`: 送信されようとしているアイテム（`MailItem`とは限らず、`AppointmentItem`や`MeetingItem`の可能性もある）。
• `Cancel`: `True` を代入することで、送信処理を即座に中断し、編集画面を維持したままユーザーに制御を返すことができる。

この `Cancel = True` をいかにスマートに、かつ誤検知なく制御するか。それが本稿の核心である。

—

プロダクション品質：堅牢な送信ガード実装コード

以下のコードは、単なるサンプルではない。実務の現場でそのまま稼働させられるよう、オブジェクトの型安全性の担保、例外処理、そして外部設定（ホワイトリスト等）との連携を視野に入れたアーキテクチャで構築している。

このコードは、必ず `ThisOutlookSession` モジュールに配置すること。標準モジュールでは `Application` イベントを捕捉できない。

Option Explicit

‘ =========================================================================
‘ módulo: ThisOutlookSession
‘ 概要: アプリケーション全体の送信イベントを監視し、ポリシー違反をブロックする
‘ =========================================================================

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo ErrorHandler

‘ 1. 対象アイテムの型判定 (メール以外の送信(会議招集等)を誤爆させない)
If Not TypeOf Item Is MailItem Then Exit Sub

Dim mail As MailItem
Set mail = Item

‘ 2. デバッグ用・例外処理用バイパスフラグの確認（件名に特定ワードが含まれる場合はスキップ等）
If InStr(mail.Subject, “[Bypass-Check]”) > 0 Then Exit Sub

‘ 3. 【検証ロジック 1】社外宛先への送信におけるドメインチェック
If HasExternalRecipientViolation(mail) Then
MsgBox “【送信中止】社外秘の宛先が含まれているか、許可されていないドメインへの送信が含まれています。”, _
vbCritical + vbOKOnly, “セキュリティガード”
Cancel = True
Exit Sub
End If

‘ 4. 【検証ロジック 2】添付ファイル必須判定（特定の件名キーワードがある場合）
If RequiresAttachment(mail) And mail.Attachments.Count = 0 Then
MsgBox “【送信中止】この件名には添付ファイルが必須ですが、ファイルが添付されていません。”, _
vbCritical + vbOKOnly, “添付ファイルチェック”
Cancel = True
Exit Sub
End If

‘ すべてのチェックを通過
Exit Sub

ErrorHandler:
‘ 予期せぬエラーで送信自体がブロックされるのを防ぐ（業務停止回避）
MsgBox “送信チェック処理中にエラーが発生しました: ” & Err.Description, vbExclamation, “VBA Guard Error”
‘ 本番環境のポリシーに応じて、エラー時の挙動（強制キャンセルか、スルーか）を選択すること
‘ ここでは安全のためキャンセルはせずログに留めるか、厳格に止めるなら Cancel = True
End Sub

‘ ————————————————————————-
‘ 外部ドメイン違反チェック関数
‘ ————————————————————————-
Private Function HasExternalRecipientViolation(ByRef mail As MailItem) As Boolean
Dim recip As Recipient
Dim internalDomain As String
internalDomain = “@your-company.co.jp” ‘ 自社のドメイン定義

Dim isExternalFound As Boolean
isExternalFound = False

For Each recip In mail.Recipients
‘ 組織外のアドレスか簡易判定（EXアドレスやSMTPアドレスのパース）
If InStr(LCase(recip.Address), internalDomain) = 0 Then
‘ ここに厳格なホワイトリスト判定や、機密フラグとの組み合わせロジックを挿入可能
isExternalFound = True
Exit For
End If
Next recip

‘ 例：特定の重要機密フラグが立っている場合のみ外部送信を厳しく制限するなど
HasExternalRecipientViolation = isExternalFound
End Function

‘ ————————————————————————-
‘ 添付ファイル必須判定関数
‘ ————————————————————————-
Private Function RequiresAttachment(ByRef mail As MailItem) As Boolean
‘ 件名に「【要添付】」が含まれているかを判定
If InStr(mail.Subject, “【要添付】”) > 0 Then
RequiresAttachment = True
Else
RequiresAttachment = False
End If
End Function

—

アーキテクチャの解説：なぜこの設計なのか？

1. `TypeOf` による厳密な型絞り込み

Outlookでは、メールだけでなくカレンダーの予定やタスクも「送信」されることがある。`Item` を無条件に `MailItem` としてキャストすると、会議招集の送信時に型ミスマッチエラーを引き起こす。必ず `TypeOf Item Is MailItem` でガードをかけよ。

2. 業務停止を防ぐ `On Error GoTo` の鉄則

セキュリティコードで最もやってはいけないのは、「VBAのエラーによってユーザーが一切メールを送れなくなる事態」だ。MAPIの仕様変更や予期せぬプロパティの欠損によってマクロがクラッシュした場合でも、業務が完全にマヒしないよう、エラーハンドラを実装し、フォールバックの動線を確保している。

3. スケーラビリティ：データベースや外部ファイル連携への拡張

今回のサンプルコードではハードコーディングによるドメインチェックを行っているが、実務の現場では、これらを固定値で持たせてはならない。
組織改編やクライアントの増減に対応するため、この判定ロジックの部分を以下のように拡張すべきである。

• 外部CSV / JSON / SQLiteからの動的ホワイトリスト読み込み
• Active Directory (AD) / 組織アドレス帳とのAPI連携

例えば、`HasExternalRecipientViolation` 関数の中で外部のマスターファイルを参照する設計にしておけば、コードを一切書き換えることなく、企業のセキュリティポリシーの変更に追従できる。

—

チーフアーキテクトからの最終提言

VBAによるメール制御は、一歩間違えると「ユーザーのイライラを煽るだけの邪魔なポップアップ」になり下がる。あるいは、堅牢性を欠いたコードであれば、簡単にセキュリティホールを突かれる。

今回紹介した `Application_ItemSend` を軸としたイベントハンドリングは、正しく実装すれば、企業のコンプライアンスを守る最強の盾となる。
「信じるな、検証しろ（Trust, but verify）」。この原則をあなたのOutlook環境にも実装し、真にモダンでセキュアな自動化基盤を構築してほしい。