こんにちは。現場で泥臭く、しかし誰よりもスマートに自動化を極めてきたエンジニアです。
「マクロの記録」から卒業したあなたが、次に直面するのは「メールを送って終わり」という虚無感でしょう。業務の本質は、送信した後の「相手からの返信」をいかに素早く、正確にハンドリングするかです。
今日は、プロの現場でも通用する「送信メールの追跡（トラッキング）システム」の構築手法を伝授します。これさえ理解すれば、あなたはもう「どのメールに対する返信だっけ？」とフォルダを彷徨うことはなくなります。
—
1. なぜ「EntryID」を保存する必要があるのか？
Outlookのメールには、世界に一つだけの指紋のようなIDがあります。それが `EntryID` です。
通常のメール管理は「件名」や「宛先」で行われがちですが、これらは変更されるリスクがあります。一方、`EntryID`はOutlookが生成する不変のID。これさえDBやExcelに控えておけば、後から来た返信が「どの送信メールの系譜か」を完全に追跡できるのです。
全体のアーキテクチャ
1. 送信時: メールの `EntryID` を取得し、ログ（ExcelやDB）に保存する。
2. 受信時: 受信したメールの `ConversationID` や、ヘッダー内の `In-Reply-To` を確認し、ログと突き合わせる。
—
2. 【実践】送信メールのIDを自動保存するVBA
まずは、送信した瞬間にIDを記録するコードです。`ThisOutlookSession` に記述してください。
‘ 送信ボタンを押した瞬間に走るイベント
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim mail As MailItem
‘ 送信対象がメールか確認（予定表の招待などとの混同を防ぐ）
If TypeOf Item Is MailItem Then
Set mail = Item
‘ 送信後にIDを確定させるため、一度保存を待機させるテクニック
‘ ここでは簡易的にログ出力していますが、実際はDB接続やExcel書き込みへ
Debug.Print “送信メールID: ” & mail.EntryID
Debug.Print “宛先: ” & mail.To
‘ ログ保存関数を呼び出す（後述）
Call LogMailTransaction(mail.EntryID, mail.Subject, mail.To)
End If
End Sub
Sub LogMailTransaction(entryID As String, subject As String, recipient As String)
‘ 本来はここに ADODB を使った DB 接続や、Excel への書き込み処理が入ります
‘ 例: SQL “INSERT INTO MailLogs (EntryID, Subject) VALUES (‘” & entryID & “‘, …)”
MsgBox “追跡用のIDを保存しました: ” & entryID
End Sub
【プロの知見】陥りやすい罠：`ItemSend`のタイミング
`ItemSend` イベントが発生した直後の `EntryID` は、まだサーバーと同期されていないために空（Null）になることがあります。
実務で厳密な追跡を行う場合は、送信後に `ItemAdd` イベント を監視し、`SentItems`（送信済みアイテム）フォルダにメールが移動した瞬間の `EntryID` を取得するのが、最も堅牢な設計です。
—
3. 【核心】返信を追跡する仕組みの考え方
返信メールが来たら、そのメールの `ConversationID` を確認します。
実は、Outlookの「スレッド機能」の裏側では、`ConversationID` という共通のキーでメールが紐付けられています。送信済みアイテムの `ConversationID` と、受信したメールの `ConversationID` を照合すれば、親子関係は一撃で特定できます。
返信メールをフックするヒント
‘ 受信時に実行される処理
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim obj As Object
Set obj = Session.GetItemFromID(EntryIDCollection)
If TypeOf obj Is MailItem Then
Dim replyMail As MailItem
Set replyMail = obj
‘ ログから ConversationID を検索し、親メールを特定する
‘ これが「追跡システム」の心臓部です
Debug.Print “返信が来ました。親スレッドID: ” & replyMail.ConversationID
End If
End Sub
—
4. エンジニアとして成長するためのアドバイス
ここまで読んだあなたは、単に「メールを送るマクロ」を書く人から、「業務の流れを制御するアーキテクト」への第一歩を踏み出しました。
注意すべきポイント
- データの永続化: ExcelにIDを書き込む場合、ファイルロックの問題が発生します。`FileSystemObject` で追記モードを使うか、SQLiteなどの軽量DBを活用することをお勧めします。
- 例外処理: ネットワークが切断されている時の送信や、宛先が空の時のエラーハンドリングを必ず `On Error GoTo` で囲ってください。
次のステップ
次は、この「送信済みID」をキーにして、「3日経っても返信がないメールを自動的にリマインドする」という攻めの自動化に挑戦してみてください。
「コードを書く」のは手段であり、目的は「あなたの時間を守ること」です。Outlook VBAは、正しく使えばあなたの最強の秘書になります。
ここをクリアしたあなたなら、もう大丈夫。自信を持って、次の自動化へ踏み出してください！応援しています。
