【Outlook VBA】無限ループの惨劇を回避せよ：カスタムプロパティによる「処理済み」管理の極意
業務自動化を志すエンジニアにとって、Outlookの`NewMailEx`イベントは諸刃の剣だ。
「受信したメールを自動転送する」という要件に対し、安易に転送処理を実装していないだろうか？ その実装、いずれ会社全体のメールサーバーをダウンさせる無限ループの引き金になる。
今回は、VBAでメール処理を実装する際に避けては通れない「無限ループの防止策」と、その先にある「堅牢なシステム設計」について、現場の知見を叩き込む。
—
1. なぜ「無限ループ」が発生するのか
多くの初心者は、受信イベントで転送処理を書く際、単に「転送」というアクションだけを記述する。
しかし、自動転送されたメールが自分の送信済みアイテムにコピーされ、それをトリガーに再びイベントが発火し、また転送する……という地獄のループは往々にして起こる。
「フラグ管理」を外部のテキストファイルやDBで行うのはナンセンスだ。遅延が発生するし、排他制御で死ぬ。
正解は、Outlookオブジェクトそのものが持つ「UserProperties（カスタムプロパティ）」を活用することだ。
—
2. 実装の要：UserPropertiesによるメタデータ管理
メールオブジェクトには、ユーザーが自由に定義できるメタデータ領域がある。ここに「処理済み」というスタンプを押すことで、Outlook自身に「このメールはもう転送済みである」と認識させるのだ。
堅牢な実装コード（ThisOutlookSession）
以下のコードは、受信したメールに対し、一度だけ処理を完結させるためのテンプレートだ。
Option Explicit
‘ 受信イベントのトリガー
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim objItem As Object
Dim objMail As MailItem
‘ EntryIDCollectionはカンマ区切りで複数のIDが来る可能性があるため注意
Set objItem = Session.GetItemFromID(EntryIDCollection)
If TypeOf objItem Is MailItem Then
Set objMail = objItem
‘ カスタムプロパティをチェックして重複処理を防ぐ
If Not IsProcessed(objMail) Then
‘ ここに転送などの自動化処理を記述
Call ForwardMail(objMail)
‘ 処理済みフラグを付与して保存
Call MarkAsProcessed(objMail)
End If
End If
End Sub
‘ 処理済みかを確認する関数
Private Function IsProcessed(objMail As MailItem) As Boolean
Dim prop As UserProperty
Set prop = objMail.UserProperties.Find(“ProcessedFlag”)
If Not prop Is Nothing Then
IsProcessed = (prop.Value = “True”)
Else
IsProcessed = False
End If
End Function
‘ 処理済みフラグを付与する関数
Private Sub MarkAsProcessed(objMail As MailItem)
Dim prop As UserProperty
‘ プロパティがなければ作成
Set prop = objMail.UserProperties.Add(“ProcessedFlag”, olText, True)
prop.Value = “True”
objMail.Save
End Sub
Private Sub ForwardMail(objMail As MailItem)
Dim fwdMail As MailItem
Set fwdMail = objMail.Forward
fwdMail.Recipients.Add “target@example.com”
fwdMail.Send
End Sub
—
3. なぜこれがプロの設計なのか
1. 永続的な状態管理
`UserProperties`はメールデータ本体（`.msg`ファイル）に直接埋め込まれる。外部DBと同期を取る必要がないため、ネットワーク遅延の影響を受けず、オフライン作業時でも整合性が保証される。
2. 破壊的変更を避ける（保守性）
メールの本文や件名を書き換えて「処理済み」を表す手法は、ビジネスメールにおいて最も避けるべきだ。本文の改竄は、後の監査や検索性を著しく損なう。カスタムプロパティなら、メール本来のデータ構造を維持したまま、メタデータのみを付加できる。
3. パフォーマンスの最適化
`Find`メソッドを使用することで、無駄なループ処理を回さずに瞬時に判定が可能だ。数万通のメールがアーカイブされた環境であっても、この実装であれば負荷を最小限に抑えられる。
—
4. チーフアーキテクトからの助言
最後に、実務でこのコードを運用する際の注意点を二つ授ける。
- 例外処理を怠るな: `Application_NewMailEx`内でエラーが発生すると、自動化が停止するだけでなく、Outlook全体のパフォーマンスに悪影響を及ぼす。必ず `On Error Resume Next` を活用し、スタックトレースをログに出力する仕組みを組み込むこと。
- フラグの汚染を防ぐ: 複数の自動化ツールが同じプロパティ名を参照しないよう、キー名にはプロジェクト名や独自の名前空間を含める（例: `MyAutoTool_Processed`）。
コードを書くことは手段に過ぎない。重要なのは、「システムが異常な状態に陥ったとき、いかにして安全に停止させるか」を設計することだ。
この「カスタムプロパティ活用術」は、君の自動化ツールを「動く」レベルから「信頼できる」レベルへと引き上げるだろう。さあ、実装に取り掛かってくれ。
