「ルール」の限界を超えろ。Outlook VBAで構築する、ヘッダー解析型セキュリティ・ガードマン
こんにちは。技術の深淵へようこそ。
Outlookを使っていると、標準機能の「仕分けルール」に限界を感じる瞬間がありませんか？「特定の差出人なら移動」「特定の単語が含まれていたらフラグ」……。もちろん、これらは素晴らしい機能です。しかし、巧妙に擬態した「なりすましメール」を、単なる差出人名（Display Name）だけで判断できるほど、現代の脅威は甘くありません。
真のセキュリティを実装するには、メールの表面的な情報ではなく、その背後に隠された「通信の足跡（ヘッダー情報）」を読み解く必要があります。
今日は、マクロの記録から一歩踏み出し、Outlookの心臓部であるMAPIプロパティに触れながら、ヘッダー解析によって不審なメールを隔離する、実戦的なセキュリティツールの作り方を伝授しましょう。ここをマスターすれば、あなたのVBAスキルは「自動化」から「システム構築」へと昇華します。
1. なぜ「仕分けルール」では足りないのか？
標準の仕分けルールは、メールの「プロパティ」の一部（差出人、件名、本文）しか見ていません。しかし、なりすましメールは、見た目の差出人名を「信頼できる企業のCEO」に偽装しつつ、実際には全く無関係なサーバーから送られてくるものです。
これを防ぐには、メールの配送経路を記録した`Received`ヘッダーを解析し、「本当に期待している経路を通ってきたか？」を検証しなければなりません。
この「ヘッダーの深層部」へアクセスするには、標準の `MailItem` オブジェクトが提供するプロパティだけでは力不足です。ここで登場するのが、伝説の武器`PropertyAccessor`です。
2. 核心技術：PropertyAccessorによるMAPIへの直接アクセス
Outlookのメールデータは、内部的に「MAPIプロパティ」という形式で管理されています。ヘッダー情報は、通常のプロパティ一覧には出てきませんが、特定の「プロパティ・タグ」を指定することで、魔法のように取り出すことができます。
メールヘッダーを取得するための魔法の呪文（プロパティ・タグ）はこちらです：
`http://schemas.microsoft.com/mapi/proptag/0x007D001F`
これを使うことで、私たちはメールの「履歴書」であるヘッダー情報を丸ごと取得し、文字列として解析できるようになります。
3. 実装：なりすまし検知・隔離システムの設計図
それでは、実際に動くコードを書いていきましょう。今回の設計思想は「信頼できるドメインの配送経路が含まれていないメールは、即座に隔離する」というものです。
事前準備
Outlookの「仕分けルール」で作成するのではなく、`ThisOutlookSession` に直接記述する「イベント駆動型」のプログラムを作成します。
実装コード
以下のコードを、Outlook VBAエディタの `ThisOutlookSession` モジュールに貼り付けてください。
' =================================================================
' セキュリティ・ガードマン：ヘッダー解析型メール隔離スクリプト
' =================================================================
Option Explicit
' 隔離用フォルダの名前
Private Const QUARANTINE_FOLDER_NAME As String = "【隔離】不審メール"
' 信頼するドメイン（例：自社のドメインや提携先）
Private Const TRUSTED_DOMAIN As String = "your-company.com"
' ヘッダー取得用のMAPIプロパティ・タグ
Private Const PR_TRANSPORT_MESSAGE_HEADERS As String = "http://schemas.microsoft.com/mapi/proptag/0x007D001F"
''' <summary>
''' 新しいメールを受信した時に自動実行されるイベント
''' </summary>
Private Sub Application_NewMailEx(ByVal EntryID As String)
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim strHeaders As String
Dim objNamespace As Outlook.NameSpace
Dim objTargetFolder As Outlook.Folder
Dim objQuarantineFolder As Outlook.Folder
On Error GoTo ErrorHandler
' 1. EntryIDからアイテムを取得
Set objItem = Application.GetNamespace(olExchange).GetItemFromID(EntryID)
' メールアイテム以外（会議出席依頼など）はスキップ
If TypeOf objItem Is MailItem Then
Set objMail = objItem
' 2. PropertyAccessorを使用してヘッダー情報を取得
' ここがプロのテクニック：通常のプロパティではなくMAPIタグを直接叩く
strHeaders = objMail.PropertyAccessor.GetProperty(PR_TRANSPORT_MESSAGE_HEADERS)
' 3. ヘッダー解析（簡易的ななりすまし判定ロジック）
' 本来はより複雑な正規表現などを用いるが、ここでは「Receivedヘッダーに信頼ドメインが含まれるか」をチェック
If Not IsTrustedPath(strHeaders) Then
Debug.Print "【警告】不審なメールを検知: " & objMail.Subject
' 4. 隔離フォルダの準備と移動
Set objNamespace = Application.GetNamespace(olExchange)
Set objTargetFolder = objNamespace.GetDefaultFolder(olFolderInbox) ' 受信トレイを起点にする
Set objQuarantineFolder = GetOrCreateQuarantineFolder(objTargetFolder)
' メールを移動
objMail.Move objQuarantineFolder
Debug.Print "【完了】メールを隔離フォルダに移動しました。"
End If
End If
CleanUp:
Set objMail = Nothing
Set objItem = Nothing
Exit Sub
ErrorHandler:
' 現場ではエラーを無視せず、ログに残すことが重要
Debug.Print "【エラー発生】: " & Err.Description
Resume CleanUp
End Sub
''' <summary>
''' ヘッダー内に信頼できる配送経路が含まれているか判定する
''' </summary>
Private Function IsTrustedPath(ByVal headers As String) As Boolean
' ここでは単純化のため、ヘッダー内に特定のドメインが含まれているかを確認
' 実務では、Receivedヘッダーの各行をパースし、IPアドレスやホスト名を確認する
If InStr(1, headers, TRUSTED_DOMAIN, vbTextCompare) > 0 Then
IsTrustedPath = True
Else
IsTrustedPath = False
End If
End Function
''' <summary>
''' 隔離用フォルダが存在しない場合に自動作成する
''' </summary>
Private Function GetOrCreateQuarantineFolder(ByVal parentFolder As Outlook.Folder) As Outlook.Folder
Dim objFolder As Outlook.Folder
On Error Resume Next
Set objFolder = parentFolder.Folders(QUARANTINE_FOLDER_NAME)
On Error GoTo 0
If objFolder Is Nothing Then
Set objFolder = parentFolder.Folders.Add(QUARANTINE_FOLDER_NAME)
Debug.Print "隔離フォルダを新規作成しました。"
End If
Set GetOrCreateQuarantineFolder = objFolder
End Function4. プロの視点：このコードの「重み」を理解する
このコードをただコピペするだけでは、あなたはまだ「初級者」です。エンジニアとして、以下の3つのポイントを脳に刻んでください。
① オブジェクトのライフサイクルとメモリ管理
`Application_NewMailEx` は、メールが届くたびに呼び出されます。もしこの中で重い処理（外部APIへの問い合わせや巨大なファイルの読み込み）を行うと、Outlook自体の動作が極端に重くなり、最悪クラッシュします。
今回のコードでは、`PropertyAccessor` を使って「必要なデータ（文字列）」だけを素早く抜き出し、判定が終わればオブジェクトを解放するように設計しています。
② エラーハンドリングの哲学
`On Error Resume Next` を乱用するのは、プロの世界では「禁忌」です。エラーが起きたときに「なぜ動かなかったのか」が分からなくなるからです。
上記のコードでは、`ErrorHandler` を用意し、エラー内容を `Debug.Print`（イミディエイトウィンドウ）に出力するようにしています。これにより、運用中のトラブルシューティングを可能にしています。
③ 判定ロジックの進化（さらなるステップへ）
今回の `IsTrustedPath` 関数は、非常にシンプルな `InStr`（部分一致）判定です。しかし、実際の攻撃者はこれを回避します。
次にあなたが挑戦すべきは、正規表現（RegExp） を使って、`Received: from …` という行を正確に抽出し、その中のホスト名がホワイトリストにあるかを厳密にチェックするロジックの実装です。
5. まとめ：ここをクリアすれば、Outlook VBAの基本はバッチリ！
お疲れ様でした。あなたは今、単なる「自動化」の枠を超え、「データの構造（MAPI）を理解し、それを利用してセキュリティ機能を実装する」という、エンジニアとしての重要な一歩を踏み出しました。
1. 標準機能の限界を知る。
2. 隠れたプロパティ（MAPI）にアクセスする。
3. イベント駆動で、リアルタイムな監視を実現する。
この3点を意識してコードを書けば、あなたの作るツールは、誰にも真似できない強力な武器になります。
さあ、次はもっと複雑な条件、例えば「添付ファイルのハッシュ値をチェックする」といった領域へ挑戦してみませんか？道は無限に広がっています。
Happy Coding!
