こんにちは！後輩くん、今日もOutlook VBAと格闘しているかい？
「マクロの記録」から一歩踏み出し、いざ自動化のシステムを作ろうとしたとき、多くの人が最初にぶつかる壁が「イベント駆動の罠」なんだ。特に受信メールをリアルタイムで監視する`ItemAdd`イベント。あれ、実はメールが大量に届く環境や、企業のセキュリティソフトが裏でバタバタ動いているカオスな環境だと、「あれ？イベントが発火しない…」「処理がごっそり抜け落ちる…」という恐ろしい現象が起きるんだよね。
今回は、そんな現場の絶望を華麗に回避するための、「タイマーによるポーリング監視（定期巡回）」というプロフェッショナルな代替案を伝授しよう。ここをクリアすれば、君の作ったマクロはもう「気まぐれに動くおもちゃ」ではなく、「現場で絶対に止まらない堅牢なシステム」になる。心してついておいで！
—
なぜ `ItemAdd` イベントは信用できないのか？
まずは敵を知ることから始めよう。
Outlook VBAで新着メールを監視するとき、誰もが最初に使うのがこのコードだよね。
‘ 【危ういイベント駆動の例】ThisOutlookSession
Public WithEvents myOlItems As Outlook.Items
Private Sub Application_Startup()
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace(“MAPI”)
‘ 受信トレイのアイテムコレクションを取得
Set myOlItems = ns.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub myOlItems_ItemAdd(ByVal Item As Object)
‘ メールの到着時に実行される（はずの）処理
If Item.Class = olMail Then
MsgBox “新しいメールが届きました！”
End If
End Sub
一見、完璧に見える。でも、この `ItemAdd` には致命的な構造的欠陥があるんだ。
1. イベントの取りこぼし: 1秒間に何通ものメールが同時に雪崩れ込んできた時や、Outlookがビジー状態の時、`ItemAdd` は容赦なくイベントの連打を無視（ドロップ）する。
2. 予期せぬイベントの停止: アドインの競合やエラーによって、`WithEvents` の監視が勝手に「解除」されてしまうことがよくある。出社したら監視が止まっていた…なんて、エンジニアとして悪夢だよね。
そこで私たちは、イベントを待ち構えるのをやめ、「自分から定期的にフォルダをパトロールしに行く（ポーリング）」という手法に切り替えるんだ。
—
堅牢なポーリング監視の全体像
今回作るシステムは、こういう仕組みにするよ。
1. Outlookが起動した時（`Application_Startup`）に、最初のタイマーをセットする。
2. 一定時間（例: 30秒）ごとにマクロが自動実行される。
3. パトロール用のマクロが動き、「まだ処理していない未読メール」を一網打尽に処理する。
4. 処理が終わったら、次のタイマーを予約する。
これなら、仮に一度のパトロールのタイミングでOutlookが重たくて処理できなくても、次のパトロールで確実に拾い上げることができる。まさに「絶対に諦めない泥臭い強さ」があるんだ。
—
実装コード：標準モジュール ＆ ThisOutlookSession
さあ、実際にコードを書いていこう。
今回は、`Application.OnTime` というメソッドを使って、Excel VBAでお馴染みのタイマー処理をOutlook上で再現するよ。
1. 標準モジュール（例: `Module_Polling`）
ここにパトロールの本体と、タイマーの予約・解除のロジックを書くよ。
Option Explicit
‘ 次回パトロールを実行する時刻を保持する変数
Public NextCheckTime As Date
‘ パトロールの間隔（今回は30秒に設定）
Const INTERVAL_SECONDS As Long = 30
‘ ==========================================
‘ パトロールのメイン処理
‘ ==========================================
Sub PollInbox()
On Error GoTo ErrorHandler
Dim ns As Outlook.NameSpace
Dim inboxFolder As Outlook.MAPIFolder
Dim targetItems As Outlook.Items
Dim mail As Outlook.MailItem
data i As Long
Set ns = Application.GetNamespace(“MAPI”)
Set inboxFolder = ns.GetDefaultFolder(olFolderInbox)
‘ 「未読」かつ「まだフラグやカテゴリをつけていない」ものを効率よく絞り込む
‘ Outlookの検索用SQL構文（Jetクエリ）を使うのがプロの技！
Dim filter As String
filter = “[UnRead] = True AND [Categories] <> ‘Processed'”
Set targetItems = inboxFolder.Items.Restrict(filter)
‘ 該当するメールを上から順に料理していく
For i = targetItems.Count To 1 Step -1
If targetItems(i).Class = olMail Then
Set mail = targetItems(i)
‘ — ここに実際の業務処理を書く —
‘ 例：件名に特定の文字が入っていたら重要フラグをつける
If InStr(mail.Subject, “【緊急】”) > 0 Then
mail.FlagStatus = olFlagMarked
mail.FlagRequest = “至急対応”
End If
‘ 処理済みである証としてカテゴリを付与（重要！）
mail.Categories = “Processed”
mail.Save
‘ ———————————-
End If
Next i
CleanUp:
‘ 処理が終わったら、必ず「次のタイマー」を予約してループを維持する
ScheduleNextPoll
Exit Sub
ErrorHandler:
‘ エラーで止まらないようにしつつ、次の予約は死守する
Debug.Print “ポーリング中にエラー発生: ” & Err.Description
Resume CleanUp
End Sub
‘ ==========================================
‘ タイマーを予約するプロシージャ
‘ ==========================================
Sub ScheduleNextPoll()
‘ 現在時刻 ＋ 30秒 後を計算
NextCheckTime = Now + TimeSerial(0, 0, INTERVAL_SECONDS)
‘ Application.OnTime で指定時刻に PollInbox を呼ぶように予約
Application.OnTime NextCheckTime, “PollInbox”
End Sub
‘ ==========================================
‘ タイマーを解除するプロシージャ（停止用）
‘ ==========================================
Sub StopPolling()
On Error Resume Next
‘ 予約をキャンセル
Application.OnTime NextCheckTime, “PollInbox”, , False
On Error GoTo 0
End Sub
2. ThisOutlookSession
Outlookが起動した瞬間、そして終了する瞬間に、タイマーのスイッチを入れたり切ったりする設定を行うよ。
Option Explicit
Private Sub Application_Startup()
‘ Outlook起動時に自動でパトロールを開始！
Call ScheduleNextPoll
MsgBox “受信メールのポーリング監視システムが起動しました。”, vbInformation
End Sub
Private Sub Application_Quit()
‘ Outlook終了時にタイマーを綺麗に掃除する（メモリリーク防止）
Call StopPolling
End Sub
—
プロが教える！この設計の「圧倒的な強み」と注意点
このポーリング方式には、現場でシステムを運用する上で知っておくべき「極限の知見」が詰まっている。
1. ジェットクエリ (`Restrict`) による爆速パフォーマンス
`For Each` で受信トレイの全メールをしらみ潰しにループしていたら、メールが1万通を超えたあたりでOutlookがフリーズする。
今回のコードでは、`inboxFolder.Items.Restrict(“[UnRead] = True AND [Categories] <> ‘Processed'”)` というSQLライクなフィルターを使っている。これによって、「今まさに処理すべき最小限のメールの束」だけをピンポイントでメモリ上に持ってくるため、動作が驚くほど軽快なんだ。
2. 「二重処理の防止」という絶対正義
自動化において一番怖いのは、「同じメールに対して何度も処理が走ってしまうこと」だよね。
今回のコードでは、処理の最後に `mail.Categories = “Processed”` と書き込み、検索条件に `[Categories] <> ‘Processed’` を入れている。
これにより、「もし万が一、前回のパトロールが終わる前に次のパトロールが始まっても、すでに処理したメールは絶対に二度触らない」という鉄壁のガード（冪等性：べきとうせい）が担保されるんだ。
—
まとめ：ここをクリアすれば、君はもう中級者を超えている！
お疲れ様！イベント駆動の不安定さに悩まされる時代はもう終わりだ。
今回学んだ「定期的なポーリング ＋ クエリによる絞り込み ＋ 処理済みフラグ（カテゴリ）による二重防止」の三種の神器は、Outlook VBAだけでなく、あらゆる業務システムのバッチ処理に通じる王道のアーキテクチャだよ。
「イベントが動かないなら、こっちから定期的に見に行けばいいじゃない」——この発想を持てるようになった君なら、どんなに無茶ぶりな業務自動化の依頼が来ても、絶対に乗り越えられるはずさ。
さて、次のステップでは、このポーリング処理の中に「添付ファイルの自動保存とクラウド連携」を組み込む方法を解説しようか。
基礎から本質までマスターした君なら、もう怖くないよね。次の記事も楽しみにしていてくれ！
