【入門編】EntryIDとStoreIDを用いたメールの永続的参照：データベース連携の基礎知識 – Outlook VBA解析バイブル

Outlook VBA

2026.08.26

こんにちは。Outlookの世界へようこそ。

「マクロの記録」ボタンがないOutlookの世界で、途方に暮れたことはありませんか？Excelと違って、Outlookは「メール」という常に動き続けるデータを扱うため、一度書いたコードが数日後に動かなくなる……なんて経験をした方も多いはずです。

今日は、そんな「不安定な自動化」から卒業し、「メールを一意に追跡する」というプロフェッショナルな領域への第一歩を踏み出しましょう。

—

1. なぜ「メールの場所」は特定できないのか？

多くの初心者は、メールを特定しようとするとき、つい「件名（Subject）」や「受信日時（ReceivedTime）」を使おうとします。しかし、これは禁じ手です。

件名は変わる： 返信があれば「Re:」が付き、スレッドで件名が変化します。
同日時は存在し得る： 受信タイミングが同じメールは、特に大規模な組織では珍しくありません。

私たちが頼るべきは、Outlookが裏側で管理している「EntryID」と「StoreID」という二つの「戸籍」のようなデータです。

EntryIDとStoreIDの正体

EntryID： そのアイテム（メール等）に割り振られた、そのフォルダー内での唯一無二のID。
StoreID： そのメールが格納されている「データストア（PSTファイルやExchangeのメールボックス）」のID。

この二つを組み合わせることで、たとえメールが別のフォルダーに移動されようが、件名が変わろうが、「あの時のあのメール」を確実に呼び出すことが可能になります。

—

2. 実践：EntryIDとStoreIDをデータベース化する

まずは、現在選択しているメールのIDを抽出して、イミディエイトウィンドウに出力してみましょう。これが「データベース連携」の第一歩です。

Sub GetEmailIdentity()
Dim objItem As Object
Dim mail As MailItem

‘ 現在選択中のアイテムを取得
Set objItem = Application.ActiveExplorer.Selection.Item(1)

If TypeOf objItem Is MailItem Then
Set mail = objItem

‘ EntryIDとStoreIDをデバッグ出力
‘ これを外部DB(SQL ServerやAccess)に保存しておけば、後で追跡可能！
Debug.Print “EntryID: ” & mail.EntryID
Debug.Print “StoreID: ” & mail.Parent.StoreID
Else
MsgBox “メールを選択してください。”
End If
End Sub

—

3. 保存したIDからメールを「再召喚」する

外部DB（あるいはExcelの台帳）に保存したIDを使い、後日メールをピンポイントで取得するコードがこちらです。ここが、自動化の「安定性」を左右する最重要ポイントです。

Sub RetrieveEmailByID(strEntryID As String, strStoreID As String)
Dim ns As NameSpace
Dim targetMail As MailItem

Set ns = Application.GetNamespace(“MAPI”)

‘ GetItemFromIDメソッドこそが、IDを用いた唯一の再取得手段
On Error Resume Next ‘ 存在しない場合のエラーハンドリング
Set targetMail = ns.GetItemFromID(strEntryID, strStoreID)
On Error GoTo 0

If Not targetMail Is Nothing Then
MsgBox “メールを特定しました: ” & targetMail.Subject
Else
MsgBox “メールが見つかりませんでした。既に削除された可能性があります。”
End If
End Sub

—

4. 現場で陥りやすい罠と解決策

罠1：StoreIDが変化するケース

実は、StoreIDは環境やPSTの再接続によって変わることがあります。

知恵： IDだけで管理するのではなく、`Session.Folders`をループして、StoreIDが一致する場所を動的に探すロジックを組むと、堅牢性が飛躍的に向上します。

罠2：同期のタイムラグ

Exchange環境では、ローカルのキャッシュとサーバー側で同期が遅れることがあります。

知恵： `NameSpace.SyncObjects` を使って、取得前に強制同期をかける工夫も現場では有効です。

—

最後に：プロのエンジニアを目指すあなたへ

「IDで管理する」という手法は、単なるプログラミングのテクニックではありません。「不確実な世界（受信箱）を、確実なデータ（DB）として扱う」という、システム設計の思想そのものです。

ここまで理解できれば、Outlook VBAはもうあなたの手中にあります。
次は、このIDをキーにして、外部のExcel台帳と同期させるような「業務管理システム」を自作してみませんか？

何か詰まったら、いつでも戻ってきてください。応援していますよ。