こんにちは！日々のメール作成、本当にお疲れ様です。
「あ、しまった！この案件のメール、上長をCCに入れ忘れた……！」
ビジネスの現場で、そんな冷や汗をかいた経験はありませんか？
マクロの記録から一歩踏み出し、業務自動化の領域に足を踏み入れたあなたへ。今回は、Outlook VBAを使って「メールの本文を監視し、特定のキーワードが含まれていたら自動で上長をCCに追加する」という、実用性抜群の動的制御テクニックを伝授します。
ここをクリアすれば、単なる「定型文の自動入力」を超えた、「文脈を理解して判断するマクロ」の基本がバッチリ身につきますよ。さあ、一緒にプロの扉を開きましょう！
—
1. なぜ「動的なCC制御」が必要なのか？
初学者が最初に作るメール自動化マクロは、「決まった宛先に、決まった件名・本文を送る」という静的なものがほとんどです。しかし、実際の業務では「このキーワードが入っていたら、あの人をCCに入れなければならない」という条件分岐が必ず発生します。
これを人の目と手で行っているうちは、ヒューマンエラー（入れ忘れ）を完全には防げません。
Outlook VBAのイベント（特定の動作をきっかけに発動する仕組み）を味方に付ければ、メール作成画面（`Inspector`）を監視し、あなたがキーボードを叩く裏で、システムが知的にアシストしてくれる環境を作ることができます。
—
2. 実装の全体像とアプローチ
今回目指す仕組みは以下の流れで動作します。
1. 新規メール作成画面を開く、または編集する。
2. 本文（`Body`）の中に特定のキーワード（例：「極秘」「プロジェクトX」など）が含まれているかチェックする。
3. 含まれており、かつまだCCに特定のアドレスが入っていない場合、自動的にCCへ追加する。
ここで重要になるのが、「どのタイミングでチェックを実行するか」です。
今回は、実用性を重視し、「メールを送信しようとした瞬間（`ItemSend` イベント）」に本文をスキャンし、必要であればその場でCCを補完して送信を継続するアプローチをとります。これなら、途中で本文を書き直しても確実に判定できます。
—
3. 実装コード（コピペで使える実用スクリプト）
Outlook VBAでイベントをフックするには、通常の標準モジュールではなく、`ThisOutlookSession`という特別なモジュールを使用します。
以下のコードを、あなたのOutlookの `ThisOutlookSession` にそのまま貼り付けてください。
Option Explicit
‘ ==============================================================================
‘ 【チーフアーキテクトの知見】ItemSendイベントによる送信前インターセプト
‘ 概要: メール送信の直前に本文を走査し、機密キーワードの有無に応じてCCを動的制御する
‘ ==============================================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
‘ 1. 処理対象がメール（MailItem）であるか厳密に型チェック
If TypeOf Item Is Outlook.MailItem Then
Dim mail As Outlook.MailItem
Set mail = Item
‘ — 設定エリア —
Const TARGET_KEYWORD As String = “プロジェクトX” ‘ 監視するキーワード
Const BOSS_EMAIL As String = “boss@example.com” ‘ 自動追加する上長のメールアドレス
‘ ——————
‘ 2. 本文（Body）にキーワードが含まれているか判定
‘ ※ 大文字小文字を区別しない場合は InStr(1, mail.Body, TARGET_KEYWORD, vbTextCompare) を使用
If InStr(1, mail.Body, TARGET_KEYWORD) > 0 Then
‘ 3. 既にCCに上長が含まれているか重複チェック（無駄な追加を防ぐ）
If InStr(1, mail.CC, BOSS_EMAIL) = 0 Then
‘ 4. CCへ動的に追加
If mail.CC = “” Then
mail.CC = BOSS_EMAIL
Else
mail.CC = mail.CC & “; ” & BOSS_EMAIL
End If
‘ 5. ユーザーへの優しいフィードバック（ログ出力の代わり）
MsgBox “【自動制御システム】” & vbCrLf & _
“本文に「” & TARGET_KEYWORD & “」が検知されたため、” & vbCrLf & _
“上長(” & BOSS_EMAIL & “)をCCに追加しました。”, _
vbInformation, “セキュリティ・アシスタント”
‘ ※ ここであえて送信をキャンセル（Cancel = True）せず、
‘ CCを追加したままシームレスに送信を続行させます。
End If
End If
Set mail = Nothing
End If
End Sub
—
4. コードの深掘り解説：ここがプロのポイント！
ただ動くだけのコードなら誰でも書けます。ここでは、現場でトラブルを起こさないための「プロの視点」をいくつか解説します。
① `TypeOf` による厳密な型チェック
Outlookでは、メールだけでなく、予定表（AppointmentItem）や連絡先（ContactItem）も `Item` として扱われます。もし予定表の送信時にこのマクロが走ると、`Body` プロパティの挙動で予期せぬエラー（TypeMismatchなど）を引き起こす可能性があります。
そのため、`TypeOf Item Is Outlook.MailItem` で確実にメールだけに絞り込んでいます。
② 重複追加の防止（`InStr` による二重チェック）
もしユーザーが手動ですでに上長をCCに入れていた場合、このプログラムがそのまま動くと `boss@example.com; boss@example.com` のように同じアドレスが二重に登録されてしまいます。
`InStr(1, mail.CC, BOSS_EMAIL) = 0` というガードを入れることで、「まだ入っていない時だけ追加する」というスマートな制御を実現しています。
③ セミコロン（`;`）のセーフティな連結
Outlookの宛先やCCは、複数人いる場合セミコロンで区切られます。既存のCCが空の場合と、すでに誰かが入っている場合で条件分岐（`mail.CC = “”`）を行い、不正な文字列フォーマットになるのを防いでいます。
—
5. 初学者が陥りがちな罠とエラー対策
このコードを実装する際、多くの人が以下の壁にぶつかります。あらかじめ知っておけば怖くありません。
- 罠1：「マクロが勝手に動かない！」
- 原因: Outlookのセキュリティ設定でマクロが無効化されている、または `ThisOutlookSession` ではなく「標準モジュール」にコード書いてしまっている。
- 対策: コードは必ず左ペインにある `ThisOutlookSession` に貼り付けてください。また、Outlookの「ファイル」>「オプション」>「セキュリティセンター」からマクロの設定を有効にし、Outlookを再起動してください。
- 罠2：「セキュリティ警告のポップアップが出る」
- 原因: 外部プログラムからOutlookのメールアイテム（特に宛先や本文）にアクセスするため、セキュリティソフトやOutlook自体の監視機能が働くことがあります。
- 対策: 社内利用であれば、信頼できるデジタル証明書でVBAプロジェクトに署名を行うことで、警告を回避できます。
—
おわりに
お疲れ様でした！
今回学んだ「本文を読み取り、条件に応じて宛先やプロパティを動的に書き換える」というテクニックは、Outlook自動化の核心部分です。これを応用すれば、添付ファイルの付け忘れ防止や、宛先に応じた署名の自動切り替えなど、あなたの業務を劇的に効率化するシステムへと発展させることができます。
ここをクリアしたあなたなら、もう「初学者」の枠はとうに卒業しています。ぜひ自分の職場のワークフローに合わせてカスタマイズし、まわりをアッと言わせる自動化ツールを作り上げてみてくださいね。それでは、快適なVBAライフを！
