【入門編】【初心者向け】受信メールの件名から「緊急」フラグを自動検出し、デスクトップ通知を出す基本コード – Outlook VBA解析バイブル

こんにちは！マクロの記録から一歩踏み出し、いよいよOutlookの自動化という「大人のプログラミング」に足を踏み入れようとしているあなたへ。

今回は、Outlook VBAの最もエキサイティングで実用的な機能の一つ、「受信メールの監視と自動通知」を徹底解説します。

「毎日大量に届くメールの中から、重要なお知らせや『緊急』の案件を見落としてしまう……」
そんなビジネスパーソンの悩みを、VBAの力で鮮やかに解決しましょう。ここをクリアすれば、Outlook VBAの基本と「イベント駆動」の概念はバッチリです。優しく、そして本質的な部分までしっかりと導いていきますね。

—

1. なぜ「イベント」を使うのか？（基本概念の理解）

これまでのExcelマクロなどでよくある使い方は、「ボタンを押したらマクロが動く」というものでしたよね。これを「手動実行」と呼びます。

しかし、受信メールの監視において「ボタンを押してチェックする」では意味がありません。メールはいつ届くか分からないからです。
そこで登場するのが、Outlook側で何かが起きたときに自動でプログラムが起動する「イベント（Event）」という仕組みです。

• ItemAddイベント: 「受信トレイに新しいアイテム（メール）が追加された（Add）瞬間」に、Outlookが自動的に特定のプログラムを呼び出してくれる機能。

これを使えば、あなたが席を外している間も、Outlookが文番のように目を光らせて待っていてくれるわけです。

—

2. 準備：VBAエディタを開く

まずはコードを書くための舞台裏（VBAエディタ）を開きましょう。

1. Outlookを開き、キーボードの `Alt` + `F11` を押します。
2. 画面左上のメニューから [挿入] ＞ [クラス モジュール] をクリックします。
(※「あれ？ いつもの標準モジュールじゃないの？」と思った方、大正解です！イベントを受け取るには「クラスモジュール」という少し特殊な箱が必要なのです。理由は後述します)

—

3. 実装コード：コピペで動く「緊急メール監視システム」

それでは、以下のコードをそのまま新しく開いたクラスモジュールに貼り付けてください。

クラスモジュール側のコード（名前を `KinkyuChecker` などにしておくと分かりやすいです）

‘ ==============================================================================
‘ 【クラス名】KinkyuChecker
‘ 【概要】受信トレイを監視し、件名に「緊急」が含まれる場合に通知を出す
‘ ==============================================================================

‘ WithEventsをつけて宣言することで、Outlookのイベント（動き）を受け取れるようにします
Public WithEvents TargetFolder As Outlook.Items

‘ 1. 監視対象のフォルダーをセットする初期化プロシージャ
Public Sub InitializeMonitor()
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace(“MAPI”)

‘ デフォルトの「受信トレイ」オブジェクトを取得してイベント監視対象に指定
Set TargetFolder = ns.GetDefaultFolder(olFolderInbox).Items

Debug.Print “【Outlook監視】緊急メールの監視を開始しました…”
End Sub

‘ 2. 新しいアイテムが追加された瞬間（メール受信時）に自動で発火するイベント
Private Sub TargetFolder_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler

‘ 受信したアイテムが「メール（MailItem）」かどうかを判定
‘ (会議出席依頼やタスクなど、メール以外のアイテムも受信トレイに入るため)
If TypeOf Item Is Outlook.MailItem Then
Dim mail As Outlook.MailItem
Set mail = Item

‘ 件名に「緊急」というキーワードが含まれているかチェック (大文字小文字を区別しない)
If InStr(1, mail.Subject, “緊急”, vbTextCompare) > 0 Then

‘ 視覚的なデスクトップ通知（メッセージボックス）を表示
‘ ※実務では音を鳴らしたりフラグを立てたりに応用可能です
MsgBox “【緊急メール検知！】” & vbCrLf & _
“差出人: ” & mail.SenderName & vbCrLf & _
“件名: ” & mail.Subject, _
vbExclamation + vbSystemModal, _
“【警告】緊急メールを受信しました”

End If
End If
Exit Sub

ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub

標準モジュール側のコード（[挿入] ＞ [標準モジュール] で追加してください）

イベントを監視し続ける「主（ぬし）」となるインスタンスをメモリ上に常駐させるためのトリガーです。

‘ ==============================================================================
‘ 【標準モジュール】監視の起動スイッチ
‘ ==============================================================================

‘ クラスの設計図をメモリ上に実体化（インスタンス化）するための変数
Public MyWatcher As KinkyuChecker

‘ Outlook起動時や手動で実行し、監視をスタートさせるマクロ
Sub StartKinkyuMonitor()
‘ すでに起動していなければ新しく生成
If MyWatcher Is Nothing Then
Set MyWatcher = New KinkyuChecker
MyWatcher.InitializeMonitor
MsgBox “緊急メール監視システムが有効化されました。”, vbInformation, “起動完了”
Else
MsgBox “すでに監視は作動中です。”, vbInformation, “確認”
End If
End Sub

—

4. 使い方と動作テスト

1. まず、標準モジュールにある `StartKinkyuMonitor` というマクロを一度だけ手動で実行してください（VBAエディタ内でカーソルを置いてF5キーを押すか、ボタンに割り当てます）。
2. これで裏側で監視がスタートしました。
3. テストしてみましょう： ご自身の別のアカウントから、あるいは自分宛てに件名に「【緊急】システムの確認をお願いします」と書いたテストメールを送信してみてください。
4. 受信トレイにメールが届いた瞬間、パッと鮮やかな警告ダイアログ（メッセージボックス）がポップアップします！

—

5. 初心者が必ずハマる「3つの罠」と対策

Outlook VBAでイベントを扱う際、初心者が必ずと言っていいほど直面する壁があります。ここを知っておくことで、エンジニアとしてのレベルが一段と上がります。

罠1：コードを書いたのに何も起きない

• 原因: 標準モジュールの `StartKinkyuMonitor` を実行して、`MyWatcher` 変数にクラスをセットしましたか？
• 対策: Outlook VBAのイベントは、「イベントを受け取るためのクラスが、メモリ上に生存している間」しか機能しません。マクロを動かしてクラスをメモリに常駐させる儀式を忘れないようにしましょう。

罠2：Outlookを再起動したら動かなくなった

• 原因: 罠1の延長です。Outlookを閉じたり、VBAで予期せぬエラー（実行時エラー）が発生してプログラムが止まると、メモリ上の `MyWatcher` が消滅（アンロード）してしまいます。
• 対策: 本格的な運用では、Outlook起動時に自動でこの `StartKinkyuMonitor` が走るように、`ThisOutlookSession` の `Application_Startup` イベントに組み込むのがプロの常道です。

罠3：メール以外のアイテムでエラーが出る

• 原因: 受信トレイに入るのはメールだけではありません。「会議の招待」「タスクの依頼」「既読・未読の同期通知」など様々なオブジェクトが `ItemAdd` のトリガーを引きます。これらをいきなり `MailItem` として扱おうとすると型不一致エラーになります。
• 対策: 今回のコードの `If TypeOf Item Is Outlook.MailItem Then` というガード節がまさにその対策です。この「身元確認」をサボると痛い目を見ます。

—

おわりに

お疲れ様でした！
「受信トレイを監視し、特定のキーワードに反応して通知を出す」という、実務で今すぐ使える強力な自動化の仕組みがあなたの手に入りました。

今回は分かりやすく画面に `MsgBox` を出しましたが、これを応用すれば、

• 特定のフラグ（赤旗）を自動でつける
• 特定のフォルダに自動で振り分ぐ
• TeamsやチャットツールへAPI経由で飛ばす

といった高度な業務効率化へと無限に広がっていきます。

ぜひこのコードをベースに、あなたのワークスタイルに合わせてカスタマイズしてみてください。あなたのVBAライフが、より快適で知的で楽しいものになることを応援しています！