Outlook VBAで「フリーズ」を撲滅せよ：受信メールの並列処理を実現するキューイング・アーキテクチャ
OutlookのVBAを書いていると、必ず突き当たる壁がある。それは「`NewMailEx` イベント内で重い処理を実行し、Outlookが応答不能（フリーズ）になる」という現象だ。
多くの初学者は、メール受信のたびにExcelへの書き込みや外部API叩きを同期的に行おうとする。だが、思い出してほしい。OutlookのメインスレッドはUIと同期している。重い処理をそのスレッドで直列に走らせれば、ユーザー体験は死ぬ。
今回は、「受信イベント」と「処理実行」を完全にデカップリング（分離）する、プロレベルのキューイング・アーキテクチャを伝授する。
—
なぜ「キューイング」が必要なのか
`NewMailEx` イベントは、あくまで「トリガー」に過ぎない。ここでやっていいのは「処理すべき情報をキューに放り込む」ことだけだ。
- 同期処理の末路: メールの受信量が多い時、Outlookは処理待ちでフリーズし、最悪の場合、受信プロセス自体がハングアップする。
- 理想の設計:
1. Ingestion（取り込み）: `NewMailEx` でメールのIDだけをキュー（メモリ/DB）に保存し、即座に制御を戻す。
2. Processing（処理）: バックグラウンド（または別タイマー）でキューからIDを読み出し、順次処理する。
—
設計の要：軽量キューシステムの構築
今回は、複雑なDB依存を避けつつ、堅牢性を担保するために「簡易テキストキュー」を採用する。これにより、Outlookがクラッシュしても処理の取りこぼしを防げる。
1. 受信イベントのキャプチャ（ThisOutlookSession）
まずはイベントを最短で切り離す。
‘ ThisOutlookSession
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim entryIDs() As String
Dim i As Long
‘ 複数同時受信に対応するため配列で処理
entryIDs = Split(EntryIDCollection, “,”)
For i = LBound(entryIDs) To UBound(entryIDs)
‘ キューファイルにIDを追記するだけの高速操作
Call QueueManager.Enqueue(entryIDs(i))
Next i
End Sub
2. キュー管理クラス（QueueManager）
ファイルI/Oは「追記（Append）」モードを使うことで、排他制御の問題を最小化する。
‘ 標準モジュール: QueueManager
Public Sub Enqueue(ByVal EntryID As String)
Dim fileNum As Integer
Dim filePath As String
filePath = Environ(“TEMP”) & “\outlook_queue.txt”
fileNum = FreeFile
Open filePath For Append As #fileNum
Print #fileNum, EntryID
Close #fileNum
End Sub
3. 非同期処理エンジン（ProcessingEngine）
ここが心臓部だ。`OnTime` メソッドを利用し、Outlookのアイドル時間を狙って処理を回す。
‘ 標準モジュール: ProcessingEngine
Public Sub StartWorker()
‘ 処理を開始するトリガー（再帰的に自分を呼ぶ）
Application.OnTime Now + TimeValue(“00:00:05”), “ProcessQueue”
End Sub
Public Sub ProcessQueue()
Dim filePath As String: filePath = Environ(“TEMP”) & “\outlook_queue.txt”
If Dir(filePath) = “” Then GoTo Reschedule
‘ 処理中のロック（簡易実装）
Dim fso As Object: Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim lines As Object
Set lines = fso.OpenTextFile(filePath, 1) ‘ Read
Do Until lines.AtEndOfStream
Dim entryID As String: entryID = lines.ReadLine
‘ 【重要】ここで実際の業務ロジックを実行
Call ProcessSingleMail(entryID)
Loop
lines.Close
‘ 処理が終わったらファイルをクリア（またはリネーム）
Kill filePath
Reschedule:
Call StartWorker ‘ 次のサイクルへ
End Sub
—
実務で「バグらせない」ための3つの鉄則
1. エラーハンドリングの徹底: `ProcessSingleMail` 内でエラーが起きても `Resume Next` で止まらない設計にせよ。さもなくば、キューが詰まり、全メールの処理が停止する。
2. API連携にはタイムアウトを: 外部APIを叩く場合は必ずタイムアウト時間を設定すること。ネットワーク待ちで `ProcessQueue` が止まると、それはもはやキューではない。
3. 既読管理のタイミング: 処理が成功した後に `MailItem.UnRead = False` を叩くこと。処理中に落ちても、未読のまま残っていれば再試行が可能になる。
—
結論：プロのエンジニアは「待たせない」
VBAはレガシーな言語だ。しかし、設計次第でモダンな非同期アプリケーションのように振る舞わせることができる。
今回紹介した「キューイング・アーキテクチャ」は、単なるコードの断片ではなく、Outlookという制約の多い環境で「拡張性」と「安定性」を両立させるための戦略だ。
コードをコピペして終わりではない。あなたの業務に合わせて「どのタイミングでキューを処理するのが最適か（例：昼休み中、あるいは5分おきか）」をチューニングせよ。それが、エンジニアとしての力量だ。
健闘を祈る。
