【鉄壁の誤送信対策】Outlook VBA：BeforeSendイベントによる宛先ドメイン検証の極意
諸君。業務自動化の現場において「メールの誤送信」は、単なるヒューマンエラーではない。それは企業の社会的信用を瞬時に灰にする、システム管理者にとっての最大の悪夢だ。
巷のチュートリアルでは「ボタン一つで送信」といった安直なコードが溢れているが、我々エンジニアが対峙すべきは、「Outlookのイベント駆動の脆弱性」と「メモリ管理の厳格さ」だ。今回は、`ItemSend`イベントを掌握し、宛先ドメインをリアルタイムで検閲する堅牢な実装を解説する。
—
1. なぜ「送信ボタン」ではなく「ItemSend」なのか
多くの初学者は、メール作成画面の送信ボタンにマクロを紐付けようとする。しかし、それは愚策だ。キーボードショートカット（Ctrl+Enter）や、外部アプリケーションからのAPI呼び出しによる送信を排除できないからだ。
真のアーキテクトは、Outlookのセッションレベルで発生する `Application_ItemSend` イベントを監視する。これはメールが送信キューに乗る直前の「最後の検問所」である。
2. 実装の核心：BeforeSendバリデーション
以下のコードは、単にドメインをチェックするだけではない。`Cancel` 引数を制御することで、送信プロセスを物理的に中断させる仕組みだ。
必須設定
このコードは、`ThisOutlookSession` モジュールに記述する必要がある。
Option Explicit
‘ メールの送信直前に割り込む最強のフック
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim mail As MailItem
Dim recipient As Recipient
Dim domain As String
Dim isExternal As Boolean
‘ 処理対象がMailItemであることを厳格に確認
If TypeOf Item Is MailItem Then
Set mail = Item
‘ 受信者オブジェクトを走査
For Each recipient In mail.Recipients
‘ SMTPアドレスを抽出（Exchange環境ではEX形式が混在するため注意が必要）
domain = GetDomainFromRecipient(recipient)
‘ 自社ドメイン以外を検知（例: example.co.jp）
If InStr(LCase(domain), “example.co.jp”) = 0 Then
isExternal = True
Exit For
End If
Next recipient
‘ 外部宛が含まれる場合の警告とキャンセル処理
If isExternal Then
If MsgBox(“警告: 社外宛のアドレスが含まれています。” & vbCrLf & _
“送信を続行しますか？”, vbExclamation + vbYesNo, “誤送信防止チェック”) = vbNo Then
Cancel = True ‘ 送信を完全にブロック
End If
End If
End If
‘ オブジェクトの明示的解放（メモリリークを防ぐ鉄則）
Set mail = Nothing
End Sub
‘ 宛先からドメインのみを抽出するプライベート関数
Private Function GetDomainFromRecipient(recipient As Recipient) As String
Dim smtpAddress As String
smtpAddress = recipient.Address
‘ プロパティの取得失敗を考慮しつつドメインを切り出す
If InStr(smtpAddress, “@”) > 0 Then
GetDomainFromRecipient = Split(smtpAddress, “@”)(1)
Else
GetDomainFromRecipient = “”
End If
End Function
—
3. シニアエンジニアが意識すべき「隠れた地雷」
このコードをそのまま稼働させるだけでは不十分だ。現場で生き残るためには、以下の3点を脳に刻め。
① Exchange環境における「SMTPアドレス問題」
Outlookの `Recipient.Address` は、内部的なExchange識別子（/o=…）を返す場合がある。これをそのまま `Split` してもドメインは取れない。
- 解法: `PropertyAccessor` を使い、`”http://schemas.microsoft.com/mapi/proptag/0x39FE001E”` (PR_SMTP_ADDRESS) を直接取得する実装へ昇華させること。これがプロの品質だ。
② メモリ解放の徹底
VBAはガベージコレクションを自前で制御できない。特にOutlookのような常駐プロセスでオブジェクトの `Set = Nothing` を怠ると、数日間の稼働でプロセスのメモリフットプリントは肥大化し、最悪の場合Outlookのクラッシュを招く。`Item` や `MailItem` の解放は呼吸をするように行え。
③ Windows APIによる更なる深淵へ
もし、社外秘フラグが立っているメールに対してより強力な制御（特定の宛先以外は絶対に拒否するなど）が必要な場合は、`User32.dll` の `MessageBoxTimeout` APIを使用することを推奨する。
- 理由：標準の `MsgBox` はユーザーが応答するまでスレッドを完全にブロックする。大規模な自動化環境ではこれがデッドロックの原因となるため、タイムアウト付きダイアログで「強制的に送信を棄却する」設計が極めて重要だ。
—
結論
ツールやAIが進化しても、VBAというレガシーの根幹を理解している者は強い。`ItemSend` を制する者は、Outlookという巨大なブラックボックスを制する。
まずはこのコードを実装し、自身の環境で挙動を検証せよ。そして、自社のセキュリティポリシーに合わせ、より厳格なバリデーションへと拡張していくことだ。それが、エンジニアとしての「防衛」である。
質問があればいつでも来い。ただし、ドキュメントを読めば分かるような浅い質問は不要だ。現場で直面した「なぜか動かない」という泥臭いエラーのスタックトレースを携えてくることを期待する。
