【入門編】【上級者向け】受信メールのヘッダー情報を解析し、なりすましメールを自動でゴミ箱へ移動するセキュリティツール – Outlook VBA解析バイブル

Outlook VBA

2026.10.17

伝説のチーフアーキテクトが贈る、Outlook VBA 魔法のレシピ：なりすましメールを自動退治！ヘッダー解析で鉄壁のセキュリティを築こう

やあ、みんな！ Outlook VBA の世界へようこそ。君たちが今、マクロの記録から一歩踏み出し、もっと賢く、もっとパワフルな自動化に挑戦したいと思っているなら、今日は最高の場所に来たと言えるだろう。私、長年 Outlook と VBA の深淵を覗き続けてきた伝説のチーフアーキテクトが、君たちの知的好奇心をくすぐり、実用的なスキルを授けるために、ここにいる。

今日のテーマは、ちょっと刺激的だ。「受信メールのヘッダー情報を解析し、なりすましメールを自動でゴミ箱へ移動するセキュリティツール」だ。これは、単なる自動振り分けを超えた、君自身の Outlook を「鉄壁のセキュリティゲート」に変えるための、まさに上級者向けのテクニックと言えるだろう。

なぜ、メールヘッダーを解析する必要があるのか？

「え、そんなことまで VBA でできるの？」と思った君、鋭い！そう、できるんだ。そして、その鍵となるのが「メールヘッダー」という、普段は目にしない、しかしメールの「戸籍謄本」とも言える情報だ。

メールヘッダーには、メールがどこから来て、どのように送られてきたか、その経路や認証情報がギッシリ詰まっている。中でも、私たちが注目するのは SPF (Sender Policy Framework) と DKIM (DomainKeys Identified Mail) という、メールの送信元を証明するための重要な仕組みだ。

SPF: 送信元IPアドレスが、そのドメインの正規の送信サーバーリストに含まれているかを確認する。
DKIM: 送信者がメールにデジタル署名を付与し、受信者がその署名を検証することで、メールが改ざんされていないか、正規の送信者から送られたものかを確認する。

これらの情報が「失敗」していたり、そもそも存在しない場合、それは「なりすまし」や「フィッシング詐欺」の可能性が非常に高い。もし、これらの信頼性の低いメールを自動で検知し、ゴミ箱へ移動できたら、君の inbox はどれだけクリーンで安全になるだろうか？想像してみてほしい。

VBA でヘッダー情報を読み取る：初めての「生」メールデータとの対話

さて、いよいよ本番だ。Outlook VBA でメールヘッダーをどうやって読み取るのか、見ていこう。

Outlook では、受信したメールオブジェクトは `MailItem` というクラスで表現される。この `MailItem` オブジェクトには、メールの件名、本文、送信者といったお馴染みのプロパティだけでなく、`SenderEmailAddress` や `RTFBody` といった、より詳細な情報にアクセスできるプロパティやメソッドが隠されている。

しかし、ヘッダー全体を直接取得するためのプロパティは、残念ながら `MailItem` オブジェクトには用意されていない。ここで、伝説のアーキテクトの出番だ！

Outlook のアイテムは、実は MAPI (Messaging Application Programming Interface) という、Microsoft が提供するメッセージングシステムを通じて管理されている。VBA から直接 MAPI を操作するのは少し複雑だが、幸いなことに、Outlook VBA には `PropertyAccessor` という強力なオブジェクトが用意されている。これを使えば、MAPI プロパティにアクセスできるんだ。

「PropertyAccessor」？聞き慣れない言葉かもしれないが、これは君が Outlook の「裏側」にあるデータにアクセスするための「魔法の鍵」だと思ってほしい。

コード例1：メールヘッダー全体を取得する

まずは、受信トレイの最初のメールのヘッダー全体を取得するコードを見てみよう。

Sub GetEmailHeaders()

‘ Outlookアプリケーションオブジェクトを取得
Set objOutlook = Application ‘ 現在実行中のOutlookアプリケーションを指す

‘ 名前空間（MAPI）を取得
Set objNamespace = objOutlook.GetNamespace(“MAPI”)

‘ 受信トレイフォルダを取得
Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)

‘ 受信トレイにメールがあるか確認
If objInbox.Items.Count > 0 Then
‘ 受信トレイの最初のメールを取得
Set objMail = objInbox.Items(1) ‘ 添え字は1から始まる

‘ PropertyAccessorオブジェクトを取得
Set objPropertyAccessor = objMail.PropertyAccessor

‘ MAPIプロパティタグ（ヘッダー全体）を取得
‘ PR_TRANSPORT_MESSAGE_HEADERS は、MAPIで定義されているヘッダー全体を取得するためのプロパティタグ
varPR_TRANSPORT_MESSAGE_HEADERS = objPropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/id/{00020329-0000-0000-C000-000000000046}/85390003”)

‘ ヘッダー情報を文字列として取得
strHeaders = varPR_TRANSPORT_MESSAGE_HEADERS

‘ ヘッダー情報をイミディエイトウィンドウに表示（デバッグ用）
Debug.Print “— メールヘッダー —”
Debug.Print strHeaders
Debug.Print “——————–”

‘ 後処理
Set objMail = Nothing
Set objPropertyAccessor = Nothing
Set objInbox = Nothing
Set objNamespace = Nothing
Set objOutlook = Nothing
Else
MsgBox “受信トレイにメールがありません。”, vbInformation
End If

End Sub

コードの解説:

1. `Set objOutlook = Application`: 現在実行している Outlook アプリケーション自体を指すオブジェクトを取得します。
2. `Set objNamespace = objOutlook.GetNamespace(“MAPI”)`: Outlook の MAPI 名前空間にアクセスするためのオブジェクトを取得します。これが、メールアイテムの「裏側」のデータにアクセスするための入り口になります。
3. `Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)`: デフォルトの受信トレイフォルダを取得します。`olFolderInbox` は、Outlook が提供する定数で、受信トレイを表します。
4. `Set objMail = objInbox.Items(1)`: 受信トレイ内の最初のメールアイテムを取得します。`Items` コレクションは 1 から始まることに注意してください。
5. `Set objPropertyAccessor = objMail.PropertyAccessor`: 取得したメールアイテム (`objMail`) の `PropertyAccessor` オブジェクトを取得します。これが、MAPI プロパティにアクセスするためのキーとなります。
6. `varPR_TRANSPORT_MESSAGE_HEADERS = objPropertyAccessor.GetProperty(“…”)`: ここが肝心な部分です！ `GetProperty` メソッドに、MAPI プロパティタグを文字列で指定します。`”http://schemas.microsoft.com/mapi/id/{00020329-0000-0000-C000-000000000046}/85390003″` は、`PR_TRANSPORT_MESSAGE_HEADERS` という、メールのヘッダー全体を保持する MAPI プロパティの ID です。この ID は、Microsoft のドキュメントで確認できますが、まさに「魔法の文字列」です。
7. `strHeaders = varPR_TRANSPORT_MESSAGE_HEADERS`: 取得したプロパティの値を文字列として変数 `strHeaders` に格納します。
8. `Debug.Print strHeaders`: 取得したヘッダー情報を、VBA エディタの「イミディエイトウィンドウ」（Ctrl+G で表示）に出力します。これは、コードが正しく動作しているかを確認するためのデバッグに非常に役立ちます。

陥りやすいエラー:

`objInbox.Items.Count = 0`: 受信トレイが空なのに、メールを取得しようとするとエラーになります。上記コードでは `If objInbox.Items.Count > 0 Then` でチェックしていますが、実際の運用では、メールがない場合の処理をしっかり検討する必要があります。
MAPI プロパティ ID の間違い: `”…”` の部分を間違えると、何も取得できなかったり、予期せぬエラーが発生します。これは、まさに「魔法の呪文」なので、正確に入力することが重要です。

SPF と DKIM の情報を「抽出」する：ワイルドカードの登場

ヘッダー全体を取得できたのは良いけれど、ここから SPF や DKIM の情報をどうやって抜き出すのか？ヘッダーは長文なので、手作業で探すのは現実的ではない。

そこで登場するのが、VBA の強力な 文字列操作関数 と、必要であれば 正規表現 という、パターンマッチングの強力なテクニックだ。

今回は、比較的シンプルな正規表現を使わずに、VBA の標準関数だけでも SPF と DKIM の結果を抽出する方法を見てみよう。

コード例2：SPF/DKIM の検証結果を抽出する

Sub AnalyzeSPF_DKIM()

Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.Namespace
Dim objInbox As Outlook.Folder
Dim objMail As Outlook.MailItem
Dim objPropertyAccessor As Outlook.PropertyAccessor
Dim strEntryID As String
Dim varPR_TRANSPORT_MESSAGE_HEADERS As Variant
Dim strHeaders As String
Dim strSPFResult As String
Dim strDKIMResult As String
Dim lngPos As Long ‘ 位置を格納するための変数
Dim lngEndPos As Long ‘ 終了位置を格納するための変数

‘ Outlookアプリケーションオブジェクトを取得
Set objOutlook = Application

‘ 名前空間（MAPI）を取得
Set objNamespace = objOutlook.GetNamespace(“MAPI”)

‘ 受信トレイフォルダを取得
Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)

‘ 受信トレイをループ処理（ここでは例として最初のメールのみ）
If objInbox.Items.Count > 0 Then
Set objMail = objInbox.Items(1) ‘ 最初のメールを取得

‘ PropertyAccessorオブジェクトを取得
Set objPropertyAccessor = objMail.PropertyAccessor

‘ ヘッダー全体を取得
varPR_TRANSPORT_MESSAGE_HEADERS = objPropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/id/{00020329-0000-0000-C000-000000000046}/85390003”)
strHeaders = CStr(varPR_TRANSPORT_MESSAGE_HEADERS) ‘ 文字列に明示的に変換

‘ — SPF結果の抽出 —
‘ “Authentication-Results:” の行を探す
lngPos = InStr(1, strHeaders, “Authentication-Results:”, vbTextCompare)

If lngPos > 0 Then
‘ SPFの結果部分を特定（”spf=” の後を探す）
lngEndPos = InStr(lngPos, strHeaders, vbCrLf, vbTextCompare) ‘ 次の改行まで
If lngEndPos = 0 Then lngEndPos = Len(strHeaders) ‘ 改行がない場合、最後まで

Dim strAuthResults As String
strAuthResults = Mid(strHeaders, lngPos, lngEndPos – lngPos) ‘ Authentication-Results の行を抽出

‘ strAuthResults から “spf=” を探す
lngPos = InStr(1, strAuthResults, “spf=”, vbTextCompare)
If lngPos > 0 Then
‘ “spf=” の後、次のスペースや改行までの文字列を取得
lngEndPos = InStr(lngPos + 4, strAuthResults, ” “, vbTextCompare) ‘ スペースまで
If lngEndPos = 0 Then lngEndPos = InStr(lngPos + 4, strAuthResults, “;”, vbTextCompare) ‘ セミコロンまで
If lngEndPos = 0 Then lngEndPos = Len(strAuthResults) ‘ 見つからなければ最後まで

strSPFResult = Mid(strAuthResults, lngPos + 4, lngEndPos – (lngPos + 4))
‘ 必要であれば、結果を整形（例: “pass” や “fail” など）
‘ この例では、そのまま取得していますが、実際は “pass”, “fail”, “softfail”, “neutral” などを判定します。
End If
End If

‘ — DKIM結果の抽出 —
‘ “dkim=” のパターンを探す（Authentication-Results の中に含まれることが多い）
lngPos = InStr(1, strHeaders, “dkim=”, vbTextCompare) ‘ 再度ヘッダー全体から探す

If lngPos > 0 Then
‘ “dkim=” の後、次のスペースや改行までの文字列を取得
lngEndPos = InStr(lngPos + 5, strHeaders, ” “, vbTextCompare) ‘ スペースまで
If lngEndPos = 0 Then lngEndPos = InStr(lngPos + 5, strHeaders, “;”, vbTextCompare) ‘ セミコロンまで
If lngEndPos = 0 Then lngEndPos = InStr(lngPos + 5, strHeaders, vbCrLf, vbTextCompare) ‘ 改行まで
If lngEndPos = 0 Then lngEndPos = Len(strHeaders) ‘ 見つからなければ最後まで

strDKIMResult = Mid(strHeaders, lngPos + 5, lngEndPos – (lngPos + 5))
‘ 必要であれば、結果を整形（例: “pass” や “fail” など）
End If

‘ 結果を表示
Debug.Print “— メール分析結果 —”
Debug.Print “SPF 結果: ” & IIf(strSPFResult = “”, “不明”, strSPFResult)
Debug.Print “DKIM 結果: ” & IIf(strDKIMResult = “”, “不明”, strDKIMResult)
Debug.Print “——————–”

‘ SPF または DKIM の結果が「信頼できない」場合（例: fail, softfail）は、ゴミ箱へ移動する処理を追加
If strSPFResult Like “fail” Or strDKIMResult Like “fail” Then
‘ ここでゴミ箱へ移動する処理を実装
Debug.Print “このメールは信頼性が低いため、ゴミ箱へ移動します。”
‘ objMail.Move objNamespace.GetDefaultFolder(olFolderDeletedItems) ‘ コメントアウト解除で実行
Else
Debug.Print “このメールは信頼できます。”
End If

End Sub

コードの解説:

1. ヘッダー全体の取得: 前のコードと同様に、`GetEmailHeaders` サブルーチンで取得したヘッダー情報 (`strHeaders`) を利用します。`CStr()` で明示的に文字列型に変換しておくのが安全です。
2. `InStr` 関数: VBA には `InStr` という便利な関数があります。これは、ある文字列の中に別の文字列が「最初に現れる位置」を教えてくれる関数です。大文字・小文字を区別しない `vbTextCompare` オプションを使うのがポイントです。

`lngPos = InStr(1, strHeaders, “Authentication-Results:”, vbTextCompare)`: ヘッダー文字列 (`strHeaders`) の先頭 (`1`) から、「Authentication-Results:」という文字列を探します。見つかったら、その開始位置が `lngPos` に格納されます。

3. `Mid` 関数: `Mid` 関数は、指定した文字列の途中から、指定した文字数だけを取り出す関数です。

`strAuthResults = Mid(strHeaders, lngPos, lngEndPos – lngPos)`: `Authentication-Results:` が見つかった位置 (`lngPos`) から、次の改行 (`vbCrLf`) が見つかる位置 (`lngEndPos`) までの部分文字列を抽出します。

4. SPF/DKIM 結果の抽出:

`strAuthResults` の中から `spf=` や `dkim=` を探し、その直後の文字列（例: `pass`, `fail`, `neutral` など）を抽出します。
`InStr` で `spf=` や `dkim=` を見つけ、その位置からさらに次のスペース (`” “`) やセミコロン (`”;”`)、改行 (`vbCrLf`) までの文字列を `Mid` 関数で取り出しています。

5. 結果の判定と移動:

`If strSPFResult Like “fail” Or strDKIMResult Like “fail” Then`: 抽出した SPF または DKIM の結果に `fail` という文字列が含まれていれば、信頼性が低いと判断します。`Like` 演算子はワイルドカード (“ は任意の文字列を表す) を使ったパターンマッチングが可能です。
`objMail.Move objNamespace.GetDefaultFolder(olFolderDeletedItems)`: この行をコメントアウト解除すると、条件に合致したメールは自動的にゴミ箱 (`olFolderDeletedItems`) へ移動されます。実行する際は、必ずテスト用のメールで試してから、慎重に行ってください。

陥りやすいエラー:

`InStr` が 0 を返す: 指定した文字列が見つからなかった場合、`InStr` は 0 を返します。この 0 を元に `Mid` 関数などで処理しようとするとエラーになります。必ず `If lngPos > 0 Then` のようなチェックを行いましょう。
ヘッダーのフォーマットの多様性: メールヘッダーのフォーマットは、送信サーバーやメールクライアントによって微妙に異なることがあります。上記のコードは一般的なケースを想定していますが、全てのメールで完璧に動作するとは限りません。より堅牢な処理が必要な場合は、正規表現の導入を検討すると良いでしょう。
`objMail.Move` の実行: この操作は元に戻せません！必ず、テスト用のメールやフォルダで十分に検証してから、本番環境で有効にしてください。

実際の運用に向けて：イベントドリブンな自動化へ

ここまでで、メールヘッダーを解析して SPF/DKIM の結果を抽出し、必要に応じてメールを移動する基本的な仕組みを理解できたはずだ。しかし、このコードを動かすには、毎回手動でマクロを実行する必要がある。

もっと賢く、メールが受信された瞬間に自動で処理を実行するにはどうすればいいか？そこで登場するのが Outlook のイベントプロシージャ だ。

Outlook VBA では、特定のイベント（例えば、新しいメールが受信されたとき、メールが開かれたときなど）が発生したときに、自動的に実行される特別なプロシージャ（イベントプロシージャ）を記述できる。

`Application_NewMailEx` イベントを活用する

新しいメールが受信されたときに自動実行されるイベントは `Application_NewMailEx` というものがある。このイベントプロシージャ内に、先ほどのヘッダー解析コードを組み込むことで、受信と同時に自動処理が可能になる。

設定方法:

1. VBA エディタを開く (`Alt + F11`)。
2. 左側の「VBAProject (VbaProject.OTM)」ツリーで、「Microsoft Outlook Objects」にある「ThisOutlookSession」をダブルクリックする。
3. 右側のコードウィンドウに、以下のコードを貼り付ける。

‘ — ThisOutlookSession モジュールに記述 —

Option Explicit

‘ 新しいメールが受信されたときに発生するイベント
‘ EntryID: 受信したメールのEntryID
Private Sub Application_NewMailEx(ByVal EntryID As String)

Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.Namespace
Dim objMail As Outlook.MailItem
Dim objPropertyAccessor As Outlook.PropertyAccessor
Dim varPR_TRANSPORT_MESSAGE_HEADERS As Variant
Dim strHeaders As String
Dim strSPFResult As String
Dim strDKIMResult As String
Dim lngPos As Long
Dim lngEndPos As Long

‘ Outlookアプリケーションオブジェクトを取得
Set objOutlook = Application

‘ 名前空間（MAPI）を取得
Set objNamespace = objOutlook.GetNamespace(“MAPI”)

On Error GoTo ErrorHandler ‘ エラーハンドリングを設定

‘ EntryID を使用して、受信したメールアイテムを取得
‘ 取得できるまで少し待つ必要がある場合があるため、ループで試行する
Dim i As Integer
For i = 1 To 10 ‘ 最大10回試行
Set objMail = objNamespace.GetItemFromID(EntryID)
If Not objMail Is Nothing Then Exit For
Application.Wait (Now + TimeValue(“0:00:01”)) ‘ 1秒待つ
Next i

If objMail Is Nothing Then
MsgBox “メールアイテムの取得に失敗しました。”, vbExclamation
Exit Sub
End If

‘ PropertyAccessorオブジェクトを取得
Set objPropertyAccessor = objMail.PropertyAccessor

‘ — SPF/DKIM結果の抽出 —
‘ （先ほどの AnalyzeSPF_DKIM サブルーチンの内容をここにコピー＆ペーストしても良い）
‘ ここでは簡易的に、Authentication-Results の全体から spf= と dkim= を探す

‘ SPF結果の抽出
lngPos = InStr(1, strHeaders, “Authentication-Results:”, vbTextCompare)
If lngPos > 0 Then
lngEndPos = InStr(lngPos, strHeaders, vbCrLf, vbTextCompare)
If lngEndPos = 0 Then lngEndPos = Len(strHeaders)
Dim strAuthResults As String
strAuthResults = Mid(strHeaders, lngPos, lngEndPos – lngPos)

lngPos = InStr(1, strAuthResults, “spf=”, vbTextCompare)
If lngPos > 0 Then
lngEndPos = InStr(lngPos + 4, strAuthResults, ” “, vbTextCompare)
If lngEndPos = 0 Then lngEndPos = InStr(lngPos + 4, strAuthResults, “;”, vbTextCompare)
If lngEndPos = 0 Then lngEndPos = Len(strAuthResults)
strSPFResult = Mid(strAuthResults, lngPos + 4, lngEndPos – (lngPos + 4))
End If
End If

‘ DKIM結果の抽出
lngPos = InStr(1, strHeaders, “dkim=”, vbTextCompare)
If lngPos > 0 Then
lngEndPos = InStr(lngPos + 5, strHeaders, ” “, vbTextCompare)
If lngEndPos = 0 Then lngEndPos = InStr(lngPos + 5, strHeaders, “;”, vbTextCompare)
If lngEndPos = 0 Then lngEndPos = InStr(lngPos + 5, strHeaders, vbCrLf, vbTextCompare)
If lngEndPos = 0 Then lngEndPos = Len(strHeaders)
strDKIMResult = Mid(strHeaders, lngPos + 5, lngEndPos – (lngPos + 5))
End If

‘ — 判定と移動 —
‘ SPF または DKIM の結果が「信頼できない」場合（例: fail, softfail）は、ゴミ箱へ移動
If strSPFResult Like “fail” Or strDKIMResult Like “fail” Then
‘ 実際にゴミ箱へ移動
‘ 注意: この処理は元に戻せません！
objMail.Move objNamespace.GetDefaultFolder(olFolderDeletedItems)
Debug.Print “なりすましメールを検知し、ゴミ箱へ移動しました: ” & objMail.Subject
Else
Debug.Print “受信メールは信頼できます: ” & objMail.Subject
End If

‘ 後処理
Set objMail = Nothing
Set objPropertyAccessor = Nothing
Set objNamespace = Nothing
Set objOutlook = Nothing
Exit Sub ‘ 正常終了

ErrorHandler:
‘ エラーが発生した場合の処理
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
‘ エラー発生時も、可能な範囲でオブジェクトを解放する
If Not objMail Is Nothing Then Set objMail = Nothing
If Not objPropertyAccessor Is Nothing Then Set objPropertyAccessor = Nothing
If Not objNamespace Is Nothing Then Set objNamespace = Nothing
If Not objOutlook Is Nothing Then Set objOutlook = Nothing

End Sub

イベントプロシージャのポイント:

`Private Sub Application_NewMailEx(ByVal EntryID As String)`: この `Private Sub` で始まるコードブロックが、新しいメールが受信されるたびに自動的に実行されます。`EntryID` という引数で、新しく受信したメールの識別子を受け取ることができます。
`On Error GoTo ErrorHandler`: メール処理中に何らかのエラーが発生した場合に、`ErrorHandler` ラベルに処理を移すように設定しています。これにより、マクロが途中で停止してしまうのを防ぎ、エラーメッセージを表示したり、安全に終了させたりすることができます。
`objNamespace.GetItemFromID(EntryID)`: `EntryID` を使って、MAPI アイテム（この場合はメール）を直接取得します。これは、受信トレイをループで回るよりも効率的です。
処理の遅延: 新しいメールが受信されても、すぐに `GetItemFromID` で取得できるとは限りません。メールが完全に Outlook に取り込まれるまで少し時間がかかることがあります。そのため、簡単なループと `Application.Wait` で、メールが取得できるまで待機する処理を入れています。
エラーハンドリング: `On Error GoTo ErrorHandler` で設定したエラーハンドリング部分です。エラーが発生した場合に、エラーメッセージを表示して、オブジェクトの解放などを行うようにしています。

注意点:

セキュリティ警告: `ThisOutlookSession` にコードを記述した場合、Outlook のセキュリティ設定によっては、マクロの実行がブロックされることがあります。信頼できるソースからのマクロであることを確認し、必要に応じてセキュリティ設定を調整してください。
パフォーマンス: 非常に多くのメールが短時間で受信される環境では、この自動処理が Outlook のパフォーマンスに影響を与える可能性があります。処理内容を必要最低限に絞る、あるいは処理を後回しにするなどの工夫が必要になる場合もあります。
テストの重要性: このコードは、メールを自動的にゴミ箱へ移動させます。必ず、テスト用のメールアカウントやフォルダで十分にテストを行ってから、実際の運用に適用してください。 間違った判定で重要なメールが削除されてしまうと、取り返しがつきません。

達人への道：さらに高度な活用法

ここまでの内容をマスターすれば、君は Outlook VBA の世界で一歩も二歩も進んだと言えるだろう。しかし、達人の道はまだまだ続く。

正規表現の活用: より複雑なヘッダーパターンを解析するために、VBA の `VBScript.RegExp` オブジェクトを使うと、さらに強力な抽出が可能になる。
カスタムフォルダへの移動: ゴミ箱ではなく、特定の「疑わしいメール」フォルダを作成し、そこに移動させるようにカスタマイズする。
ホワイトリスト/ブラックリスト: 特定の送信元アドレスやドメインからのメールは、SPF/DKIM の結果に関わらず、常に信頼または不審とみなすリストを作成する。
VB.NET からの Outlook 操作: より高度なアプリケーション開発を目指すなら、VB.NET や C# から Outlook を操作する（COM Interop）という方法もある。これは、VBA よりもさらに自由度が高く、洗練されたアプリケーションを構築できる。

まとめ：君の Outlook は、もう「ただのメーラー」じゃない

どうだったかな？メールヘッダーを解析して、なりすましメールを自動で退治する。これは、君の Outlook を単なる「メールを受け取る箱」から、「能動的にセキュリティを守る盾」へと進化させる、まさに魔法のようなテクニックだ。

今回紹介したコードは、君が Outlook VBA を深く理解し、実用的な自動化ツールを開発するための、確かな一歩となるはずだ。最初は少し難しく感じるかもしれないが、一つ一つのコードの意味を理解し、実際に動かしてみることで、君のスキルは確実に向上していく。

ここをクリアすれば、Outlook VBA の基本はバッチリ。そして、君の Outlook は、これまで以上に安全で、効率的な、君だけの「デジタルの城」となるだろう。

さあ、恐れずにコードを書き、君自身の Outlook をカスタマイズする冒険を始めよう！