Outlook VBAの深淵：実用に耐える「誤送信防止」マクロの極限設計
ビジネスにおけるメールの誤送信は、単なる「うっかりミス」では済まされない。機密情報の漏洩、社会的信用の失墜、そして最悪の場合は損害賠償へと発展する、企業にとって致命的なリスクである。
ネット上には多くの「誤送信防止VBA」のサンプルコードが転がっている。しかし、その多くは実務の現場（プロダクション環境）では全く使い物にならない。なぜなら、Exchange環境特有のアドレス解決（EXアドレス問題）や、COMオブジェクトのライフサイクル管理、大量の宛先が含まれる場合のパフォーマンス低下を考慮していないからだ。
本稿では、世界最高峰のOutlook VBAアーキテクトの視点から、「バグが起きず、極めて堅牢で、保守性の高い」誤送信防止ツールの実装方法を徹底的に解説する。
—
1. 既存の「コピペコード」が孕む致命的な欠陥
まずは、よくある「動くだけの素人コード」がなぜ危険なのか、技術的な理由を脳裏に刻み込んでほしい。
欠陥1：`MailItem.To` や `Cc` などの「文字列」をパースしている
‘ 【最悪の悪手】絶対にやってはいけない実装例
If InStr(Item.To, “@external.com”) = 0 Then …
Outlookの`MailItem.To`や`Cc`プロパティは、宛先に表示されている「表示名（例: 山田 太郎）」を返すことが多く、実際のメールアドレスを確実に取得できる保証がどこにもない。この方法でドメインチェックを行うのは、セキュリティ対策として完全に破綻している。
欠陥2：Exchange Server環境での「EXアドレス」を考慮していない
社内メール環境がMicrosoft ExchangeやMicrosoft 365の場合、社内宛のアドレスは `yamada@company.com` のようなSMTP形式ではなく、以下のようなEX形式（LegacyExchangeDN）で返ってくる。
`/o=ExchangeLabs/ou=Exchange Administrative Group/cn=Recipients/cn=…`
これを通常の文字列処理でドメイン判定しようとすると、すべて「外部ドメイン」と判定されるか、あるいは判定をすり抜けてしまう。
欠陥3：COMオブジェクトの解放漏れ
VBAからOutlookの内部オブジェクトにアクセスする際、ループ内で生成されたオブジェクト（`Recipient`など）を適切に解放（`Set = Nothing`）しないと、Outlookのメモリリークを引き起こし、送信後にOutlookがフリーズする、あるいは「送信トレイ」にメールがスタックする原因となる。
—
2. 堅牢なアーキテクチャ設計
これらの課題をクリアするため、我々が設計するプロダクションコードは以下の3原則を徹底する。
[Application_ItemSend イベント発生]
│
▼
[Recipients コレクションの走査]
│
├─► [各宛先の AddressEntry から SMTPアドレス を抽出]
│ ※ PropertyAccessor (PR_SMTP_ADDRESS) を使用してEXアドレスを完全回避
│
▼
[ドメイン解析とホワイトリスト比較]
│
├─► すべて社内（許可）ドメイン ──► 送信許可
│
└─► 外部ドメインを検知
│
▼
[警告ダイアログの表示]
(宛先・件名を明示し、ユーザーに「送信」の直接入力を要求)
│
├─► ユーザーが同意 ──► 送信許可
└─► キャンセル ──────► 送信中止 (Cancel = True)
鍵となる技術：`PR_SMTP_ADDRESS` の直接参照
宛先オブジェクト（`Recipient`）から、表示名やEXアドレスに惑わされずに「本物のSMTPメールアドレス」を一撃でブチ抜くには、MAPIプロパティである `http://schemas.microsoft.com/mapi/proptag/0x39FE001E` （`PR_SMTP_ADDRESS`）を `PropertyAccessor` 経由で取得するのが最も高速かつ確実である。
—
3. プロダクションコード：誤送信防止マクロ
このコードは、Outlookの `ThisOutlookSession` モジュールに記述する。コピペしてすぐに動作するだけでなく、実務に耐えうるエラーハンドリングとメモリ管理を徹底している。
Option Explicit
‘ ==============================================================================
‘ システム名 : 誤送信防止・ドメインバリデーター
‘ 開発者 : チーフアーキテクト
‘ 動作環境 : Outlook 2016 / 2019 / 365 (32bit/64bit)
‘ ==============================================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo ErrorHandler
‘ 送信対象がメールアイテムではない場合はスルー
If Not TypeOf Item Is Outlook.MailItem Then Exit Sub
Dim mail As Outlook.MailItem
Set mail = Item
‘ ————————————————————————–
‘ 定数・設定定義
‘ ————————————————————————–
‘ 社内ドメイン（ホワイトリスト）を配列で定義。大文字小文字は区別しない。
Dim trustedDomains As Variant
trustedDomains = Array(“your-company.com”, “group-subsidiary.co.jp”)
‘ MAPIプロパティタグ（PR_SMTP_ADDRESS）
Const PR_SMTP_ADDRESS As String = “http://schemas.microsoft.com/mapi/proptag/0x39FE001E”
‘ ————————————————————————–
‘ 宛先解析処理
‘ ————————————————————————–
Dim recips As Outlook.Recipients
Set recips = mail.Recipients
Dim recip As Outlook.Recipient
Dim smtpAddress As String
Dim domain As String
Dim isExternal As Boolean
Dim externalList As String
Dim i As Long
externalList = “”
‘ 全ての宛先（To, Cc, Bcc）をループ処理
For i = 1 To recips.Count
Set recip = recips.Item(i)
‘ Resolveが通っていない宛先はスキップ、または強制解決
If Not recip.Resolved Then
recip.Resolve
End If
‘ PropertyAccessorを利用して、Exchange環境でも確実にSMTPアドレスを取得
On Error Resume Next
smtpAddress = recip.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
On Error GoTo ErrorHandler
‘ フォールバック処理（万が一MAPIから取得できない場合）
If smtpAddress = “” Then
smtpAddress = recip.Address
End If
‘ メールアドレスからドメインパートを抽出
domain = GetDomainFromAddress(smtpAddress)
‘ ホワイトリストとの照合
isExternal = True
Dim trustedDomain As Variant
For Each trustedDomain In trustedDomains
If LCase(domain) = LCase(CStr(trustedDomain)) Then
isExternal = False
Exit For
End If
Next trustedDomain
‘ 外部ドメイン判定された宛先をリストアップ
If isExternal Then
externalList = externalList & “・ ” & recip.Name & ” <" & smtpAddress & "> (” & GetRecipientTypeStr(recip.Type) & “)” & vbCrLf
End If
‘ メモリ解放
Set recip = Nothing
Next i
‘ ————————————————————————–
‘ 警告および送信可否判定
‘ ————————————————————————–
If externalList <> “” Then
‘ 外部宛先が存在する場合、ユーザーに超強力な警告を表示する
Dim alertMessage As String
alertMessage = “【⚠️ 警告：外部宛の送信を検知しました】” & vbCrLf & vbCrLf & _
“以下の宛先は社外（許可外ドメイン）です。本当に送信しますか？” & vbCrLf & _
“————————————————–” & vbCrLf & _
externalList & _
“————————————————–” & vbCrLf & _
“件名: ” & mail.Subject & vbCrLf & vbCrLf & _
“送信する場合は、以下のテキストボックスに「SEND」と半角大文字で入力してください。”
Dim userInput As String
userInput = InputBox(alertMessage, “外部送信の最終承認”, “”)
If userInput <> “SEND” Then
‘ 送信をキャンセル
Cancel = True
MsgBox “送信をキャンセルしました。宛先および内容を再確認してください。”, vbExclamation, “送信キャンセル”
End If
End If
CleanUp:
‘ COMオブジェクトを明示的に解放（メモリリーク・プロセス残留防止）
Set recip = Nothing
Set recips = Nothing
Set mail = Nothing
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した場合は、安全側に倒して送信を強制ブロックする（セキュア・フェイル）
Cancel = True
MsgBox “エラーが発生したため、安全を考慮して送信を強制中断しました。” & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “セキュリティシステムエラー”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ ヘルパー関数群
‘ ==============================================================================
‘ メールアドレスからドメイン部分（@以降）を抽出する
Private Function GetDomainFromAddress(ByVal address As String) As String
Dim atPos As Long
atPos = InStrRev(address, “@”)
If atPos > 0 Then
GetDomainFromAddress = Mid(address, atPos + 1)
Else
GetDomainFromAddress = address
End If
End Function
‘ 宛先のタイプ（To/Cc/Bcc）を文字列で返す
Private Function GetRecipientTypeStr(ByVal rType As Long) As String
Select Case rType
Case olTo: GetRecipientTypeStr = “To”
Case olCC: GetRecipientTypeStr = “Cc”
Case olBCC: GetRecipientTypeStr = “Bcc”
Case Else: GetRecipientTypeStr = “Unknown”
End Select
End Function
—
4. プロフェッショナルな実装の極意（コード解説）
このコードが、なぜ巷に溢れるサンプルコードと一線を画しているのか、その構造的優位性を解説する。
① `PropertyAccessor` による「EX形式アドレス」の完全制覇
Outlook VBA開発者が必ず突き当たる壁が、Exchange環境におけるアドレス取得だ。
通常、`Recipient.Address` は社内宛先に対して `EX` 形式の文字列を返す。このコードでは、`PR_SMTP_ADDRESS` (MAPIプロパティ) を強制的に読み出すことで、相手が社内・社外、あるいはどのようなアドレス帳に登録されていようとも、一貫して「`user@domain.com`」という標準的なSMTP形式で取得している。
② セキュア・フェイル（Secure Fail）の原則
セキュリティ設計において最も重要な哲学が「セキュア・フェイル（安全な失敗）」である。
マクロ実行中に万が一、予期せぬエラー（メモリ不足、予期しないオブジェクトの混入など）が発生した場合、このプログラムは `On Error GoTo ErrorHandler` でエラーを即座にトラップし、`Cancel = True` を設定して送信をブロックする。
「エラーが起きたから、チェックをバイパスして送信してしまった」という最悪のセキュリティホールを完全に排除している。
③ 「YES/NO」ではない、認知負荷をかけるUI
通常の `MsgBox(“送信しますか？”, vbYesNo)` は、ユーザーが日常的に「はい」を連打する癖（クリッカビリティの慣れ）がついているため、誤送信防止の効果が著しく低い。
本コードでは `InputBox` を使用し、「SEND」という特定の文字列をキーボードから手入力させる設計にしている。この「一手間」が、ユーザーの脳を強制的に覚醒させ、誤送信を劇的に減らすトリガーとなる。
—
5. 実務運用に向けた「次の一手」
このマクロを組織全体、あるいはチーム内で運用するにあたり、アーキテクトとして考慮すべきポイントが2点ある。
1. ホワイトリストの外部ファイル（またはレジストリ）化
上記のコードでは、信頼するドメイン（`trustedDomains`）をVBAコード内に直接ハードコードしている。
もし、組織の統廃合や新規ドメインの追加が頻繁に行われる環境であれば、このリストを外部ファイル（ネットワーク上の共有フォルダに置いた `settings.ini` など）から動的に読み込む設計にカスタマイズすることを推奨する。
2. デジタル署名による配布
作成したマクロを他者のPCで実行させる場合、Outlookのセキュリティ設定で「すべてのマクロを無効にする」となっていると動作しない。
これを回避するために、社内のプライベート認証局、または自己署名証明書（`SelfCert.exe`）を使用してプロジェクトにデジタル署名を施し、信頼された発行元として登録するプロセスをデプロイ手順に組み込むべきだ。
—
結論
誤送信防止マクロは、単に「動けばいい」というレベルのツールではない。企業のセキュリティラインを死守する「防波堤」である。
今回紹介したオブジェクトライフサイクルの管理、MAPIプロパティを用いた確実なアドレス解決、そしてセキュア・フェイル思想に基づいた設計を取り入れ、プロフェッショナルの名に恥じない、極めて堅牢な自動化システムを構築していただきたい。
