こんにちは！エンジニアチームの先輩です。今日は、日常の業務自動化を一段上のレベルに引き上げる、最高にクールでディープなテーマをお届けします。
テーマはずばり、「MAPIプロパティタグ（`PR_TRANSPORT_MESSAGE_HEADERS`）を利用したメールヘッダーの解析と操作」です。
「うわ、なんだか難しそうな名前が出てきたぞ……」と思いましたか？
大丈夫、安心してください。マクロの記録の延長や、ネットのコピペコードだけでは絶対にたどり着けないOutlook VBAの裏側（MAPI層）の世界へ、私が優しく、かつ徹底的にエスコートします。
ここをクリアすれば、あなたのOutlook VBAスキルは間違いなく「上級エンジニア」の領域に到達します。さあ、一緒に深淵を覗いてみましょう！
—
1. なぜ「通常のオブジェクトモデル」では不十分なのか？
普段、私たちがVBAでメールを操作するときは、`MailItem` オブジェクトを使いますよね。
`To` に宛先を入れ、`Subject` に件名を設定し、`Body` に本文を書く。これだけでも素晴らしい自動化です。
しかし、現場でこんな壁にぶつかったことはありませんか？
- 「受信したメールの生のインターネットヘッダー（ReceivedやReturn-Pathなど）を隅々まで解析し、なりすましやルーティング経路を特定したい」
- 「特定のメールサーバー（トランスポート）経由での送信をプログラムから強制したい」
実は、標準の `MailItem` プロパティには、すべてのメールヘッダー情報が公開されているわけではありません。 表面的なプロパティの裏側には、OutlookとExchange（あるいはMAPIストア）を繋ぐ巨大な「MAPIプロパティ」という深層世界が広がっています。
このMAPI層に直接アクセスする鍵こそが、今回紹介するプロパティタグなのです。
—
2. MAPIプロパティと `PropertyAccessor` の基本概念
Outlookの裏側を支配しているMAPI（Messaging Application Programming Interface）の世界では、すべてのデータが「プロパティタグ」と呼ばれる固有の16進数のID（例：`0x007D001E` など）で管理されています。
VBAからこのMAPIプロパティを安全かつエレガントに操作するために用意されているのが、`PropertyAccessor`（プロパティアクセサ） オブジェクトです。
これを使うことで、通常のオブジェクトモデルでは隠蔽されている拡張プロパティを自由自在に読み書きできるようになります。
—
3. 【実践】メールヘッダーを丸裸にする！解析コード
まずは、受信したメール（あるいは送信前・送信済みのメール）から、インターネットヘッダー全体をごっそり抜き出す実用コードを見てみましょう。
開発環境のVBE（Visual Basic Editor）を開き、標準モジュールに以下のコードを貼り付けてみてください。
Sub GetInternetHeaders()
Dim ns As Outlook.NameSpace
Dim mail As Outlook.MailItem
Dim propAccessor As Outlook.PropertyAccessor
Dim headerText As String
‘ 1. MAPI名前空間の取得
Set ns = Application.GetNamespace(“MAPI”)
‘ 2. 現在選択（アクティブ）しているメールを取得
On Error Resume Next
Set mail = Application.ActiveExplorer.Selection.Item(1)
On Error GoTo 0
If mail Is Nothing Then
MsgBox “対象となるメールを選択してください。”, vbExclamation, “エラー”
Exit Sub
End If
‘ 3. PropertyAccessorの取得
‘ MailItemの裏側にあるMAPIプロパティへアクセスする窓口を開きます
Set propAccessor = mail.PropertyAccessor
‘ 4. PR_TRANSPORT_MESSAGE_HEADERS (Tag: 0x007D001E) を指定してヘッダー文字列を取得
‘ この型はPR_STRING8 またはPT_UNICODEとしてMAPIに格納されています
Const PR_TRANSPORT_MESSAGE_HEADERS As String = “http://schemas.microsoft.com/mapi/proptag/0x007D001E”
On Error Resume Next
headerText = propAccessor.GetProperty(PR_TRANSPORT_MESSAGE_HEADERS)
If Err.Number <> 0 Then
MsgBox “このアイテムからヘッダーを取得できませんでした。”, vbCritical, “取得エラー”
Exit Sub
End If
On Error GoTo 0
‘ 5. 結果をイミディエイトウィンドウに出力（長文のため）
Debug.Print “=== インターネットヘッダー解析結果 ===”
Debug.Print headerText
MsgBox “ヘッダーの取得に成功しました！イミディエイトウィンドウを確認してください。”, vbInformation, “完了”
‘ 6. オブジェクトの解放（メモリ管理の基本）
Set propAccessor = Nothing
Set mail = Nothing
Set ns = Nothing
End Sub
コードのここがポイント！
- `http://schemas.microsoft.com/mapi/proptag/0x007D001E`
これがMAPIプロパティタグを名前空間形式で指定するお呪いです。`0x007D001E` は「トランスポートメッセージヘッダー（インターネットメールのヘッダー情報）」を指す世界共通のIDです。
- `PropertyAccessor` のライフサイクル
オブジェクトを使い終わったら、必ず `Set propAccessor = Nothing` でメモリを解放する。これがプロのエンジニアの作法です。
—
4. 陥りやすい罠とエラー回避の知見
この領域に踏み込むと、必ずいくつかの「罠」に遭遇します。現場で迷わないよう、先回りして回避策を伝授しておきます。
罠その1：未送信（作成中）のメールでヘッダーが取れない
- 原因: 受信メールや送信済みメールには当然ヘッダー（`Received` や `Message-ID` など）が存在しますが、「今まさに新規作成画面で書いている途中のメール」には、まだメールサーバーを通っていないため、ヘッダーが存在しません。
- 対策: 取得を試みる前に、メールがすでに保存されているか、あるいは送信済み・受信トレイに存在するアイテムであることを確認（`mail.EntryID <> “”` など）してください。
罠その2：プロパティタグの型ミスマッチ
- 原因: MAPIプロパティは非常に厳密なデータ型を持っています。文字列を期待しているプロパティにバイナリ（バイト配列）を突っ込むと、容赦なく「型が一致しません（Error 13）」が飛んできます。
- 対策: `PropertyAccessor` を使う際は、必ず対象のプロパティがどのような型（String, Long, Booleanなど）で格納されているかを確認し、`On Error` で安全にトラップする構造を作りましょう。
—
5. さらに先へ：特定のトランスポート（送信経路）の制御について
今回はヘッダーの「読み取り」に焦点を当てましたが、実はMAPIプロパティや関連するCDO / Redemptionといったライブラリ、あるいは特定の拡張プロパティを操作することで、複数のアカウント（プロファイル）が混在する環境下で「どのSMTPトランスポート経由でこのメールを飛ばすか」を制御するアプローチも理論上存在します。
ただし、近年のMicrosoft 365やExchange Online環境では、セキュリティ上の制約（APIのサンドボックス化）が年々厳しくなっています。無茶なルーティング変更はサーバー側のポリシーに弾かれるため、「ヘッダーを解析してセキュリティ監査やルーティングのログを取る」という用途が、現在最も安全で実用的なアプローチと言えます。
—
まとめ
いかがでしたでしょうか？
今回は、Outlook VBAの奥底にあるMAPIプロパティと `PropertyAccessor` を使った、インターネットヘッダーの抽出手法を解説しました。
「マクロの記録」の世界を抜け出し、MAPIというOS直下のレイートに触れることで、あなたの自動化の可能性は無限に広がります。ぜひ手元の環境でコードを動かし、イミディエイトウィンドウに流れる生のヘッダーを眺めてみてください。
ここをクリアしたあなたなら、もうどんなOutlookの自動化要件が来ても怖くないはずです。
それでは、次回の高度な自動化の世界でお会いしましょう！バッチリ使いこなしてくださいね！
