こんにちは！マクロの記録から一歩踏み出し、自分の手でOutlookを自在に操りたいと考えているあなたへ。
業務中、「絶対に気づかなければいけない重要メール」を待っていて、ついつい受信トレイの更新ボタンを連打してしまったり、他の作業に没頭するあまり見落としてヒヤッとしたりした経験はありませんか？
今回は、Outlook VBAの最もエキサイティングで実用的な機能の一つである「イベント監視」を使って、特定のキーワードが含まれるメールを受信した瞬間に、パソコンに音で知らせてくれる「簡易監視ツール」の作り方を徹底解説します。
ここをクリアすれば、Outlook VBAの基本構造やイベントの概念はバッチリです。優しく、そして本質的な部分までしっかりと導いていきますので、一緒に進めていきましょう！
—
1. なぜ「イベント監視」なのか？（Outlook VBAの心臓部を知る）
これまでのExcelマクロなどでは、「ボタンを押したらプログラムが動く」という体験が多かったはずです。これを「手動実行」と呼びます。
しかし、Outlook VBAの真骨頂は、人間が操作しなくても「メールが届いた」「予定の時間が来た」といったOutlook側の出来事（イベント）をトリガーにして、プログラムが自動で目を覚ます点にあります。
今回使うのは、Outlookの心臓部である `Application` オブジェクトが持つ `NewMailEx` というイベントです。
メールが1件届くたびに、Outlookが「おーい、新しいメールが来たよ！」と裏側でこっそりVBAに合図を送り、条件に合致するかどうかを瞬時に判定させます。
—
2. 開発の舞台裏：どこにコードを書くのか？
初心者が最初に迷うのが、「この魔法のコードをどこに貼り付ければいいのか？」という点です。
通常の標準モジュールではなく、Outlookの「特別な場所」にコードを配置する必要があります。
手順は以下の通りです。非常にシンプルですよ。
1. Outlookを開き、キーボードの `Alt` + `F11` を押して、VBAの専用エディタ（VBE）を起動します。
2. 左上のツリービューにある `ThisOutlookSession`（このOutlookセッション） をダブルクリックします。
3. 開いた真っ白なエディタ画面に、後述のコードをそのまま貼り付けます。
> ⚠️ 超重要：なぜ `ThisOutlookSession` なのか？
> `ThisOutlookSession` は、Outlookが起動している間、常にバックグラウンドで生き続ける「親玉」のような特別なオブジェクトです。ここにイベントを受け取るためのコードを書くことで、メール受信を24時間体制で監視できるようになります。
—
3. 実装コード：音で知らせるメール監視ツール
以下のコードを、先ほど開いた `ThisOutlookSession` に貼り付けてください。
Option Explicit
‘ Applicationオブジェクトをイベント対応（WithEvents）として宣言します
‘ これにより、Outlookの裏側の動きをキャッチできるようになります
Public WithEvents myOlApp As Outlook.Application
‘ Outlookが起動した瞬間に監視の準備を行う初期化イベント
Private Sub Application_Startup()
Set myOlApp = Outlook.Application
End Sub
‘ 新しいメールを受信した瞬間に自動で発火するイベント
Private Sub myOlApp_NewMailEx(ByVal EntryIDCollection As String)
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim keyword As String
Dim i As Long
Dim entryIDs() As String
‘ 【設定エリア】ここに検知したいキーワードを入力してください
keyword = “【緊急】”
‘ NewMailExは、複数のメールIDをカンマ区切りで渡してくることがあるため配列に分解します
entryIDs = Split(EntryIDCollection, “,”)
For i = LBound(entryIDs) To UBound(entryIDs)
‘ 受信したアイテムのオブジェクトを取得
Set objItem = Application.Session.GetItemFromID(entryIDs(i))
‘ 取得したアイテムが「メール」であるかをチェック
If TypeOf objItem Is Outlook.MailItem Then
Set objMail = objItem
‘ メールの件名（Subject）または本文（Body）にキーワードが含まれているか判定
If InStr(1, objMail.Subject, keyword, vbTextCompare) > 0 Or _
InStr(1, objMail.Body, keyword, vbTextCompare) > 0 Then
‘ 条件に合致した場合：Windowsのシステム音（ビープ音）を4回鳴らす
‘ ※ ここでBEEPSOUNDなどのWindows APIを組み合わせることも可能です
Beep
Application.Wait (Now + TimeValue(“0:00:01”))
Beep
‘ デバッグ用（イミディエイトウィンドウに通知を表示）
Debug.Print “重要メール検知: ” & objMail.Subject
End If
End If
Next i
‘ メモリの解放（プログラミングの基本マナーです）
Set objItem = Nothing
Set objMail = Nothing
End Sub
—
4. コードの解説：ここが分かれば怖くない！
初心者の方にとって、見慣れない呪文のようなコードがいくつかあったはずです。本質をサクッと紐解いていきましょう。
① `Public WithEvents myOlApp As Outlook.Application`
普通の変数宣言とは違い、`WithEvents` というキーワードがついています。
これは、「ただの入れ物ではなく、Outlookから発せられるシグナル（イベント）を聴き取るアンテナにします」という宣言です。このアンテナがあるからこそ、メール受信を検知できます。
② `Private Sub Application_Startup()`
Outlookを起動したときに、自動的に1度だけ実行される特別なプロシージャ（イベントハンドラ）です。
先ほどのアンテナ（`myOlApp`）に、現在のOutlookアプリケーション自身をセットし、「さあ、監視を始めてくれ！」と命じています。
> 💡 動かないときの初期対応：
> コードを貼り付けた後、一度この `Application_Startup` の中にカーソルを置いて、上のメニューの「▶（実行ボタン）」を1度だけ手動で押してみてください。これでアンテナが有効化されます。
③ `InStr(1, objMail.Subject, keyword, vbTextCompare) > 0`
文字の中に特定のキーワードが含まれているかを調べる関数です。
大文字・小文字を区別せずに（`vbTextCompare`）キーワードを探し、もし見つかれば1以上の数字を返します。「0より大きければ、キーワードが含まれている！」と判断する仕組みです。
④ `Beep`
VBAに標準備わっている、パソコンのスピーカーから「ピピッ」と音を鳴らす命令です。今回はシンプルにこれを2回鳴らすことで、耳に飛び込んでくるようにしています。
—
5. 初心者が陥りやすい罠とエラー回避の知見
実務でこのツールを運用する際、多くの人がつまずくポイントがいくつかあります。プロのエンジニアからのアドバイスとして頭に入れておきましょう。
- 罠1：コードを貼り付けたのに、メールが来ても何も音が鳴らない
- 原因: `Application_Startup` がまだ一度も実行されておらず、アンテナ（`WithEvents`）のスイッチが入っていない状態です。
- 対策: 一度Outlookを完全に再起動するか、VBE画面で `Application_Startup` の中にカーソルを置いて手動で実行（F5キー）してください。
- 罠2：セキュリティの警告でマクロが無効化される
- 原因: Officeのセキュリティ設定により、署名のないマクロがブロックされている可能性があります。
- 対策: 「ファイル」>「オプション」>「トラストセンター」>「トラストセンターの設定」>「マクロの設定」から、「すべてのマクロを有効にする（推奨しませんがテスト時は便利）」または「デジタル署名されたマクロ以外は警告を表示して無効化する」に設定し、VBAに自己署名（SelfCert）を付与しましょう。
- 罠3：社内セキュリティでVBA自体が禁止されている
- 原因: 企業によってはグループポリシーでOutlook VBAの実行が制限されている場合があります。
- 対策: まずは情報システム部門のポリシーを確認してください。
—
おわりに：ここから広がる自動化の世界
お疲れ様でした！これであなたのOutlookには、特定の重要メールを耳でキャッチする「専用の監視レーダー」が備わりました。
ここをクリアしたあなたなら、音を鳴らすだけでなく、
- 「特定の差出人のときだけ、デスクトップにポップアップ通知を出す」
- 「受信と同時に自動で特定のフォルダーに振り分ける」
といった、さらなる高度なカスタマイズも自由自在です。
まずは今回のコードをご自身の環境にコピペして、自分宛てに「【緊急】テストメール」を送り、ピッと音が鳴る瞬間を味わってみてください。感動すること間違いなしです。
あなたの業務効率化の旅が、ここからさらに加速することを応援しています！
