【Outlook VBA】ItemAddイベントの「二重処理」を根絶せよ！UserPropertiesによる堅牢な排他制御とフラグ管理
開発現場でよく耳にする悲鳴がある。
「Outlookのマクロで受信メールを自動処理しているのに、同じメールが二重に処理されて二重送信や二重起票が起きた」
「なぜかイベントが同時に2回走る瞬間がある」
もしあなたが、`Items_ItemAdd` イベントの中に直に処理を書き下ろしているなら、それは時限爆弾を抱えているようなものだ。Outlook VBAのイベント駆動型アーキテクチャ、特にネットワーク遅延や大量メール受信時の挙動を理解していなければ、この「二重処理の悪夢」からは逃れられない。
今回は、数々のデスクトップオートメーションを構築してきたチーフアーキテクトの視点から、`UserProperties`（カスタムプロパティ）を駆使した完全な排他制御とフラグ管理による、プロダクション品質のイベントハンドリング手法を伝授しよう。
—
1. なぜ `ItemAdd` イベントは二重処理を引き起こすのか？
初中級者が陥る最大の罠は、Outlookのイベントモデルの非同期性と「マルチスレッド的挙動（厳密にはシングルスレッド上のメッセージポンプ処理）」を過小評価している点にある。
原因の正体
1. バースト受信とメッセージの再送・同期ズレ
IMAPやExchange環境において、サーバーとの同期タイミングで同一アイテムの追加通知がミリ秒単位のズレで連続発火（バースト）することがある。
2. 処理の重さとイベントの再入
`ItemAdd` 内でメールの移動（`Move`）やフラグ変更（`Save`）を行うと、その変更自体が新たなイベントを引き起こす、あるいは処理が終わる前に次のイベントが割り込む余地を生む。
「イベントが走った瞬間に、そのメールが『現在まさに処理中であること』をOutlookオブジェクトの内部に刻印（ロック）しない限り、競合は防げない」――これが鉄則だ。
—
2. 破綻する設計 vs 堅牢な設計
❌ 愚直だが破綻するコード（アンチパターン）
‘ 【絶対にいけない例】フラグなしのItemAdd
Private WithEvents inboxItems As Outlook.Items
Private Sub Application_Startup()
Set inboxItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub inboxItems_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
‘ 処理が重い、または保存するまでにタイムラグがあるため、
‘ この瞬間に別のイベントが割り込むと二重発火する
Dim mail As Outlook.MailItem
Set mail = Item
Call DoHeavyProcess(mail) ‘ 外部API連携やファイル出力など
mail.UnRead = False
mail.Save
End If
End Sub
このコードは、`DoHeavyProcess` が走っている最中に別の同期待ちアイテムが飛び込んできた場合、いとも簡単に二重処理の餌食になる。
⭕ 堅牢なプロ仕様の設計（UserPropertiesによる排他制御）
ここで登場するのが、Outlookアイテムが持つメタデータ領域 `UserProperties` だ。
ファイルや外部DBにロックを書きに行く必要はない。メールオブジェクト自体に「処理済み・処理中」のステータスを書き込み、Outlookのデータベース（OST/PST）レベルでアトミックに保存するのだ。これにより、プロセスやセッションを跨いでも堅牢なロックが維持される。
—
3. 【実装編】コピペで使えるプロダクションコード
以下のコードを、`ThisOutlookSession` モジュールにそのまま配置してほしい。実務でそのまま使える堅牢な排他制御ロジックを実装している。
Option Explicit
‘ 監視対象の受信トレイアイテム
Private WithEvents cdInboxItems As Outlook.Items
‘ カスタムプロパティのキー名
Private Const PR_PROCESSING_LOCK As String = “LockedByAutomation”
Private Const PR_PROCESSED_FLAG As String = “IsProcessedByAutomation”
Private Sub Application_Startup()
‘ アプリケーション起動時に受信トレイをバインド
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace(“MAPI”)
Set cdInboxItems = ns.GetDefaultFolder(olFolderInbox).Items
Debug.Print “— Outlook Automation Engine: Started —”
End Sub
Private Sub cdInboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler
‘ MailItem以外（会議通知やレシート等）は除外
If Not (TypeName(Item) = “MailItem”) Then Exit Sub
Dim mail As Outlook.MailItem
Set mail = Item
‘ —————————————————-
‘ 1. 排他制御チェック（UserPropertiesによるアトミックなロック）
‘ —————————————————-
If IsAlreadyLockedOrProcessed(mail) Then
Debug.Print “Skipped (Already processed or locked): ” & mail.Subject
Exit Sub
End If
‘ ロックをかけ、即座にセーブ（ここで他のイベントからの割り込みを防ぐ）
Call SetLock(mail, True)
‘ —————————————————-
‘ 2. メイン業務処理（ここに実務ロジックを記述）
‘ —————————————————-
Debug.Print “Processing Start: ” & mail.Subject
‘ 例：社内システム連携やファイル出力のシミュレーション
Call ExecuteBusinessLogic(mail)
‘ —————————————————-
‘ 3. 処理完了フラグの付与とロックの解除
‘ —————————————————-
Call MarkAsProcessed(mail)
Debug.Print “Processing Complete: ” & mail.Subject
Exit Sub
ErrorHandler:
‘ 異常終了時はロックを必ず解除する（デッドロック防止）
On Error Resume Next
If Not mail Is Nothing Then
Call SetLock(mail, False)
End If
MsgBox “ItemAdd処理中にエラーが発生しました: ” & Err.Description, vbCritical
End Sub
‘ — ヘルパー関数群 —
Private Function IsAlreadyLockedOrProcessed(ByVal mail As Outlook.MailItem) As Boolean
Dim propLock As Outlook.UserProperty
Dim propDone As Outlook.UserProperty
Set propLock = mail.UserProperties.Find(PR_PROCESSING_LOCK)
Set propDone = mail.UserProperties.Find(PR_PROCESSED_FLAG)
Dim isLocked As Boolean: isLocked = False
Dim isDone As Boolean: isDone = False
If Not propLock Is Nothing Then
If propLock.Value = 1 Then isLocked = True
End If
If Not propDone Is Nothing Then
If propDone.Value = 1 Then isDone = True
End If
IsAlreadyLockedOrProcessed = (isLocked Or isDone)
End Function
Private Sub SetLock(ByVal mail As Outlook.MailItem, ByVal lockState As Boolean)
Dim prop As Outlook.UserProperty
Set prop = mail.UserProperties.Find(PR_PROCESSING_LOCK)
If prop Is Nothing Then
Set prop = mail.UserProperties.Add(PR_PROCESSING_LOCK, olNumber)
End If
prop.Value = IIf(lockState, 1, 0)
mail.Save ‘ Outlookストアへ即時コミット
End Sub
Private Sub MarkAsProcessed(ByVal mail As Outlook.MailItem)
Dim propDone As Outlook.UserProperty
Set propDone = mail.UserProperties.Find(PR_PROCESSED_FLAG)
If propDone Is Nothing Then
Set propDone = mail.UserProperties.Add(PR_PROCESSED_FLAG, olNumber)
End If
propDone.Value = 1
‘ 同時に処理中ロックは外す
Dim propLock As Outlook.UserProperty
Set propLock = mail.UserProperties.Find(PR_PROCESSING_LOCK)
If Not propLock Is Nothing Then propLock.Value = 0
‘ 既読化やフラグ設定など
mail.UnRead = False
mail.Save
End Sub
Private Sub ExecuteBusinessLogic(ByVal mail As Outlook.MailItem)
‘ 【実務用プレースホルダー】
‘ ここにCSV出力、API通信、Excel転記などの処理を書く
DoEvents ‘ UIのフリーズを防ぐための息継ぎ
‘ サンプルとしての遅延（実際の重い処理を想定）
‘ Application.Wait (Now + TimeValue(“0:00:01”))
End Sub
—
4. 現場で活きる！アーキテクトからの実践的アドバイス
① なぜ外部ファイルやDBではなく `UserProperties` なのか？
ファイル（JSON/CSV）や外部データベースに「処理済みリスト」を記録する方法もあるが、ネットワーク切断時やファイル競合（複数端末からのアクセス）で必ず破綻する。
Outlookのメールアイテム自体にプロパティを持たせる手法は、メールオブジェクトのライフサイクルとロック状態が完全に同期するため、分散環境やオフライン作業（Cached Exchange Mode）においても極めて高い堅牢性を誇る。
② デッドロック（無限ロック）を防ぐエラーハンドリング
コード内にある通り、処理途中で予期せぬエラー（ネットワーク切断やパースエラーなど）が発生した場合、`Error Handler` を通さずにマクロが中断されると、メールが `LockedByAutomation = 1` のまま永久に放置される。
そのため、必ず `On Error GoTo ErrorHandler` を経由させ、異常終了時にもロックを強制解除（またはフラグをクリア）するフェールセーフ構造が必須となる。
③ パフォーマンスと `DoEvents`
大量のメールが一括受信された際、VBAがシングルスレッドで重い処理を回し続けるとOutlook自体が「応答なし」になる。
重い外部連携やファイルI/Oを行う前後に `DoEvents` を挟むことで、OSのメッセージキューを処理させ、Outlookの強制終了を防ぐことができる。
—
総括
自動化ツールの価値は「動くこと」ではなく、「止まらないこと」「バグらないこと」にある。
「たかがメールの自動処理」と侮ってイベント直書きのコードを放置していれば、いつか必ず重要なメールの二重処理やデータ破損というクリティカルなインシデントを引き起こす。
今回解説した `UserProperties` によるアトミックな排他制御をマスターし、プロフェッショナルとして恥ずかしくない、鉄壁のOutlook自動化基盤を構築してほしい。
