1. プロローグ：なぜ、あなたの「誤送信防止マクロ」は現場で牙を剥くのか
エンタープライズ環境における情報漏洩対策として、最も費用対効果が高いとされる「Outlookの送信前宛先チェックマクロ」。しかし、ネット上に転がっている入門レベルのコードをそのまま社内に配備した瞬間、システム管理者は鳴り止まない問い合わせの嵐に直面することになる。
- 「外部ドメイン宛てなのに警告が出ずに送信された」
- 「組織内の宛先なのに、毎回『外部宛て』と誤判定されて鬱陶しい」
- 「送信ボタンを押した瞬間にOutlookがフリーズ（応答なし）する」
これらの悲劇はすべて、Outlookオブジェクトモデル（OOM）のライフサイクル管理不足、Exchange Server（MAPI）の内部仕様に対する無理解、そしてシングルスレッド（STA）で動作するVBAの「同期制御」の甘さが引き起こしている。
本稿では、レガシーなVBA環境でありながら、ミッションクリティカルな実用に耐えうる「極限の誤送信防止エンジン」を構築する。
単なるテキスト比較にとどまらない、MAPIプロパティへの直接アクセス、Windows APIを駆使したモーダル制御、そしてCOM参照カウンタを完全に制御するメモリ管理の真髄を提示しよう。
—
2. アーキテクチャ設計：Outlookオブジェクトモデルの深淵とライフサイクル
実装に入る前に、我々が対峙するOutlookオブジェクトモデル（OOM）の構造を脳内に叩き込んでおく必要がある。
[Application] (Outlook.Application)
│
├── [Session] (NameSpace – “MAPI”)
│
└── [ItemSend Event] (送信割り込み)
│
└── [MailItem]
│
└── [Recipients] (宛先コレクション)
│
└── [Recipient]
│
└── [AddressEntry] ──── [PropertyAccessor]
(PR_SMTP_ADDRESS)
2.1 ItemSendイベントの罠と「Cancel」の確実な伝播
送信イベントは `Application_ItemSend(ByVal Item As Object, Cancel As Boolean)` でフックする。
ここで最も重要なのは、`Cancel = True` をセットした後のオブジェクトの解放である。
送信がキャンセルされた場合、`MailItem`は下書き（Inspector）状態のまま残る。この時、VBA側でグローバル変数やイベントハンドラが不用意にMailItemの強参照を保持し続けると、メモリリーク（COM参照カウンタの残留）が発生し、Outlook終了時にプロセス（`OUTLOOK.EXE`）がゴースト化して残留する原因となる。
2.2 Exchangeアドレス（EX）とSMTPアドレスの「二重螺旋」
社内便（Exchange Server / Microsoft 365）環境において、`Recipient.Address` は必ずしも `user@domain.com` のようなSMTP形式を返さない。
多くの場合、以下のようなEX形式（X.500識別名）の文字列が返される。
`/o=ExchangeLabs/ou=Exchange Administrative Group/cn=Recipients/cn=…`
この文字列に対して単純な `@` やドメイン名の文字列比較（`InStr`や`Like`）を行うと、ドメインの判定をすり抜け、最悪の「誤送信」を許すことになる。
これを防ぐには、`AddressEntry` オブジェクトから、MAPIプロパティタグ `PR_SMTP_ADDRESS` (`0x39FE001E`) を `PropertyAccessor` 経由で強制的に引き抜く必要がある。
2.3 Win32 APIによる「最前面（System Modal）警告」の必然性
VBA標準の `MsgBox` 関数は、シングルスレッドであるOutlookのメインウィンドウ（Explorer/Inspector）に対してモーダルで動作する。しかし、ユーザーが他のアプリケーション（TeamsやExcelなど）をアクティブにしている最中にバックグラウンドでメールが送信された場合（アドインや自動配信システムなど）、この `MsgBox` は背後に隠れてしまい、Outlook全体をフリーズさせるデッドロックを引き起こす。
この問題を解決するため、Windows APIの `MessageBoxW` を直接コールし、`MB_SYSTEMMODAL`（システム最前面）かつ `MB_SETFOREGROUND`（フォアグラウンド強制）のフラグを立ててダイアログを励起させる。
—
3. 極限の実装：エンタープライズグレードの「誤送信防止」エンジン
以下のコードを、Outlook VBAの `ThisOutlookSession` モジュールに配置する。
このマクロは、社内ホワイトリスト（許可ドメイン）以外の宛先が含まれている場合、警告ダイアログを出し、送信を強制キャンセルするか否かをユーザーに問うものである。
‘ ==============================================================================
‘ Module : ThisOutlookSession
‘ Dependency : Windows API (User32.dll)
‘ Arch : 32bit / 64bit Dual Compatibility (VBA7)
‘ Description: Enterprise-grade Auto-Recipient Domain Checker
‘ ==============================================================================
Option Explicit
If VBA7 Then
‘ 64bit/32bit両対応のWin32 API宣言
Private Declare PtrSafe Function MessageBoxW Lib “user32” ( _
ByVal hWnd As LongPtr, _
ByVal lpText As LongPtr, _
ByVal lpCaption As LongPtr, _
ByVal uType As Long) As Long
Private Declare PtrSafe Function GetActiveWindow Lib “user32” () As LongPtr
Else
‘ レガシー32bit環境用
Private Declare Function MessageBoxW Lib “user32” ( _
ByVal hWnd As Long, _
ByVal lpText As Long, _
ByVal lpCaption As Long, _
ByVal uType As Long) As Long
Private Declare Function GetActiveWindow Lib “user32” () As Long
End If
‘ Windows MessageBox定数
Private Const MB_YESNO As Long = &H4&
Private Const MB_ICONWARNING As Long = &H30&
Private Const MB_DEFBUTTON2 As Long = &H100& ‘ デフォルトを「いいえ(No)」にして誤送信防止
Private Const MB_SYSTEMMODAL As Long = &H1000& ‘ 画面最前面に強制表示
Private Const MB_SETFOREGROUND As Long = &H10000& ‘ フォーカス強制奪取
Private Const IDYES As Long = 6
‘ MAPI プロパティタグ (PR_SMTP_ADDRESS)
Private Const PR_SMTP_ADDRESS As String = “http://schemas.microsoft.com/mapi/proptag/0x39FE001E”
‘ ==============================================================================
‘ Event Handler: Application_ItemSend
‘ ==============================================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo ErrorHandler
‘ 送信対象がMailItemでない場合は即時スルー
If Not TypeOf Item Is Outlook.MailItem Then Exit Sub
Dim objMail As Outlook.MailItem
Set objMail = Item
‘ 1. 社内（ホワイトリスト）ドメインの定義
‘ 実際の運用に合わせて変更してください（すべて小文字で記述）
Dim allowedDomains As Variant
allowedDomains = Array(“mycompany.co.jp”, “subsidiary.com”)
‘ 2. 宛先（To/Cc/Bcc）の抽出とドメイン検証
Dim objRecipients As Outlook.Recipients
Set objRecipients = objMail.Recipients
Dim unsafeRecipients As String
unsafeRecipients = “”
Dim i As Long
For i = 1 To objRecipients.Count
Dim objRecip As Outlook.Recipient
Set objRecip = objRecipients.Item(i)
‘ 宛先アドレスの完全なSMTP形式を取得
Dim smtpAddress As String
smtpAddress = GetRawSmtpAddress(objRecip)
‘ ドメイン部分の抽出
Dim domainName As String
domainName = ExtractDomain(smtpAddress)
‘ ホワイトリストとの照合
If Not IsAllowedDomain(domainName, allowedDomains) Then
unsafeRecipients = unsafeRecipients & “・” & objRecip.Name & ” <" & smtpAddress & ">” & vbCrLf
End If
‘ COMオブジェクトの早期解放（ループ内リーク防止）
Set objRecip = Nothing
Next i
‘ 3. 外部宛先が検出された場合の警告フェーズ
If Len(unsafeRecipients) > 0 Then
Dim promptMsg As String
promptMsg = “【警告】以下の送信先は社外ドメインです。” & vbCrLf & vbCrLf & _
unsafeRecipients & vbCrLf & _
“本当に送信しますか？” & vbCrLf & _
“※社外秘情報の添付漏れがないか再度確認してください。”
Dim winTitle As String
winTitle = “セキュリティ警告: 外部送信検知”
‘ Win32 APIによる最前面表示のダイアログ起動
Dim parentHWnd As LongPtr
#If VBA7 Then
parentHWnd = GetActiveWindow()
#Else
parentHWnd = GetActiveWindow()
#End If
Dim response As Long
response = MessageBoxW(parentHWnd, StrPtr(promptMsg), StrPtr(winTitle), _
MB_YESNO Or MB_ICONWARNING Or MB_DEFBUTTON2 Or MB_SYSTEMMODAL Or MB_SETFOREGROUND)
‘ 「はい」を選択しなかった場合は送信をキャンセル
If response <> IDYES Then
Cancel = True
End If
End If
CleanUp:
‘ 参照カウンタを確実に減らすための明示的解放（LIFO順）
Set objRecipients = Nothing
Set objMail = Nothing
Exit Sub
ErrorHandler:
‘ 予期せぬエラー発生時は、セキュリティ担保のため「安全側に倒して送信をキャンセル」する
Cancel = True
MsgBox “宛先解析中にエラーが発生したため、送信を安全にキャンセルしました。” & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ Helper Function: GetRawSmtpAddress
‘ ExchangeのEXアドレスと標準SMTPアドレスの差異を吸収して確実にSMTPを返す
‘ ==============================================================================
Private Function GetRawSmtpAddress(ByVal recip As Outlook.Recipient) As String
On Error GoTo Fallback
Dim smtpAddr As String
smtpAddr = “”
‘ 1. Typeが olExchangeUser などの場合、PropertyAccessorからPR_SMTP_ADDRESSをダイレクト取得
Dim objAddrEntry As Outlook.AddressEntry
Set objAddrEntry = recip.AddressEntry
If Not objAddrEntry Is Nothing Then
‘ MAPIプロパティから直接SMTPアドレスのプロパティタグを叩く
Dim propAccessor As Outlook.PropertyAccessor
Set propAccessor = objAddrEntry.PropertyAccessor
smtpAddr = CStr(propAccessor.GetProperty(PR_SMTP_ADDRESS))
Set propAccessor = Nothing
End If
Fallback:
‘ 2. PropertyAccessorで取得できない、またはエラー時は標準のAddressプロパティにフォールバック
If Len(Trim(smtpAddr)) = 0 Then
smtpAddr = recip.Address
End If
Set objAddrEntry = Nothing
GetRawSmtpAddress = LCase(Trim(smtpAddr))
End Function
‘ ==============================================================================
‘ Helper Function: ExtractDomain
‘ ==============================================================================
Private Function ExtractDomain(ByVal email As String) As String
Dim atPos As Long
atPos = InStrRev(email, “@”)
If atPos > 0 Then
ExtractDomain = Mid(email, atPos + 1)
Else
ExtractDomain = email
End If
End Function
‘ ==============================================================================
‘ Helper Function: IsAllowedDomain
‘ ==============================================================================
Private Function IsAllowedDomain(ByVal targetDomain As String, ByVal allowedList As Variant) As Boolean
Dim item As Variant
For Each item In allowedList
If targetDomain = CStr(item) Then
IsAllowedDomain = True
Exit Function
End If
Next item
IsAllowedDomain = False
End Function
—
4. 深淵の解説：コードの裏に隠されたアーキテクチャの必然性
このコードが、なぜ「エンタープライズ品質」を名乗るに値するのか。その技術的理由を紐解く。
4.1 PropertyAccessorによるMAPI抽象化レイヤーの突破
`GetRawSmtpAddress` 関数内で行っている処理は極めて重要である。
smtpAddr = CStr(propAccessor.GetProperty(PR_SMTP_ADDRESS))
Outlookの `Recipient.Address` プロパティは、Exchange環境において「X.500形式」を返す。これはActive Directory内のオブジェクトのパスに過ぎず、インターネットメールとしてのドメイン名を含まない。
そこで、MAPI（Messaging Application Programming Interface）の「`PR_SMTP_ADDRESS`」（プロパティタグ `0x39FE001E`）を `PropertyAccessor` を使って直接参照している。
これにより、Outlook内部のキャッシュやグローバルアドレス一覧（GAL）から、バックエンドで自動的に解決された真のSMTPアドレスを引き抜くことが可能となる。
4.2 ループ内におけるCOMオブジェクトの「局所解放」
VBAは参照カウンタ方式のガベージコレクションを採用している。
多くのVBAプログラマは、プロシージャの最後に `Set obj = Nothing` を書けば十分だと誤解しているが、`For i = 1 To objRecipients.Count` のようなループ処理の中で、毎回 `objRecipients.Item(i)` によって生成される一時的な `Recipient` オブジェクトは、ループの各ステップで明示的に `Nothing` を代入して解放しなければ、プロシージャを抜けるまでメモリ空間（ヒープ領域）にスタックされ続ける。
宛先が数十、数百におよぶ同報メール送信時、このメモリリークはOutlookのメモリを圧迫し、不規則なクラッシュを引き起こす。コード内で `Set objRecip = Nothing` をループの終端で徹底しているのはこのためである。
4.3 フェイルセーフ（Fail-Safe）設計の遵守
`ErrorHandler` に注目してほしい。
ErrorHandler:
Cancel = True
MsgBox “宛先解析中にエラーが発生したため、送信を安全にキャンセルしました。”
セキュリティ自動化ツールにおいて最も犯してはならない大罪は、「エラーが起きたから、そのまま送信を通してしまう」ことである。
万が一、想定外の形式のメールが作成されたり、MAPIセッションが一時的に切断されて `GetProperty` が失敗した場合、このマクロは `Cancel = True` を持って送信を「強制阻止」する。
利便性よりも機密性を最優先する、真の防壁としての設計思想である。
—
5. 実務での運用とデプロイメントの罠
どれほど優れたコードであっても、数千人規模のエンタープライズ環境へデプロイできなければ無価値である。管理者として直面する「現実の壁」を突破する処方箋を提示する。
5.1 デジタル署名（Self-Cert）とグループポリシー（GPO）の壁
VBAマクロをユーザーの環境で動作させるには、Outlookのセキュリティ設定が障壁となる。
全社員のPCの「マクロのセキュリティ設定」を「すべてのマクロを有効にする（危険）」に設定することは、セキュリティ担当者として断じて許されない。
1. 社内プライベートCAによるコード署名:
AD CS（Active Directory証明書サービス）等を用いて、マクロ制作者用のコード署名証明書を発行し、VBAプロジェクトにデジタル署名を行う。
2. GPOによる配布:
グループポリシーオブジェクト（GPO）を用いて、以下のレジストリキーを制御する。
- `HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\16.0\outlook\security`
- 値名 `Level` を `3`（デジタル署名されたマクロのみ実行、未署名は無効）に設定。
- 信頼された証明書機関（ルート証明書）として社内CAを配布しておくことで、ユーザーに一切の警告を出すことなく、バックグラウンドでマクロを確実に実行可能とする。
5.2 アドイン（VSTO / COM Add-in）への移行ロードマップ
VBAによるプロトタイピングと初期配備が成功した後は、C#（VSTO: Visual Studio Tools for Office）またはアドインへの移植を視野に入れるべきである。
VBAは、ユーザーが「開発」タブから容易にコードを変更・削除できてしまう脆弱性を孕んでいる。
C#へ移行する際も、本稿で解説した `PropertyAccessor` による `PR_SMTP_ADDRESS` の取得ロジック、および `Marshal.ReleaseComObject()` による徹底したCOMオブジェクトの解放戦略は、そのままC#のコードへと直写される。
本VBA実装は、頑健なC#アドインを構築するための「設計仕様書」そのものなのである。
—
6. エピローグ：レガシーを「究極」に昇華させること
VBAを「過去の遺物」と侮る者は、システムの実相が見えていない。
OSのAPI、OfficeのCOMオブジェクトモデル、そして企業の根幹を支えるメッセージングシステムの仕様を完全に理解した者が書くVBAコードは、いかなる最新のSaaSツールよりも、現場の最後の防波堤として強固に機能する。
このコードをあなたの組織のOutlookに組み込み、その堅牢性を実感してほしい。システム管理者の平穏な夜は、こうした1行のコードに対する執念によって守られている。
