こんにちは！日々のメール処理、本当にお疲れ様です。
「あ、あのメール、BCCに入れ忘れた……！」と冷や汗をかいた経験、ありませんか？あるいは、重要なやり取りを上司に共有し忘れて怒られたり……。
今回は、そんなビジネスパーソンの「うっかり」をテクノロジーの力で完全にハックする魔法のような仕組みを作ります。
テーマは「送信済みメールの宛先（To / CC）を自動で抽出して、BCCにコピーする便利ツールの作成」です。
マクロの記録から一歩踏み出し、Outlook VBAの最もエキサイティングな機能の一つである「イベントプロシージャ（裏方で自動稼働する仕組み）」の扉を一緒に叩いてみましょう。ここをクリアすれば、あなたのOutlook VBAの基本はバッチリです！
—
1. なぜ「手動」ではなく「VBA」なのか？
「毎回BCCに自分のアドレスや特定の宛先を追加すればいいのでは？」
そう思うかもしれませんが、人間の記憶力や注意力には限界があります。忙しい時ほど、宛先の入れ忘れグセは顔を出します。
ここで使うのが、Outlook VBAの`ItemAdd`（アイテム追加）イベントです。
これは、「特定のフォルダにメールが入った瞬間」をOutlookが監視し、自動でプログラムを起動させるという強力な機能です。
全体の仕組み（ワークフロー）
[メール作成・送信]
↓
[「送信済みアイテム」フォルダに格納される]
↓ （★ここで自動検知！）
[VBAの ItemAdd イベントが発火]
↓
[宛先（To / CC）をごっそり取得]
↓
[新規メールのBCCに自動セットして下書き保存]
今回は、送信したメールが「送信済みアイテム」フォルダに入った瞬間をトリガーにして、その宛先をコピーした「返信・控え用」の下書きを背後で自動作成するロジックを組んでいきます。
—
2. 開発の準備：魔法の部屋（VBE）を開く
まずは、VBAを書くための専用エディタ（VBE：Visual Basic Editor）を開きましょう。
1. Outlookを開いた状態で、キーボードの `Alt` + `F11` を押します。
2. 画面左上のメニューから [挿入] ＞ [標準モジュール] をクリック……したいところですが、今回は違います！
【超重要】「ThisOutlookSession」を使う理由
フォルダの動き（イベント）を監視するには、標準モジュールではなく、Outlookにあらかじめ用意されている特別な器である `ThisOutlookSession`（このOutlookセッション） というモジュールを使う必要があります。
1. VBEの左側にあるツリーから `Project1` ＞ `Microsoft Outlook Objects` ＞ `ThisOutlookSession` をダブルクリックしてください。
2. 開いた真っ白なコードウィンドウに、次のセクションで紹介するコードを貼り付けていきます。
—
3. 実装コード：魔法の全貌
以下のコードを、そのまま `ThisOutlookSession` の中にコピー＆ペーストしてください。
‘ ====================================================================
‘ 【テーマ】送信済みメールの宛先を自動でBCCにコピーする便利ツール
‘ ====================================================================
‘ ① Outlookのイベントを監視するための変数を宣言します
Public WithEvents SentFolderItems As Outlook.Items
‘ ② Outlookが起動したときに自動的に実行される初期設定
Private Sub Application_Startup()
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace(“MAPI”)
‘ 「送信済みアイテム」フォルダオブジェクトを取得し、監視対象に設定します
Set SentFolderItems = ns.GetDefaultFolder(olFolderSentMail).Items
‘ ※ ここを通ることで、以後メール送信時に自動検知が有効になります
End Sub
‘ ③ 「送信済みアイテム」に新しいメールが入った瞬間に発火するイベント
Private Sub SentFolderItems_ItemAdd(ByVal Item As Object)
‘ 万が一、メール以外のアイテム（会議予定など）だった場合は処理をスキップ
If TypeName(Item) <> “MailItem” Then Exit Sub
Dim sentMail As Outlook.MailItem
Dim draftMail As Outlook.MailItem
Dim originalTo As String
Dim originalCC As String
Set sentMail = Item
On Error GoTo ErrorHandler
‘ 1. 送信済みメールから To と CC の宛先文字列をごっそり抽出
originalTo = sentMail.To
originalCC = sentMail.CC
‘ 2. 新しいメール（下書き）を裏側で作成
Set draftMail = Application.CreateItem(olMailItem)
‘ 3. 抽出した宛先を、新しいメールの「BCC」にすべて詰め込む
‘ （必要に応じて To に自分のアドレスなどを固定で入れることも可能です）
draftMail.BCC = originalTo & “;” & originalCC
‘ 4. 件名と本文を引き継ぐ（必要であれば件名に「【控え】」などをつけると親切です）
draftMail.Subject = “【控】 ” & sentMail.Subject
draftMail.HTMLBody = sentMail.HTMLBody
‘ 5. 下書きフォルダに保存する
draftMail.Save
Exit Sub
ErrorHandler:
‘ エラー時の簡易ハンドリング（実務で暴走しないための安全装置）
MsgBox “BCC自動コピーマクロでエラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
4. コードの深掘り解説：ここが分かれば怖くない！
初心者の方にとって、見慣れない英単語が並んでいるかもしれません。でも安心してください。ポイントはたったの3つです。
1. `Public WithEvents` ってなに？
通常の変数と違い、「Outlookの動き（イベント）を見張る番犬」を作るためのキーワードです。今回は「送信済みアイテムフォルダの中身（Items）」をこの番犬に監視させています。
2. なぜ `Application_Startup` が必要なの？
VBAのコードは、書いただけでは動きません。「Outlookが立ち上がったタイミング」で、「よし、監視を始めてくれ！」と番犬に命令（セット）してあげる必要があります。この初期設定がないと、マクロが機能してくれません。
> 💡 初めて動かすときのワンポイントアドバイス
> コードを貼り付けた後、わざわざOutlookを再起動しなくても大丈夫です。
> `Application_Startup` の中にカーソルを置いた状態で、VBEの上部メニューにある [実行] ＞ [サブ/ユーザーフォームの実行]（F5キー） を一度押せば、その場で番犬が目を覚まします！
3. `ItemAdd` の仕組み
「送信済み」ボタンを押してメールが飛び立った瞬間、Outlookは裏で「あ、新しいアイテムが『送信済みアイテム』に入ったぞ！」と検知します。それが `SentFolderItems_ItemAdd` です。
中身の `Item` という変数に「今送ったばかりのメール」が格納されて渡されるため、そこから `To` や `CC`、`Subject` を自由自在に料理できるというわけです。
—
5. 陥りやすいエラーと「現場の知見」
最後に、実務でこのマクロを運用する際に直面しがちな「罠」と、その回避策をお伝えしておきます。
⚠️ その1：セキュリティの壁でマクロが動かない
Outlookのデフォルトセキュリティは非常に厳格です。「勝手にプログラムが動いてメールを操作するなんて危ない！」とブロックされてしまいます。
- 対策: [ファイル] ＞ [オプション] ＞ [セキュリティ センター] ＞ [セキュリティ センターの設定] ＞ [マクロの設定] から、「すべてのマクロに警告を表示する」 または 「すべてのマクロを有効にする（非推奨ですが開発時は楽）」 に設定してください。また、信頼できる場所（Trusted Locations）にプロジェクトを置くことも検討しましょう。
⚠️ その2：無限ループの恐怖
「もし、マクロで作った下書きメールを誤って送信してしまったら……？」
今回作成したコードは `TypeName(Item) <> “MailItem”` で判定していますが、もし自分で作った自動送信ツール等と組み合わせる場合、「プログラム自身が生成したメールによって、さらにイベントが連鎖発火する（無限ループ）」という恐ろしい現象が起きることがあります。
- 対策: 本番環境で運用する際は、件名に特定の文字列（`【控】`など）が含まれている場合は処理をスルーするような「ガード条件（If文）」を一枚挟んであげると、プロとして完璧です。
—
おわりに：ここをクリアすれば、あなたはもう初心者ではない！
お疲れ様でした！今回は、Outlook VBAの真骨頂である「イベント処理」を使った実用的なツールを作成しました。
「手作業でコピー＆ペーストしていた地味なルーティンワークを、コード一発で裏から自動化する」
この快感を味わえたなら、あなたはもう「マクロの記録」に頼るだけの初心者ではありません。立派な業務自動化エンジニアの第一歩を踏み出しています。
ぜひご自身の環境で試してみて、快適なOutlookライフを手に入れてくださいね。それでは、次回の応用編でお会いしましょう！
