【入門編】【初心者向け】受信したメールの差出人アドレスを判定し、VIP顧客からのメールにのみ赤色のフラグを立てる方法 – Outlook VBA解析バイブル

皆さん、こんにちは！業務自動化のチーフアーキテクトとして、皆さんの仕事をもっとスマートに、もっと効率的に変革するお手伝いをしています。

毎日毎日、受信トレイに雪崩のように押し寄せるメールの山。その中で、本当に対応が必要な「VIPからの重要なメール」を見逃してしまうこと、ありませんか？あるいは、手作業でフラグを立てたり、振り分けたりするルーティンにうんざりしていませんか？

「マクロの記録」でちょっとした自動化はできたけれど、もっと踏み込んだ、自分の意図通りの賢い自動化を実現したい！そう考えている皆さん、まさにこの記事はうってつけです。

今回は、Outlook VBAの力を借りて、受信したメールの差出人アドレスを判定し、VIP顧客からのメールにのみ赤色のフラグを自動で立てる方法を徹底的に解説していきます。プログラミング初学者の方でも安心して取り組めるよう、基礎から本質まで、優しく、そして丁寧に導いていきますよ。

ここをクリアすれば、Outlook VBAの基本はバッチリですよ！さあ、ご一緒に、Outlook VBAの扉を開いていきましょう！

—

目次

1. なぜ今、Outlook VBAなのか？
2. VBAエディタの基礎知識と「ThisOutlookSession」
3. Outlookのイベント駆動プログラミングを理解する
4. 実践！VIPメールを識別して赤フラグを立てるコード

• ステップ1: イベントハンドラの作成
• ステップ2: 受信メールの取得と型判定
• ステップ3: 差出人アドレスの判定ロジック
• ステップ4: フラグの付与と変更の保存
• ステップ5: オブジェクトの解放（これが極限の知見！）

5. 完成コード
6. よくあるエラーとその対策
7. 次のステップへ：もっと賢い自動化を目指して
8. まとめ

—

1. なぜ今、Outlook VBAなのか？

「VBAって古いんじゃないの？」そう思われる方もいらっしゃるかもしれません。しかし、Outlook VBAは、日常業務におけるメール処理の自動化において、今なお強力なツールです。

• 手軽に始められる: 外部ツールやAPI連携の知識がなくても、Outlook単体で完結できます。
• Outlookとの親和性: Outlookの内部オブジェクトに直接アクセスできるため、非常に細かい制御が可能です。
• イベント駆動: 「メールが届いた瞬間」や「アイテムが開かれた瞬間」といった特定のイベントをトリガーに処理を実行できるため、リアルタイムな自動化が実現できます。

特に、今回ご紹介する「受信メールの監視」は、イベント駆動プログラミングの真骨頂。皆さんの「メール処理」に対する意識をガラリと変える体験となるでしょう。

2. VBAエディタの基礎知識と「ThisOutlookSession」

まずは、VBAコードを書くための準備から始めましょう。

VBAエディタの開き方

1. Outlookを起動します。
2. キーボードで `Alt` + `F11` を押します。

• すると、VBAエディタ（Microsoft Visual Basic for Applications）が起動します。

VBAエディタの主要なウィンドウ

VBAエディタを開くと、いくつかのウィンドウが表示されます。

• プロジェクトエクスプローラー: 左側に表示されることが多いウィンドウです。Outlookのプロジェクトツリーが表示され、「Microsoft Outlook Objects」の下に「ThisOutlookSession」という項目が見つかるはずです。
• プロパティウィンドウ: 通常、プロジェクトエクスプローラーの下に表示されます。選択したオブジェクトのプロパティ（設定）を表示・変更します。
• コードウィンドウ: 中央に大きく表示されるウィンドウです。ここにVBAコードを記述していきます。

「ThisOutlookSession」とは？

今回の自動化の肝となるのが、この「ThisOutlookSession」です。

Outlook VBAでは、アプリケーション全体で発生するイベント（例：新しいメールの受信）を捕捉し、それに対する処理を記述する特別な場所が必要です。それが「ThisOutlookSession」なのです。

WordやExcelのマクロを触ったことがある方は、「標準モジュール」によくコードを書いていたかもしれませんね。しかし、Outlookでアプリケーションレベルのイベントを扱う場合は、必ず「ThisOutlookSession」にコードを記述する、と覚えておいてください。

手順:
1. プロジェクトエクスプローラーで「ThisOutlookSession」をダブルクリックします。
2. 中央のコードウィンドウに、コードを入力できるようになります。

3. Outlookのイベント駆動プログラミングを理解する

さて、本題のコードに入る前に、Outlookの「イベント駆動プログラミング」について少しだけ触れておきましょう。

通常のプログラムは、上から下へ順に実行されます。しかし、イベント駆動プログラミングは、「何か特定の出来事（イベント）が起きたら、それに紐づけられた処理を実行する」という考え方です。

今回のケースでは、「新しいメールが受信されたら」というイベントをトリガーに、差出人を判定し、フラグを立てる処理を実行したいわけです。

Outlookには様々なイベントが用意されていますが、新しいメールの受信を検知するためのイベントとして、`Application_NewMailEx` というものが存在します。

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
‘ ここに新しいメールが届いたときに実行したい処理を記述します
End Sub

• `Private Sub … End Sub`: イベントプロシージャの基本的な形です。
• `Application_NewMailEx`: Outlookアプリケーションオブジェクトが提供するイベントのうち、「新しいメールが受信された」ときに発生するものです。
• `ByVal EntryIDCollection As String`: このイベントが発生した際に、Outlookから渡される情報です。受信したアイテムのID（識別子）が文字列として渡されます。

「なぜ `MailItem` オブジェクトが直接渡されないの？」と疑問に思うかもしれませんね。これは、Outlookがメールの受信を検知してから実際にアイテムが受信トレイに表示されるまでに、わずかな時間差があるためです。`EntryIDCollection` は、その「ID」を教えてくれることで、後からそのIDを使って対象のアイテムを取得する、という仕組みになっているのです。この非同期的な性質を理解することが、安定した処理を構築する上で重要になってきます。

4. 実践！VIPメールを識別して赤フラグを立てるコード

それでは、いよいよ具体的なコードを書いていきましょう。一つ一つのステップを丁寧に解説していきます。

ステップ1: イベントハンドラの作成

まずは「ThisOutlookSession」モジュールに、イベントのひな形を作成します。

‘ ThisOutlookSession モジュールに記述します

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
‘ ここに、新しいメールが届いたときに実行したい処理を記述していきます。
‘ まずは処理の入り口だけ準備しましょう。
End Sub

これで、新しいメールが届くと、この `Application_NewMailEx` の中のコードが実行される準備が整いました。

ステップ2: 受信メールの取得と型判定

`EntryIDCollection` から、実際に受信した `MailItem` オブジェクトを取得します。この時、少しだけ注意が必要です。

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

‘ 必要なオブジェクト変数を宣言します
Dim olApp As Outlook.Application ‘ Outlookアプリケーション自体を表すオブジェクト
Dim olNs As Outlook.Namespace ‘ Outlookの名前空間（MAPIストアへのアクセスなどに使用）
Dim olItem As Object ‘ 取得したアイテムを一時的に格納する汎用オブジェクト
Dim olMail As Outlook.MailItem ‘ メールアイテムとして扱うためのオブジェクト

‘ オブジェクトへの参照を設定します（Setキーワードを忘れずに！）
Set olApp = Outlook.Application
Set olNs = olApp.GetNamespace(“MAPI”) ‘ “MAPI”はOutlookのメッセージングインターフェースの標準です

On Error GoTo ErrorHandler ‘ エラーが発生した場合の処理を指定

‘ EntryIDCollectionからメールアイテムを取得します。
‘ EntryIDCollectionは複数のIDを含む可能性がありますが、今回はシンプルに最初のIDを対象とします。
‘ 実際には、複数のIDがカンマ区切りで渡されることがありますが、
‘ 初心者向けとして、ここでは単一のアイテムとして処理することを前提とします。
Set olItem = olNs.GetItemFromID(EntryIDCollection)

‘ 取得したアイテムが本当にメールアイテムであるかを確認します。
‘ NewMailExイベントはメール以外のアイテム（会議出席依頼など）でも発生しうるため、
‘ このチェックは非常に重要です。
If TypeOf olItem Is Outlook.MailItem Then
Set olMail = olItem ‘ メールアイテムであれば、olMailに設定
‘ ここから、メール固有の処理を記述していきます

‘ — 次のステップで具体的な処理を記述 —

Else
‘ メールアイテムでなければ、このイベントの処理を終了します
GoTo CleanUp
End If

CleanUp:
‘ オブジェクトの解放（極めて重要！）
Set olMail = Nothing
Set olItem = Nothing
Set olNs = Nothing
Set olApp = Nothing

Exit Sub ‘ 正常終了

ErrorHandler:
‘ エラー処理
Debug.Print “エラー発生: ” & Err.Description & ” (エラー番号: ” & Err.Number & “)”
‘ 必要に応じてユーザーに通知したり、ログを記録したりします
Resume CleanUp ‘ エラー処理後もオブジェクト解放は忘れずに行う

End Sub

【極限の知見ポイント】`Object` と `MailItem` の使い分け、そして `TypeOf … Is …` の重要性

• `Dim olItem As Object`: まずは `Object` 型で宣言していますね。これは、`GetItemFromID` メソッドが、必ずしも `MailItem` を返すとは限らないためです。例えば、会議出席依頼やタスクリクエストなど、Outlookの様々なアイテムが受信される可能性があります。どんなアイテムが来ても一旦受け止められるように、汎用的な `Object` 型で受け取るのが堅牢なプログラミングの第一歩です。
• `If TypeOf olItem Is Outlook.MailItem Then`: ここで、取得した `olItem` が本当に `MailItem` なのかを厳密にチェックしています。このチェックを怠ると、メール以外のアイテムに対して `MailItem` 特有のプロパティ（`SenderEmailAddress` など）を操作しようとして、実行時エラーが発生してしまいます。
• `Set olMail = olItem`: 型が `MailItem` であると確認できたら、専用の `Outlook.MailItem` 型の変数にキャスト（代入）することで、IntelliSense（入力補完）が効くようになり、コードの記述が格段に楽になります。

この一手間が、予期せぬエラーを防ぎ、安定した自動化を実現する上で非常に重要な考え方です。

ステップ3: 差出人アドレスの判定ロジック

いよいよ、VIP顧客を識別するためのロジックを実装します。

‘ — ステップ2のコードの続き（If TypeOf olItem Is Outlook.MailItem Then の中） —

‘ VIP顧客のメールアドレスやドメインを定義します
‘ 定数（Const）として定義すると、コードの可読性が上がり、変更も容易になります
Const VIP_DOMAIN_1 As String = “vip-company.com”
Const VIP_DOMAIN_2 As String = “important-client.co.jp”
Const VIP_EMAIL_ADDRESS_1 As String = “ceo@example.com”
Const VIP_EMAIL_ADDRESS_2 As String = “support@super-vip.net”

Dim senderAddress As String ‘ 差出人アドレスを格納する変数

‘ 差出人アドレスを取得し、比較のためにすべて小文字に変換します
‘ 大文字・小文字を区別しない比較は、思わぬ判定ミスを防ぐ上で重要です
senderAddress = LCase(olMail.SenderEmailAddress)

‘ 差出人アドレスがVIPリストに含まれるか判定します
‘ InStr関数は、指定した文字列が別の文字列内に含まれているかをチェックします
‘ InStr(検索対象文字列, 検索する文字列) > 0 であれば、含まれていると判断できます
If InStr(senderAddress, LCase(VIP_DOMAIN_1)) > 0 Or _
InStr(senderAddress, LCase(VIP_DOMAIN_2)) > 0 Or _
senderAddress = LCase(VIP_EMAIL_ADDRESS_1) Or _
senderAddress = LCase(VIP_EMAIL_ADDRESS_2) Then

‘ ここにVIP顧客からのメールである場合の処理を記述します
‘ — 次のステップでフラグ付与の処理を記述 —

Else
‘ VIP顧客からのメールではない場合は何もしないか、別の処理を記述します
‘ 今回はフラグ付与の対象外なので、ここで処理を終了させます
GoTo CleanUp ‘ オブジェクト解放へジャンプ
End If

‘ — ステップ2のCleanUpラベルとErrorHandlerラベルの前に記述 —

解説:

• `olMail.SenderEmailAddress`: このプロパティが、メールの差出人（送信者）のメールアドレスを返してくれます。
• `LCase()` 関数: これは文字列をすべて小文字に変換する関数です。メールアドレスは `Example@Domain.com` のように大文字・小文字が混在している場合がありますが、`example@domain.com` と比較することで、判定漏れを防ぎます。
• `Const`: 定数としてVIPアドレスを定義しています。こうすることで、後からVIPリストを変更する際に、この部分だけを修正すればよく、コードの保守性が向上します。
• `InStr()` 関数: 特定のドメインからのメールを判定するのに非常に便利です。例えば、`@vip-company.com` というドメイン全体をVIPとしたい場合に活用できます。
• `Or` 演算子: 複数の条件のいずれかに合致すればOK、という場合に利用します。

ステップ4: フラグの付与と変更の保存

VIPメールと判定されたら、いよいよ赤色のフラグを立てて、後から見つけやすくする処理です。

‘ — ステップ3のIfブロックの中（VIP顧客からのメールである場合の処理） —

‘ メールにフラグを付与します
‘ olFlagMarked: フラグが設定されている状態
‘ olFlagRed: 赤色のフラグアイコンを設定
olMail.FlagStatus = Outlook.OlFlagStatus.olFlagMarked
olMail.FlagIcon = Outlook.OlFlagIcon.olFlagRed

‘ MarkAsTaskメソッドを使用することで、Outlookのタスクリストにも表示され、
‘ 視覚的なフラグが確実に設定されます。これは単にFlagStatusを変更するよりも効果的です。
‘ ここではメールの作成日時をタスクの開始日とし、赤フラグを設定しています。
‘ olMail.CreationTime: メールが作成された日時
olMail.MarkAsTask olMail.CreationTime, Outlook.OlFlagIcon.olFlagRed

‘ 必要であれば、フラグの期限を設定することもできます（例: 7日後を期限とする）
‘ olMail.FlagDueBy = Now + 7 ‘ 今から7日後を期限とする

‘ VIPメールは重要なので、未読のままにしておくのが賢明です。
‘ 既読にする場合は以下の行を有効にしてください。
‘ olMail.UnRead = False ‘ メールを既読にする

‘ 変更した内容を保存します。これを忘れるとフラグは適用されません！
olMail.Save

‘ — ステップ3のElseブロックの前に記述 —

解説:

• `olMail.FlagStatus = Outlook.OlFlagStatus.olFlagMarked`: フラグが「マーク済み」であることを設定します。
• `olMail.FlagIcon = Outlook.OlFlagIcon.olFlagRed`: フラグのアイコンを「赤色」に設定します。Outlookには他にも青、緑、黄などのフラグアイコンがあります。
• `olMail.MarkAsTask …`: これが非常に重要なポイントです！ `FlagStatus` と `FlagIcon` を設定するだけでは、Outlookのバージョンや設定によっては、期待通りに視覚的なフラグが表示されないことがあります。`MarkAsTask` メソッドを併用することで、メールがタスクとしてマークされ、Outlookの「タスク」セクションにも表示されるようになり、確実に赤色のフラグがメールリストに表示されるようになります。これにより、見落としを確実に防ぎます。
• `olMail.UnRead = False`: この行を有効にすると、メールが自動的に既読になります。しかし、VIPメールは見落としたくないことが多いはず。そのため、今回はコメントアウト（処理を無効化）して、未読のままにしておくことを推奨します。
• `olMail.Save`: 最も忘れやすいけれど、最も重要な一行です！ プロパティを変更しただけでは、その変更はメモリ上にあるだけで、実際にOutlookのアイテムには反映されません。`Save` メソッドを呼び出すことで、変更内容がOutlookに保存されます。これを忘れると、せっかくの自動化が無駄になってしまいますので、必ず覚えておいてください。

ステップ5: オブジェクトの解放（これが極限の知見！）

すべての処理が終わったら、使用したオブジェクトを解放する必要があります。これは、特にOutlook VBAのようなCOMオブジェクトを扱う際に、非常に重要な作業です。

‘ — ステップ2のCleanUpラベルの下に記述 —

CleanUp:
‘ オブジェクトの解放は非常に重要です！
‘ これを怠ると、メモリリークやOutlookの不安定化につながることがあります。
‘ プログラムが終了しても、COMオブジェクトがメモリに残り続けてしまうのを防ぎます。
Set olMail = Nothing
Set olItem = Nothing
Set olNs = Nothing
Set olApp = Nothing

Exit Sub ‘ 正常終了

【極限の知見ポイント】なぜ `Set … = Nothing` が必要なのか？

VBAは、JavaやC#のように自動で不要なメモリを解放してくれる「ガベージコレクション」の機能が限定的です。特に、Outlookオブジェクトのような「COM (Component Object Model)」オブジェクトを扱う場合、明示的に `Set … = Nothing` とすることで、オブジェクトが占有していたリソースを解放し、メモリリーク（メモリが徐々に消費されていく現象）や、Outlookの予期せぬ動作を防ぐことができます。

一見地味に見えるかもしれませんが、この `Set … = Nothing` という一行が、安定したシステムの礎を築く、まさに「極限の知見」の一つなんですよ。大規模なシステムや長時間稼働するシステムを構築する際には、このオブジェクトのライフサイクル管理の意識が非常に重要になります。

5. 完成コード

これまでのステップをすべてまとめた、完成コードです。
「ThisOutlookSession」モジュールにこのコードをコピー＆ペーストして、VIPのメールアドレスやドメインを皆さんの環境に合わせて変更してください。

‘ =========================================================================================
‘ ファイル名: ThisOutlookSession
‘ 概要: 受信したメールの差出人アドレスを判定し、VIP顧客からのメールにのみ赤色のフラグを立てるVBAマクロ
‘ 最終更新日: 2023-10-27
‘ =========================================================================================

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

‘ ————————————————————————————-
‘ 1. オブジェクト変数の宣言
‘ ————————————————————————————-
Dim olApp As Outlook.Application ‘ Outlookアプリケーション自体を表すオブジェクト
Dim olNs As Outlook.Namespace ‘ Outlookの名前空間（MAPIストアへのアクセスなどに使用）
Dim olItem As Object ‘ 取得したアイテムを一時的に格納する汎用オブジェクト
Dim olMail As Outlook.MailItem ‘ メールアイテムとして扱うためのオブジェクト
Dim senderAddress As String ‘ 差出人アドレスを格納する変数

‘ ————————————————————————————-
‘ 2. VIP顧客のメールアドレスやドメインの定義
‘ ここに皆さんのVIP顧客の情報を追加・変更してください。
‘ ————————————————————————————-
Const VIP_DOMAIN_1 As String = “vip-company.com” ‘ 特定のドメインからのメール
Const VIP_DOMAIN_2 As String = “important-client.co.jp” ‘ 別の重要ドメイン
Const VIP_EMAIL_ADDRESS_1 As String = “ceo@example.com” ‘ 特定のメールアドレス
Const VIP_EMAIL_ADDRESS_2 As String = “support@super-vip.net” ‘ 別の重要アドレス

‘ ————————————————————————————-
‘ 3. エラーハンドリングの設定
‘ 予期せぬエラーが発生した場合に、プログラムが停止しないようにするための設定です。
‘ ————————————————————————————-
On Error GoTo ErrorHandler

‘ ————————————————————————————-
‘ 4. Outlookオブジェクトへの参照設定
‘ ————————————————————————————-
Set olApp = Outlook.Application
Set olNs = olApp.GetNamespace(“MAPI”) ‘ “MAPI”はOutlookのメッセージングインターフェースの標準です

‘ ————————————————————————————-
‘ 5. 受信したアイテムの取得と型判定
‘ NewMailExイベントはメール以外のアイテムも検知するため、メールであることを確認します。
‘ ————————————————————————————-
‘ EntryIDCollectionからメールアイテムを取得します。
‘ EntryIDCollectionは複数のIDを含む可能性がありますが、今回はシンプルに最初のIDを対象とします。
Set olItem = olNs.GetItemFromID(EntryIDCollection)

‘ 取得したアイテムが本当にOutlook.MailItem型であるかを確認
If TypeOf olItem Is Outlook.MailItem Then
Set olMail = olItem ‘ メールアイテムであれば、olMail変数に設定

‘ ———————————————————————————
‘ 6. 差出人アドレスの取得と判定ロジック
‘ ———————————————————————————
‘ 差出人アドレスを取得し、比較のためにすべて小文字に変換します。
‘ 大文字・小文字を区別しないことで、判定ミスを防ぎます。
senderAddress = LCase(olMail.SenderEmailAddress)

‘ 差出人アドレスがVIPリストに含まれるか判定します。
‘ InStr関数は、指定した文字列が別の文字列内に含まれているかをチェックします。
‘ Or演算子で複数の条件のいずれかに合致するかを確認します。
If InStr(senderAddress, LCase(VIP_DOMAIN_1)) > 0 Or _
InStr(senderAddress, LCase(VIP_DOMAIN_2)) > 0 Or _
senderAddress = LCase(VIP_EMAIL_ADDRESS_1) Or _
senderAddress = LCase(VIP_EMAIL_ADDRESS_2) Then

‘ —————————————————————————–
‘ 7. VIPメールに対する処理: 赤フラグの付与と保存
‘ —————————————————————————–
‘ メールにフラグを付与します（マーク済みに設定）
olMail.FlagStatus = Outlook.OlFlagStatus.olFlagMarked
‘ フラグのアイコンを赤色に設定します
olMail.FlagIcon = Outlook.OlFlagIcon.olFlagRed

‘ MarkAsTaskメソッドを使用することで、Outlookのタスクリストにも表示され、
‘ 視覚的なフラグが確実に設定されます。これは単にFlagStatusを変更するよりも効果的です。
‘ ここではメールの作成日時をタスクの開始日とし、赤フラグを設定しています。
olMail.MarkAsTask olMail.CreationTime, Outlook.OlFlagIcon.olFlagRed

‘ 必要であれば、フラグの期限を設定することもできます（例: 受信から7日後を期限とする）
‘ olMail.FlagDueBy = Now + 7

‘ VIPメールは重要なので、未読のままにしておくことを推奨します。
‘ 既読にする場合は以下の行のコメントアウトを外してください。
‘ olMail.UnRead = False

‘ 変更した内容をOutlookに保存します。これを忘れるとフラグは適用されません！
olMail.Save

End If ‘ VIP判定のIf文終了
End If ‘ メールアイテム型判定のIf文終了

CleanUp:
‘ ————————————————————————————-
‘ 8. オブジェクトの解放 (非常に重要！)
‘ メモリリークやOutlookの不安定化を防ぐため、使用したオブジェクトは必ず解放します。
‘ ————————————————————————————-
Set olMail = Nothing
Set olItem = Nothing
Set olNs = Nothing
Set olApp = Nothing

Exit Sub ‘ プロシージャを正常終了します

ErrorHandler:
‘ ————————————————————————————-
‘ 9. エラー処理
‘ エラーが発生した場合、詳細をデバッグウィンドウに表示します。
‘ 運用時は、エラーログへの記録やユーザーへの通知を検討してください。
‘ ————————————————————————————-
Debug.Print “Outlook VBA 自動フラグ付けエラー発生: ” & Err.Description & ” (エラー番号: ” & Err.Number & “)”
‘ エラーが発生しても、CleanUp処理は必ず実行されるようにします。
Resume CleanUp

End Sub

6. よくあるエラーとその対策

プログラミング初心者の方が陥りやすいエラーと、その対策について解説します。

エラー1: 実行時エラー ’91’: オブジェクト変数または With ブロック変数が設定されていません。

• 原因: `Set` キーワードを付け忘れてオブジェクト変数に値を代入しようとしたか、または `Nothing` になってしまったオブジェクトを操作しようとした場合に発生します。

‘ 誤った例: Setを忘れている
‘ olApp = Outlook.Application ‘ これだとエラー

‘ 正しい例
Set olApp = Outlook.Application

• 対策: オブジェクト変数に値を設定する際は、必ず `Set` キーワードを使用してください。また、`Set Nothing` で解放した後に、そのオブジェクトを使用しようとしていないかも確認しましょう。

エラー2: 実行時エラー ‘-2147467259 (80004005)’: アイテムが見つかりませんでした。

• 原因: `olNs.GetItemFromID(EntryIDCollection)` で指定した `EntryIDCollection` が、Outlook内で有効なアイテムを指していない場合に発生することがあります。例えば、メール受信直後に何らかの理由でアイテムが削除されたり、移動されたりした場合などです。
• 対策: 今回のコードには `On Error GoTo ErrorHandler` を組み込んでいますので、エラーが発生してもVBAが強制終了することはありません。このエラーが出た場合は、デバッグウィンドウにエラーメッセージが表示されますので、その内容を確認し、原因を特定しましょう。通常は、一時的なネットワークの問題やOutlookの状態が原因で発生することが多いです。

エラー3: マクロが実行されない！

• 原因1: マクロのセキュリティ設定
• Outlookのマクロセキュリティ設定が、「すべてのマクロを無効にする、通知なし」になっていると、マクロは実行されません。
• 対策1:

1. Outlookの `ファイル` タブをクリックし、`オプション` を選択します。
2. `トラストセンター` -> `トラストセンターの設定` をクリックします。
3. `マクロの設定` を選択し、「VBA マクロを有効にする (推奨しません。危険なコードが実行される可能性があります)」または「警告を表示してすべてのマクロを無効にする」を選択します。（通常は警告表示が安全です。）
4. 設定変更後、Outlookを再起動してください。

• 原因2: コードの記述場所が間違っている
• `Application_NewMailEx` イベントは、「ThisOutlookSession」モジュールに記述しないと機能しません。
• 対策2: コードが本当に「ThisOutlookSession」に記述されているか、プロジェクトエクスプローラーで確認してください。

• 原因3: Outlookが再起動されていない
• `ThisOutlookSession` に記述されたイベントプロシージャは、Outlookの起動時に読み込まれます。コードを変更した場合は、Outlookを一度終了し、再起動しないと変更が反映されないことがあります。
• 対策3: コードを変更したら、必ずOutlookを再起動してください。

7. 次のステップへ：もっと賢い自動化を目指して

今回の内容で、Outlook VBAのイベント駆動プログラミングの基礎と、オブジェクトの操作、そして何よりも「オブジェクトのライフサイクル」の重要性を理解できたはずです。ここからさらに、皆さんの自動化スキルを磨いていきましょう！

発展的な内容のヒント

• VIPリストの外部化:
• 現在のVIPリストはコード内に直接記述されていますが、これをExcelシートやテキストファイルに記述し、VBAから読み込むようにすれば、コードを変更せずにVIPリストを更新できるようになります。
• フォルダへの自動振り分け:
• VIPメールを特定のフォルダ（例: 「VIP顧客」フォルダ）に自動で移動させるには、`olMail.Move` メソッドを使用します。
• 件名や本文による判定:
• `olMail.Subject` (件名) や `olMail.Body` (本文) プロパティを使って、特定のキーワードを含むメールにのみ処理を実行することも可能です。
• エラーハンドリングの強化:
• 今回は簡単なエラーハンドリングを導入しましたが、実運用ではエラーログの記録や、特定の状況での通知など、より詳細なエラー処理が求められることがあります。
• ユーザー設定プロパティの活用:
• メールに「このメールは〇月〇日にVIP処理済み」といったカスタム情報を付与することで、重複処理の防止や追跡が可能になります。`olMail.UserProperties` を調べてみてください。

—

8. まとめ

皆さん、本当にお疲れ様でした！

今回は、Outlook VBAを使って「受信したメールの差出人アドレスを判定し、VIP顧客からのメールにのみ赤色のフラグを立てる」という自動化を実現しました。

• `ThisOutlookSession` を使ったイベント駆動プログラミングの基本。
• `EntryIDCollection` から `MailItem` を取得し、型を安全に判定する方法。
• `SenderEmailAddress` プロパティと `LCase`, `InStr` を使った差出人アドレスの判定。
• `FlagStatus`, `FlagIcon`, そして特に重要な `MarkAsTask` メソッドを使ったフラグの付与。
• そして、COMオブジェクトを扱う上での「極限の知見」である `Set Nothing` によるオブジェクトの解放。

これらを習得できたあなたは、もはや「マクロの記録」を卒業し、自分の手でOutlookの挙動をコントロールできる、立派な自動化エンジニアの卵です！

Outlook VBAの世界は奥深く、皆さんの業務を劇的に改善する可能性を秘めています。今回の知識を土台として、さらに様々な自動化に挑戦してみてください。

「ここをクリアすれば、Outlook VBAの基本はバッチリですよ！」
あなたの次のステップを、心から応援しています！