「マクロの記録」を卒業しよう。受信メールを自動で色分けする「イベント駆動型」VBAへの第一歩
こんにちは。自動化の世界へようこそ。
「マクロの記録」ボタンを押して、自分の操作を記録する。それは素晴らしい第一歩です。しかし、もしあなたが「メールが届いた瞬間に、特定の人のメールだけを自動で『重要』色に変えたい」と思ったなら、記録機能だけでは太刀打ちできません。
なぜなら、記録機能は「あなたが操作したこと」を記録するものであり、「何かが起きたこと（イベント）」に反応する仕組みではないからです。
今日は、プログラミング初学者が一歩抜き出し、プロの自動化エンジニアへの階段を登るための最初のステップとして、「受信イベント（NewMailEx）を活用した、メールの自動カテゴリー付与」をマスターしていきましょう。
ここをクリアすれば、Outlook VBAの基本はバッチリですよ。
1. コンセプト：なぜ「NewMailEx」なのか？
まず、設計思想の話をしましょう。
Outlookで「メールが届いた」という出来事を検知する仕組みは、「イベント」と呼ばれます。今回私たちが使うのは `Application_NewMailEx` というイベントです。
ここで、ベテランエンジニアが絶対に教えたくない（けれど、教えるべき）重要な知識があります。それは、`NewMail` と `NewMailEx` の違いです。
- NewMail: 「何かメールが届いたよ！」とだけ教えてくれる。どのメールか特定するには、受信トレイを全部スキャンする必要があり、効率が悪いです。
- NewMailEx: 「このID（EntryID）のメールが届いたよ！」と、メールの背番号（EntryID）を直接教えてくれます。
大量のメールが流れる実務環境において、全件スキャンはパフォーマンスの低下を招きます。「届いたそのものだけをピンポイントで操作する」。これが、オブジェクトのライフサイクルを理解したエンジニアの書き方です。
2. 実装：特定の差出人を自動で色分けするコード
それでは、実際にコードを書いていきましょう。
以下のコードは、「特定のメールアドレスからメールが届いたら、自動的に『重要』というカテゴリーを付与する」ものです。
設定手順
1. Outlookで `Alt + F11` を押し、VBAエディタを開きます。
2. 左側のツリーから `Microsoft Outlook Objects` 内の `ThisOutlookSession` をダブルクリックして開きます。
3. 右側の白い画面に、以下のコードを貼り付けてください。
' ============================================================
' 目的: 特定の差出人からのメールを受信した際、自動でカテゴリーを付与する
' 使用イベント: Application_NewMailEx (受信イベント)
' ============================================================
Private Sub Application_NewMailEx(ByVal EntryID As String)
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim targetSender As String
Dim targetCategory As String
' --- 設定エリア ---
' 監視したい特定のメールアドレスを指定してください
targetSender = "boss@example.com"
' 付与したいカテゴリー名を指定してください（Outlook側に作成済みであること）
targetCategory = "重要"
' ------------------
' 1. EntryIDを使って、届いたメールのオブジェクトを直接取得する
' これが「ピンポイント操作」の肝です。
Set objItem = Application.Session.GetItemFromID(EntryID)
' 2. 届いたのが「メール」であることを確認する
' 会議出席依頼などが届いた場合にエラーにならないよう、型チェックを行います
If TypeOf objItem Is Outlook.MailItem Then
Set objMail = objItem
' 3. 差出人のアドレスをチェック
' SenderEmailAddressプロパティを使用して判定します
If objMail.SenderEmailAddress = targetSender Then
' 4. カテゴリーを付与する
' 注意：単に Categories = targetCategory と書くと、既存のタグが消えてしまいます。
' 既存のタグを残しつつ、新しいタグを追加する書き方がプロの作法です。
If InStr(objMail.Categories, targetCategory) = 0 Then
' カテゴリーがまだ付いていなければ追加
objMail.Categories = objMail.Categories & IIf(objMail.Categories = "", "", "; ") & targetCategory
' 変更を確定させるために保存
objMail.Save
' デバッグ用（動作確認ができたら消してOKです）
Debug.Print "重要メールを検知しました: " & objMail.Subject
End If
End If
End If
' メモリ解放（オブジェクトのライフサイクルを適切に管理）
Set objMail = Nothing
Set objItem = Nothing
End Sub3. コードの解剖学：エンジニアの視点
このコードには、初心者が脱却すべき「3つの重要なポイント」が隠されています。
① 型の安全性を確保する (`TypeOf`)
メールボックスには、メールだけでなく「会議の招待状」や「配信不能通知」など、さまざまなオブジェクトが届きます。それらに対して「メール専用のプロパティ（SenderEmailAddressなど）」を無理やり読み取ろうとすると、プログラムは即座にクラッシュします。
`If TypeOf objItem Is Outlook.MailItem` という一文は、「これは本当にメールですか？」と確認する、守りのプログラミングです。
② カテゴリーの「上書き」を防ぐ
ここが一番の落とし穴です。
`objMail.Categories = “重要”` と書いてしまうと、もしそのメールに既に「プロジェクトA」というカテゴリーが付いていた場合、それが消えて「重要」だけになってしまいます。
`objMail.Categories & “; ” & targetCategory` という書き方によって、「今の状態に、新しいタグを付け足す」という、ユーザーに優しい挙動を実現しています。
③ メモリの解放 (`Set … = Nothing`)
使い終わったオブジェクト（メールの情報など）は、明示的に「使い終わりました」とコンピュータに伝えてあげましょう。これは大規模なシステムを組む際に、メモリ不足による動作不安定を防ぐための鉄則です。
4. よくあるエラーと解決策（トラブルシューティング）
「コードを貼ったのに動かない！」という時、原因はコード以外にあることが多いものです。
- エラー1：マクロが有効になっていない
Outlookの [ファイル] > [オプション] > [トラストセンター] > [トラストセンターの設定] > [マクロの設定] を確認してください。「すべてのマクロに対して警告を表示する」または「すべてのマクロを有効にする」にする必要があります。
- エラー2：カテゴリー名が間違っている
Outlookの画面上で、あらかじめ「重要」という名前のカテゴリーを作成しておいてください。存在しない名前を指定してもエラーにはなりませんが、何も起きません。
- エラー3：アドレスの形式が違う
`targetSender` に指定するアドレスは、`objMail.SenderEmailAddress` で取得できる形式と完全に一致させる必要があります。Exchange環境（社内サーバー）では、メールアドレスではなく内部的なIDが返ってくることがあるため、その場合は `objMail.Sender.Address` を検討してください。
最後に
お疲れ様でした。あなたは今、単なる「操作の記録」を超えて、「システムの変化を検知して、自律的に動くプログラム」を書く術を手にしました。
この `NewMailEx` という仕組みをマスターしたことは、自動化エンジニアとしての大きな一歩です。次は「特定のキーワードが含まれていたらフォルダを移動する」や「添付ファイルを自動で保存する」といった応用にも挑戦してみてください。
一歩ずつ、確実に。コードの背後にある「なぜこう書くのか？」という意図を大切にしていけば、あなたは必ず、複雑な業務を魔法のように自動化できるエンジニアになれますよ。
応援しています！
