Outlook VBAを掌握する：送信直前の「BCC自動追加」で自動化の真髄に触れる
こんにちは。業務自動化の深淵へようこそ。
これまで「マクロの記録」という安全な場所で遊んでいた君が、ついにOutlookの心臓部へメスを入れる決意をしたこと、心から歓迎するよ。
今回取り上げるのは、「特定のキーワードが含まれる場合に、自動で上司をBCCに叩き込む」という、実務で最も要望が多く、かつ最も「勘所」が試されるロジックだ。
ただコードを動かすだけなら誰でもできる。我々エンジニアが目指すべきは、「なぜそのイベントをフックするのか」「なぜRecipientsコレクションをそのタイミングで触るのか」という、オブジェクトのライフサイクルを理解した制御だ。
さあ、一歩先へ進もう。
—
1. なぜ「送信イベント」をフックするのか
Outlook VBAには「イベント」という概念がある。メール作成画面で「送信」ボタンを押した瞬間、Outlookは「今から送信するぞ！」という合図をOSに投げる。我々はその合図（`ItemSend`イベント）を盗み聞きして、送信が確定するコンマ数秒前に、メールの宛先を書き換えるんだ。
ここで重要なのは、「送信ボタンを押す前」に宛先を追加するのではないということ。ユーザーが入力した宛先に加えて、裏側でコッソリBCCを追加する。これが自動化の美しい作法さ。
—
2. 実装の舞台：ThisOutlookSession
OutlookのVBAは、標準モジュールではなく`ThisOutlookSession`という特殊な場所に書く。ここはOutlookが起動した瞬間に読み込まれる「特別なクラスモジュール」なんだ。
まずは、以下のコードをコピーしてみてほしい。
‘ 送信イベントを監視するメインロジック
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
‘ 対象がメールアイテムかどうか確認（会議招集などと区別するため）
If TypeOf Item Is MailItem Then
Dim mail As MailItem
Set mail = Item
‘ 特定キーワード（例：【重要】）が件名に含まれているかチェック
If InStr(mail.Subject, “【重要】”) > 0 Then
‘ BCCに上司のアドレスを追加
‘ Recipientオブジェクトは追加した瞬間に解決(Resolve)される
Dim bccRecipient As Recipient
Set bccRecipient = mail.Recipients.Add(“boss@example.com”)
bccRecipient.Type = olBCC
‘ メールの整合性を保つためにResolveを呼び出すのがプロの作法
If Not bccRecipient.Resolve Then
MsgBox “上司のアドレスが見つかりません。送信を中断します。”, vbCritical
Cancel = True ‘ 送信を強制キャンセル
End If
‘ 変更を保存（念のため）
mail.Save
End If
End If
End Sub
—
3. コードの「解像度」を上げる（重要ポイント）
このコードには、ただコピペしただけでは気づけない「現場の知見」が詰まっている。
- `TypeOf Item Is MailItem` の罠:
Outlookでは会議通知やタスク依頼も`Item`として流れてくる。`MailItem`以外に対して`.Subject`プロパティなどを叩くとエラーで落ちる。このガードを忘れると、予期せぬタイミングでマクロが止まる原因になるんだ。
- `.Recipients.Add` の性質:
宛先を追加する際、アドレス帳に登録されていないアドレスを指定すると、Outlookは宛先の解決（Resolve）を試みる。もしアドレスが間違っていれば送信エラーになる。だからこそ、最後の一手として`Resolve`メソッドを呼び出し、正しく送信できるかを確認する手順が不可欠なんだ。
- `Cancel = True` の強み:
もし宛先解決に失敗した際、そのままメールを送らせてはいけない。`Cancel = True`とすることで、送信プロセスをその場で遮断できる。これが「堅牢な自動化」と「適当な自動化」の分かれ目さ。
—
4. 陥りやすいエラーと対策
初心者がよく踏む地雷を共有しておくね。
1. 「マクロが反応しない！」
`ThisOutlookSession`に書いたコードは、Outlookを一度再起動しないと有効にならないことが多い。また、セキュリティ設定で「警告を表示してすべてのマクロを無効にする」になっているか確認してくれ。
2. 「無限ループの恐怖」
もしイベント内で`Item.Send`を呼んでしまうと、送信→送信イベント発生→送信→送信イベント発生…と無限ループに陥る。今回は`ItemSend`イベント内で直接Sendを呼んでいないから安全だが、自動化コードを書くときは常に「ループ」を意識すること。
—
最後に：エンジニアとしての心構え
このロジックをマスターすれば、君はもう「マクロの記録」を使うだけのユーザーではない。Outlookのイベント駆動型アーキテクチャを理解した開発者だ。
今回は「BCCの追加」という入り口を紹介したが、ここから先は「添付ファイルの有無をチェックする」「特定のドメイン以外への送信時に確認メッセージを出す」といった応用が無限に広がる。
まずはこのコードを自分の環境で動かしてみてくれ。そして、もし期待通りに上司のアドレスが追加されたら、その瞬間に君の仕事の質は一段階上がっているはずだ。
何か詰まったら、いつでも聞いてくれ。応援しているよ。
