こんにちは！バックオフィスの自動化から複雑なメールルーティングまで、OutlookとVBAの組み合わせで数々のシステムを構築してきたチーフアーキテクトの私です。
「マクロの記録」ボタンを押すだけの世界からはもう卒業しましたね。一歩先へ進んだあなたなら、きっとこんな悩みにぶつかったことがあるはずです。
- 「あ、しまった！あの案件、上長をCCに入れ忘れた……！」
- 「特定のプロジェクト名が入っているときは、自動で関係者をCCにねじ込みたいなぁ」
人間の記憶や注意力に頼る自動化は、いつか必ず破綻します。ならば、メールが飛び立つほんの一瞬の隙を突いて、Outlookの「送信トレイ」を監視し、自動で宛先を最適化するルールエンジンをVBAで作り上げてしまいましょう。
ここをクリアすれば、あなたも立派なOutlook VBAのエンジニアです。さあ、一緒に深淵なる世界へ足を踏み入れましょう！
—
なぜ「送信時」ではなく「送信トレイ」なのか？
初心者の方が最初に思いつくのは、「送信ボタン（`Send`イベント）が押された瞬間に中身を書き換える」というアプローチです。しかし、実はこれ、プロの世界では少しお行儀が悪いとされています。`Send`イベントの最中にメールボディをごちゃごちゃいじると、Outlookがフリーズしたり、最悪の場合クラッシュしたりする原因になるからです。
そこで私たちが使うのが、「送信トレイ（Outbox）監視の術」です。
1. ユーザーが「送信」を押す。
2. メールの実体が「送信トレイ」に格納される（この瞬間を捉える！）。
3. VBAが瞬時に件名や本文をスキャンし、キーワードを発見したらCCにしれっと上長を追加する。
4. 送信処理が何食わぬ顔で続行される。
このアーキテクト然としたアプローチであれば、Outlookに負荷をかけず、安全かつ確実な動的制御が可能になります。
—
魔法のコード：送信トレイ監視エンジン
それでは、実際のコードを公開しましょう。
このコードは、通常の標準モジュールではなく、`ThisOutlookSession` という特別な場所に記述する必要があります（ここが最初のつまずきポイントです！）。
以下のコードをコピーして、ご自身のOutlook VBAエディタの `ThisOutlookSession` に貼り付けてください。
‘ ==============================================================================
‘ 【チーフアーキテクト特製】送信トレイ自動CC追加エンジン
‘ 概要: 送信トレイに格納されたメールを監視し、特定のキーワードに応じて
‘ 自動的にCCを追加するプロ仕様のイベントハンドラー
‘ ==============================================================================
Option Explicit
‘ 送信トレイ内のアイテムを監視するためのオブジェクト変数
Private WithEvents OutboxItems As Outlook.Items
‘ 1. Outlook起動時に自動で監視システムを稼働させる
Private Sub Application_Startup()
Dim mapiNs As Outlook.NameSpace
Set mapiNs = Application.GetNamespace(“MAPI”)
‘ デフォルトプロファイルの「送信トレイ」フォルダを取得
Set OutboxItems = mapiNs.GetDefaultFolder(olFolderOutbox).Items
‘ ※本番稼働時はコメントアウトを解除しても良いですが、まずは静かに見守ります
‘ MsgBox “送信トレイ監視エンジンが起動しました。”, vbInformation, “Architect Engine”
End Sub
‘ 2. 送信トレイに新しいアイテム（メール）が追加された瞬間に発火する
Private Sub OutboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler
‘ 追加されたオブジェクトが「メールアイテム」であるか厳密に型チェック
If Item.Class = olMail Then
Dim mail As Outlook.MailItem
Set mail = Item
‘ ———————————————————————-
‘ 【設定エリア】ここを用途に合わせて書き換えてください
‘ ———————————————————————-
Const PROJECT_KEYWORD As String = “【αプロジェクト】”
Const BOSS_EMAIL As String = “boss@example.com”
‘ ———————————————————————-
‘ 本文（Body）または件名（Subject）にキーワードが含まれているか判定
If InStr(1, mail.Subject, PROJECT_KEYWORD, vbTextCompare) > 0 Or _
InStr(1, mail.Body, PROJECT_KEYWORD, vbTextCompare) > 0 Then
‘ すでにCCに上長が含まれていないか重複チェック
If Not IsAlreadyInCC(mail, BOSS_EMAIL) Then
‘ CCに追加
mail.CC = mail.CC & IIf(mail.CC = “”, “”, “; “) & BOSS_EMAIL
‘ 変更を確実に保存
mail.Save
‘ 開発者向けの足跡（必要に応じて削除してください）
Debug.Print “【自動CC追加】” & PROJECT_KEYWORD & ” を検出したため、” & BOSS_EMAIL & ” をCCに追加しました。”
End If
End If
End If
Exit Sub
ErrorHandler:
MsgBox “送信トレイ監視中にエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
‘ 3. 既にCCに入っているか重複を防ぐためのヘルパー関数
Private Function IsAlreadyInCC(mail As Outlook.MailItem, emailAddr As String) As Boolean
Dim recipient As Outlook.Recipient
IsAlreadyInCC = False
For Each recipient In mail.Recipients
‘ Type = 2 は CC を意味します
If recipient.Type = olCC Then
If LCase(recipient.Address) = LCase(emailAddr) Or _
LCase(recipient.PropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/proptag/0x39FE001E”)) = LCase(emailAddr) Then
IsAlreadyInCC = True
Exit For
End If
End If
Next recipient
End Function
—
コードの急所と解説：なぜこの書き方なのか？
初学者から中級者へステップアップするために、このコードの「美しさ」と「エンジニアのこだわり」を解説しておきましょう。
① `WithEvents` と `Application_Startup` のコンボ
通常のマクロはボタンを押して実行しますが、イベント駆動型マクロは「Outlookが自ら動く」仕組みです。
`Application_Startup` は、Outlookを起動した瞬間に1度だけ走る特殊なイベント。ここで `OutboxItems` に送信トレイを紐づけることで、裏で常時監視の網を張ることができます。
② `Item.Class = olMail` による型安全性の確保
送信トレイに入るのは、何もメールだけではありません。会議の招待状やタスクの依頼などが混ざることもあります。もしこれらを無視して `MailItem` として強制キャスト（変換）すると、VBAは盛大にクラッシュします。
`Item.Class = olMail` で厳格にフィルターをかける。これがプロの防御的プログラミングです。
③ プロパティアクセサによる強固な重複チェック
メールのCCにすでに上長が入っているのに、毎回追加していたら「Boss, Boss, Boss…」と、宛先が上長だらけのホラーメールになってしまいます。
`IsAlreadyInCC` 関数では、単なる文字列一致だけでなく、MAPIプロパティ（内部的なアドレス表現）まで覗き見して重複を防いでいます。ここまでやれば実務で絶対に破綻しません。
—
導入時の重要な注意点（ハマりポイント）
ここで「動かない！」と嘆く前に、以下の3点を確認してください。
1. コードを貼る場所を間違えていないか？
標準モジュール（Module1など）ではなく、プロジェクトツリーにある `ThisOutlookSession` の中にコードを貼り付けてください。
2. マクロのセキュリティ設定
企業のアカウントでは、デジタル署名のないマクロがブロックされる場合があります。「ファイル」＞「オプション」＞「セキュリティ センター」からマクロの設定を確認してください。
3. 一度Outlookを再起動したか？
`Application_Startup` は、Outlookが立ち上がった瞬間にしかフックされません。コードを貼り付けた後は、必ずOutlookを完全に終了し、再起動させてください。
—
さあ、実戦へ踏み出そう
ここをクリアすれば、あなたのOutlookはただのメールクライアントではなく、「自律型のスマートアシスタント」に生まれ変わります。
「送信トレイを制する者は、Outlook VBAを制す」
ぜひご自身の環境に組み込んで、同僚や上長をあっと言わせる自動化ライフを満喫してください。それでは、次のアーキテクチャでお会いしましょう！
