こんにちは！Outlook VBAの automaty（自動化）の世界へようこそ。
マクロの記録から一歩踏み出し、「自分でコードを書いて業務を効率化したい！」という熱意、すばらしいですね。
今回は、Outlook VBA中級者への登竜門であり、避けて通れない重要テーマ「ItemAddイベントの二重処理防止（排他制御）」について解説します。
「メールが届いた時に自動で特定の処理をしたい！」と思ったとき、`ItemAdd` イベントを使うのが定石ですが、実はここには恐ろしい落とし穴が潜んでいます。同じメールに対して処理が何回も走ってしまい、二重にメールを送ったり、データを二重に登録したり……。
大丈夫、安心してください。この記事を読み終える頃には、その原因と、プロが使っている「カスタムプロパティ（UserProperties）を使ったスマートな排他制御」の技術があなたのものになっていますよ。
ここをクリアすれば、Outlook VBAの基本はバッチリです！一緒にマスターしていきましょう。
—
1. なぜ「ItemAddイベント」は二重処理を引き起こすのか？
まずは、敵を知ることから始めましょう。
受信トレイに新しいメールが入った検知するイベントとして、以下のようなコードを書いたことがあるかもしれません。
‘ ThisOutlookSession モジュールなどの記述例
Public WithEvents myItems As Outlook.Items
Private Sub Application_Startup()
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace(“MAPI”)
‘ 受信トレイのアイテムコレクションを取得
Set myItems = ns.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub myItems_ItemAdd(ByVal Item As Object)
‘ メールの件名を出力するだけのシンプルな処理
If TypeOf Item Is Outlook.MailItem Then
MsgBox “新着メール：” & Item.Subject
End If
End Sub
このコード自体は動きます。しかし、「一度に複数のメールを受信したとき」や、Outlookの同期タイミング、あるいはアドインの干渉などによって、同じメールに対して `ItemAdd` が数秒の間に2回以上発火する（走ってしまう）という現象が起きることがあります。
人間が目撃すると「あれ？さっきも同じメッセージボックスが出たぞ？」となりますが、これが「自動でスプレッドシートに転記する」「自動で返信する」といったプログラムだったら大惨事です。同じデータが2回登録されてしまいますよね。これが「二重処理の悪夢」です。
—
2. 解決の鍵は「UserProperties（カスタムプロパティ）」
では、どうやって「このメールはもう処理したよ」という目印を付けるのでしょうか？
「フラグ（旗）」を使えばいいじゃないか、と思うかもしれません。しかし、標準の「フラグ（TaskIconIndexなど）」はユーザーの操作で変わってしまいますし、既読・未読ステータスも他の操作で上書きされるリスクがあります。
そこで登場するのが、Outlookの各アイテムが持っている`UserProperties`（ユーザー定義プロパティ）という隠し引き出しです！
UserPropertiesとは？
Outlookのメールオブジェクトには、標準で用意されている件名や本文のほかに、「開発者が自由にオリジナルの項目（キーと値のペア）を追加できるスペース」が用意されています。
これを利用して、処理が完了したメールに「`Processed` = `True`」という特製スタンプを押し、次にイベントが走ったときに「おっ、もうスタンプが押してあるからスルーしよう」と判定する仕組みを作ります。これが今回の排他制御の核心です。
—
3. 実装コード：二重処理を完全にブロックする魔術
それでは、実際の現場でそのまま使える、堅牢なコードを公開します。
`ThisOutlookSession` モジュールに以下のコードを貼り付けてください。
Option Explicit
‘ 受信トレイを監視するためのオブジェクト変数
Public WithEvents InboxItems As Outlook.Items
‘ Outlook起動時に監視をスタート
Private Sub Application_Startup()
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace(“MAPI”)
‘ 受信トレイのアイテムコレクションを取得してイベントを有効化
Set InboxItems = ns.GetDefaultFolder(olFolderInbox).Items
Debug.Print “Outlook監視システム：起動完了”
End Sub
‘ 新着アイテムが追加された瞬間に発火するイベント
Private Sub InboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler
‘ 1. 対象がメールアイテムであるかチェック
If Not TypeOf Item Is Outlook.MailItem Then Exit Sub
Dim mail As Outlook.MailItem
Set mail = Item
‘ 2. 排他制御用カスタムプロパティの定義名
Const PROP_NAME As String = “IsProcessedByMacro”
Dim prop As Outlook.UserProperty
‘ 3. すでにスタンプが押されているか確認
Set prop = mail.UserProperties.Find(PROP_NAME)
If Not prop Is Nothing Then
‘ すでに処理済みの場合はここで処理を終了（二重処理ブロック！）
Debug.Print “スキップ：既に処理済みのメールです -> ” & mail.Subject
Exit Sub
End If
‘ ==========================================
‘ 4. 【重要】処理の実行前に、まず「処理中・処理済み」のスタンプを押す
‘ ==========================================
‘ olText, olNumber, olYesNo などの型が選べます。今回はフラグとしてolYesNoを使用
Set prop = mail.UserProperties.Add(PROP_NAME, olYesNo)
prop.Value = True
mail.Save ‘ 変更をOutlook本体に保存
‘ ==========================================
‘ 5. ここに本来行いたい自動化処理を書く
‘ ==========================================
Call ExecuteMyBusinessLogic(mail)
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “自動化マクロエラー”
End Sub
‘ 実際の業務ロジック（例：ログ出力や外部連携など）
Private Sub SubExecuteMyBusinessLogic(ByVal mail As Outlook.MailItem)
‘ ※関数名のタイポ修正のため内部で呼び出し
Call ExecuteMyBusinessLogic_Core(mail)
End Sub
Private Sub ExecuteMyBusinessLogic_Core(ByVal mail As Outlook.MailItem)
‘ ここに実際の処理を記述
Debug.Print “【自動処理実行】件名: ” & mail.Subject & ” / 送信者: ” & mail.SenderName
‘ 例：件名に特定の文字が含まれていたら既読にする、など
‘ mail.UnRead = False
‘ mail.Save
End Sub
—
4. コードのポイント解説
ここで、エンジニアとして押さえておきたい重要なポイントを解説します。
① なぜ「処理の前」にスタンプを押すのか？
コードの順番をよく見てください。業務ロジックを動かす前に、`prop.Value = True` を設定して `mail.Save` を実行しています。
もし、業務ロジックの「後」にスタンプを押してしまうと、ロジックを実行している最中（数ミリ秒〜数秒の間）に、二回目の `ItemAdd` イベントが割り込んできてしまい、結局二重処理を防げません。
「二重に実行されたくないなら、処理の扉を叩く瞬間に鍵（スタンプ）をかけろ」。これが排他制御の鉄則です。
② UserPropertiesはOutlookのデータベースに保存される
この `UserProperties` で追加した値は、メールアイテム自体のプロパティとして保存されます。そのため、Outlookを再起動しても「このメールは処理済み」という記憶が消えることはありません。非常に堅牢な仕組みです。
—
5. 初学者が陥りやすい罠とアドバイス
最後に、この実装を進める中で初心者がハマりがちなポイントをいくつか共有します。
- 罠1：過去のメールに対してイベントが走ってしまう
- `Application_Startup` が走った時点で、受信トレイにある未読メールが一気に `ItemAdd` の対象として検知されることがあります。「マクロを入れたらいきなり過去のメール何百通分も処理が走って焦った！」というのは、開発者全員が一度は通る道です。テストの際は、ダミーの受信フォルダを作るか、メッセージ受信日時（`ReceivedTime`）が現在時刻に近いものだけを処理するガード条件を入れると安全です。
- 罠2：`mail.Save` を忘れる
- `UserProperties` を追加・変更しても、最後に `.Save` メソッドを呼ばないと、Outlookの裏側のデータに反映されず、スタンプが押されないままになってしまいます。忘れずに記述しましょう。
—
まとめ
いかがでしたか？今回は、Outlook VBAにおける『ItemAddイベントの二重処理防止』という、一歩進んだ実務的テクニックを解説しました。
- ItemAddは同じメールで複数回発火することがある
- 二重処理を防ぐには「排他制御」が不可欠
- Outlookの `UserProperties` を使えば、メールに独自の処理済みフラグを安全に残せる
- 処理の「実行前」にフラグを立ててセーブするのが鉄則
この設計手法が身につけば、あなたが作るOutlookマクロの信頼性はプロのレベルへと一気に引き上げられます。ぜひご自身の環境で試して、業務の完全自動化を快適に楽しんでくださいね！
