Outlook VBAの「重複実行」という深淵を越える：堅牢な自動化の極意
こんにちは。現場で泥臭い自動化を積み重ねてきたエンジニアなら、一度は直面する悪夢があります。それは「メールが同時に複数届いた瞬間、マクロが暴走して処理が競合する」という現象です。
「マクロの記録」でコードを書き始めた皆さんが、次にステップアップして最初に出会う最大の壁。それが「イベント駆動型プログラミングにおける排他制御」です。
今日は、あなたの書いたVBAが「ただ動くコード」から「現場で止まらないプロのコード」に変わるための、極めて重要なロジックを伝授します。
—
1. なぜ「重複実行」が起きるのか？
Outlookの `NewMailEx` イベントは、メールが届くたびに発火します。しかし、メールサーバーが一度に5通、10通とメールを送り込んできたとき、Outlookは「同時並行」に近い勢いでマクロを叩き起こします。
すると何が起きるか？
- 変数の共有: 処理中に書き換えている変数を、別のプロセスが横取りする。
- ファイルロック: 処理対象のExcelやログファイルが競合してエラー落ち。
- 無限ループのトリガー: 処理結果として「既読」や「移動」を行う際、それがまた別のイベントを誘発する。
これらを防ぐ鍵が「排他制御（ロック）」です。
—
2. 実装：静的変数（Static）で「門番」を立てる
最もシンプルかつ強力な方法は、`Static`（静的変数）を使って、処理中であることを示す「信号機」を作ることです。
以下のコードを `ThisOutlookSession` モジュールに貼り付けてください。
‘ メール受信イベントを監視するクラスモジュール的役割
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
‘ 【核心】静的変数：関数を抜けても値が保持される「門番」
Static IsProcessing As Boolean
‘ もし今、別の処理が走っていたら、新しい処理はここで門前払いする
If IsProcessing Then Exit Sub
‘ 処理を開始するので門番を立てる
IsProcessing = True
‘ エラーが発生しても門番を解放できるようにエラーハンドリングは必須
On Error GoTo Cleanup
‘ — ここに本来の業務ロジックを記述 —
ProcessIncomingMail EntryIDCollection
‘ ———————————-
Cleanup:
‘ 処理終了、あるいはエラー発生時に門番を下ろす
IsProcessing = False
End Sub
Private Sub ProcessIncomingMail(ByVal entryID As String)
‘ ここでメールの分類やフラグ付与を行う
Dim objItem As Object
Set objItem = Session.GetItemFromID(entryID)
‘ 例えば：件名に特定の文字列があればフラグを立てる
If InStr(objItem.Subject, “【重要】”) > 0 Then
objItem.FlagStatus = olFlagMarked
objItem.Save
End If
End Sub
このコードの「賢いポイント」
1. `Static IsProcessing As Boolean`: 関数が終了しても変数の値が破棄されず、次のメール受信時まで「今動いてる？」という情報を保持し続けます。
2. `On Error GoTo Cleanup`: もし処理中に予期せぬエラーが出ても、必ず `IsProcessing = False` を通るように設計しています。これを忘れると、マクロが永久にロック状態になり、再起動するまで二度と動きません。
—
3. 陥りやすい罠：なぜ「既読管理」で失敗するのか
初心者がやりがちなミスは、受信したメールを処理する中で、「メールを既読にする」や「フォルダを移動する」操作を行うことです。
実は、これらの操作自体が「メールの変更」とみなされ、再び `NewMailEx` を呼び出してしまうことがあります。これを「再帰呼び出しの罠」と呼びます。
対処法：イベントの中断
処理の冒頭で `Application.EnableEvents = False` を…と言いたいところですが、残念ながらOutlook VBAにはこれに相当するプロパティがありません。
そのため、プロの現場では以下のロジックを必ず組み込みます。
- 「条件分岐の厳格化」: 処理する前に「まだ処理されていないか？」を確認するロジックを挟む。
- `If objItem.UnRead = True Then …` （未読のみ処理する）
- `If objItem.FlagStatus = olNoFlag Then …` （まだフラグが付いていないものだけ処理する）
これらを組み合わせることで、たとえイベントが二重に発火しても、2回目は「既に条件を満たしているから何もしない」と判断され、安全に終了します。
—
4. 最後に：現場で生き残るために
ここまで理解できれば、あなたはもう「マクロを動かす人」から「システムを運用するエンジニア」の入り口に立っています。
- Staticで門番を作る
- エラー発生時にも必ずロックを解除する
- 処理対象を厳格にフィルタリングする
この3原則を守るだけで、あなたのOutlookマクロの安定性は格段に向上します。まずはこのコードを実装して、自分の環境で動かしてみてください。何かトラブルがあったら、それはシステムの「制約」を知るチャンスです。
ここをクリアすれば、Outlook VBAの基本はバッチリです。自信を持って、次のステップへ進んでいきましょう！
