Outlook VBAを極める：無限ループを回避する「カスタムプロパティ」の魔法
こんにちは。業務自動化の深淵へようこそ。
Outlook VBAで「受信したメールを自動転送する」というスクリプトを書いたとき、「自分の送ったメールがまた受信トレイに戻ってきて、永遠に自分宛に転送し続ける」という悪夢に陥ったことはありませんか？
これは、自動化エンジニアなら一度は通る「無限ループの洗礼」です。今日は、この泥沼から抜け出し、プロの現場で使われる「カスタムプロパティ」を用いた堅牢な実装術を伝授します。
—
なぜ「無限ループ」は起きるのか？
Outlookの`NewMailEx`や`ItemAdd`イベントは、「メールを受信した」という事実に対してトリガーされます。
あなたが転送したメールも、送信済みアイテムからサーバーを経由して再びあなたの受信トレイに届く。するとOutlookは「また新しいメールが来た！」と勘違いし、再度転送処理を開始する…。これが無限ループの正体です。
これを防ぐために「サブジェクトに特定の文字列が入っていたら除外する」といった力技を使っていませんか？ それは脆弱です。スマートなエンジニアは、メールそのものに「これは処理済みだ」という隠しスタンプを押します。
—
解決策：UserProperties（カスタムプロパティ）の活用
Outlookのメールアイテムには、ユーザーが自由に情報を書き込める「UserProperties」という領域があります。ここに「Processed」というフラグを立てることで、処理済みメールを瞬時に識別するのです。
実装コード：安全な自動転送スクリプト
以下のコードを `ThisOutlookSession` に貼り付けてください。
‘ メール受信イベントを監視
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim objItem As Object
Dim objMail As MailItem
Dim processedProp As UserProperty
‘ EntryIDCollectionにはカンマ区切りで複数のIDが入ることがあるため注意
Set objItem = Session.GetItemFromID(EntryIDCollection)
‘ メールアイテムかどうかの判定
If TypeOf objItem Is MailItem Then
Set objMail = objItem
‘ カスタムプロパティ「IsProcessed」を取得
Set processedProp = objMail.UserProperties.Find(“IsProcessed”)
‘ 既にフラグがあれば処理をスキップ
If Not processedProp Is Nothing Then Exit Sub
‘ — 転送処理開始 —
Dim fwdMail As MailItem
Set fwdMail = objMail.Forward
fwdMail.Recipients.Add “target@example.com”
‘ 転送メールに「処理済みフラグ」を付与
‘ これにより、この転送メールが将来的に受信されてもループしない
fwdMail.UserProperties.Add(“IsProcessed”, olText).Value = “True”
fwdMail.Send
‘ 元のメールにもフラグを立てておくのがベストプラクティス
objMail.UserProperties.Add(“IsProcessed”, olText).Value = “True”
objMail.Save
End If
End Sub
—
コードの重要ポイント解説
1. `UserProperties.Find`:
これが魔法の杖です。存在しないプロパティを探してもエラーにはならず「Nothing」が返るため、安全にチェックが可能です。
2. `fwdMail.UserProperties.Add`:
転送メール自体にフラグを埋め込みます。これにより、そのメールがどのような経路を辿って戻ってきても、スクリプトは「あ、これは私が転送したものだ」と即座に判断できます。
3. `objMail.Save`:
カスタムプロパティを付与した後は、必ず保存してください。ここを忘れると、次回のイベント時にフラグが消えていて悲劇が繰り返されます。
—
さらに高みを目指すあなたへ
今回の手法は、転送だけでなく「特定のメールを既読にする」「特定のフォルダへ移動する」といったあらゆる自動化に応用できます。
陥りやすい罠へのアドバイス：
- イベントの競合: 複数の自動化スクリプトが動いている場合、各スクリプトで異なるプロパティ名（例: `ProcessedByTransfer`, `ProcessedByArchive`）を使うようにしましょう。
- パフォーマンス: `NewMailEx`は受信のたびに走ります。処理対象を絞り込む `If` 文（例：件名に特定の文字列が含まれる場合のみなど）を先頭に配置し、重い処理を極力減らすのが「一流」の書き方です。
この「カスタムプロパティ管理」をマスターすれば、もうあなたの自動化スクリプトが勝手に暴走することはありません。安心して、次の高度なタスクへ進んでください。
ここをクリアしたあなたは、もう初心者ではありません。次のステップで、もっと面白い自動化の世界を一緒に探求しましょう！
