送信ボタンを押したその後を追跡せよ！送信済みメールをExcel台帳へ自動転記する「イベント駆動型」追跡システム
こんにちは！日々の業務効率化、進んでいますか？
「メールを送ったあとに、宛先や送信日時をいちいちExcelの管理台帳に追加するのが面倒くさい……」
「コピペミスで、台帳のデータがズレてしまった……」
そんな悩みを抱えている方は多いのではないでしょうか。
「マクロの記録」を卒業し、一歩進んだ自動化の世界へ足を踏み入れたいあなたに、今回は「メールが送信されたことをトリガー（引き金）にして、送信済みメールの情報をExcel台帳へリアルタイムに自動転記するシステム」の作り方を優しく、かつプロの視点で徹底的に解説します。
一見難しそうに見えますが、仕組みを理解すれば「なるほど、そうやって動いていたのか！」と目の前が開けるはずです。ここをクリアすれば、Outlook VBAの基本と応用はバッチリマスターできますよ。それでは、一緒に学んでいきましょう！
—
1. なぜ「送信ボタンを押した瞬間」ではダメなのか？（プロの設計思想）
プログラムを作る前に、最も重要な「設計」の話をさせてください。
実は、多くの人が「メール送信時（送信ボタンを押した瞬間）にExcelに書き込めばいいのでは？」と考えます。Outlookには確かに `ItemSend` という「送信ボタンが押されたとき」のイベントが用意されています。
しかし、プロのエンジニアはここで `ItemSend` を使いません。なぜでしょうか？
送信ボタン押下時（ItemSend）の弱点
1. 送信日時が確定していない（送信ボタンを押した時間と、実際にサーバーから送信された時間は数秒〜数分のズレが生じます）。
2. 送信エラーを考慮できない（宛先間違いや通信エラーで送信トレイに留まった場合でも、台帳には「送信完了」として記録されてしまいます）。
3. ID（EntryID）が未確定（Outlookのメールは、送信が完了して「送信済みアイテム」フォルダーに入った瞬間に、世界に一つだけの固有のIDである `EntryID` が発行されます）。
結論：送信済みフォルダーに「入った瞬間」を狙う！
確実なログ（送信証明）を残すためには、「送信が完了し、送信済みアイテムフォルダーにメールが追加された瞬間」をキャッチするのがベストプラクティスです。
これを図解すると、以下のような美しい流れになります。
[メール作成] ──> 送信ボタンをクリック
│
(Outlookが送信処理を実行)
│
[送信済みアイテムフォルダー] にメールが格納される
│
★【ItemAdd イベント発生！】
│
[Outlook VBAが自動起動]
│
・一意のID (EntryID) を取得
・送信日時 (SentOn)、宛先 (To)、件名 (Subject) を抽出
│
[Excel管理台帳へ自動追記]
この「フォルダーにアイテムが追加された瞬間」を検知する仕組みを、VBAでは `WithEvents`（イベント付きオブジェクト変数） と呼びます。
—
2. 準備：Excel管理台帳を用意しよう
まずは、送信ログを記録するためのExcelファイルを作成しておきましょう。
1. 新規Excelブックを作成します。
2. シート名を「送信履歴」に変更します。
3. 1行目に以下のヘッダー（項目名）を入力します。
- A1: 送信日時
- B1: 件名
- C1: 宛先 (To)
- D1: CC
- E1: メールID (EntryID)
4. ファイルを `C:\OutlookLog\MailLog.xlsx` として保存します（フォルダがない場合は作成するか、コード内のパスをご自身の環境に合わせて書き換えてください）。
—
3. 実装：Outlook VBAに魔法をかける
それでは、Outlookを起動してVBAの開発画面（VBE）を開きましょう。
`Alt + F11` キーを押すと開発画面が開きます。
左側のプロジェクトブラウザにある `ThisOutlookSession` をダブルクリックして、以下のコードをそのままコピー＆ペーストしてください。
‘ =========================================================================
‘ 【ThisOutlookSession】に記述するコード
‘ 送信済みアイテムフォルダーを監視し、メール追加時にExcelへ自動転記します。
‘ =========================================================================
Option Explicit
‘ 1. 送信済みフォルダーの「アイテム群」をイベント付きで宣言します（ここが魔法の入り口です）
Private WithEvents TargetItems As Outlook.Items
‘ — Outlookが起動した時に自動で実行される処理 —
Private Sub Application_Startup()
Dim outlookNamespace As Outlook.NameSpace
Dim sentFolder As Outlook.MAPIFolder
‘ Outlookのデータにアクセスするためのオブジェクトを取得
Set outlookNamespace = Application.GetNamespace(“MAPI”)
‘ 「送信済みアイテム」フォルダーを取得
Set sentFolder = outlookNamespace.GetDefaultFolder(olFolderSentMail)
‘ 監視対象のフォルダー内の「アイテム一覧」をセット
‘ これにより、TargetItemsにアイテムが追加された時にイベントが跳ね返るようになります
Set TargetItems = sentFolder.Items
‘ 確認用（起動時にひっそりとイミディエイトウィンドウに表示されます）
Debug.Print “送信済みアイテムの監視を開始しました。”
End Sub
‘ — 送信済みアイテムフォルダーに新しいメールが追加された時に「自動で」動く処理 —
Private Sub TargetItems_ItemAdd(ByVal Item As Object)
‘ 追加されたアイテムが「メール（MailItem）」である場合のみ処理を実行します
‘ (会議出席依頼などのノイズを除外するため)
If TypeOf Item Is MailItem Then
Dim mail As MailItem
Set mail = Item
‘ Excelへの転記処理を呼び出す
Call WriteToExcel台帳(mail)
End If
End Sub
‘ — 実際にExcelファイルを開いてデータを書き込む処理 —
Private Sub WriteToExcel台帳(ByVal mail As MailItem)
Dim excelApp As Object
Dim excelBook As Object
Dim excelSheet As Object
Dim nextRow As Long
Dim excelPath As String
Dim isExcelRunning As Boolean
‘ 【重要】Excelファイルのパスをご自身の環境に合わせて変更してください
excelPath = “C:\OutlookLog\MailLog.xlsx”
‘ 万が一、指定した場所にファイルがない場合は処理をスキップ
If Dir(excelPath) = “” Then
MsgBox “Excel管理台帳が見つかりません。パスを確認してください: ” & excelPath, vbCritical, “システムエラー”
Exit Sub
End If
‘ エラーが発生しても処理を中断せず、次の行に進むように設定（安全対策）
On Error Resume Next
‘ すでにExcelが起動しているか確認
Set excelApp = GetObject(, “Excel.Application”)
‘ 起動していなければ、新しくExcelのバックグラウンドプロセスを立ち上げる
If excelApp Is Nothing Then
Set excelApp = CreateObject(“Excel.Application”)
isExcelRunning = False
Else
isExcelRunning = True
End If
‘ エラーハンドリングを通常に戻す
On Error GoTo 0
‘ Excelを画面に非表示のまま裏で処理する（ユーザーの手を止めないための配慮）
excelApp.Visible = False
excelApp.DisplayAlerts = False ‘ 警告ポップアップをオフ
TryOpenBook:
On Error Resume Next
‘ 対象のワークブックを開く
Set excelBook = excelApp.Workbooks.Open(excelPath)
‘ ファイルが他のプロセス（または自分自身）でロックされている場合の対策
If Err.Number <> 0 Then
‘ 0.5秒待って再試行（競合を避けるプロの知恵）
Err.Clear
DoEvents
Set excelBook = excelApp.Workbooks.Open(excelPath)
If Err.Number <> 0 Then
‘ それでも開けない場合はユーザーに通知して終了
MsgBox “Excel台帳が他で開かれているか、ロックされているため書き込めません。”, vbExclamation, “転記失敗”
GoTo CleanUp
End If
End If
On Error GoTo 0
‘ 対象シートを指定
Set excelSheet = excelBook.Sheets(“送信履歴”)
‘ 書き込み先の「最終行の次の行」を特定する（データの最下部を探すお決まりのコード）
nextRow = excelSheet.Cells(excelSheet.Rows.Count, 1).End(-4162).Row + 1 ‘ -4162 は xlUp の定数値です
‘ — データの書き込み（プロパティをExcelのセルへ格納） —
excelSheet.Cells(nextRow, 1).Value = mail.SentOn ‘ 送信日時
excelSheet.Cells(nextRow, 2).Value = mail.Subject ‘ 件名
excelSheet.Cells(nextRow, 3).Value = mail.To ‘ 宛先 (To)
excelSheet.Cells(nextRow, 4).Value = mail.CC ‘ CC
excelSheet.Cells(nextRow, 5).Value = mail.EntryID ‘ 唯一無二のメールID (追跡用)
‘ 上書き保存して閉じる
excelBook.Close SaveChanges:=True
CleanUp:
‘ 【超重要】起動したExcelをメモリから綺麗に消し去る処理（ゾンビプロセス化防止）
excelApp.DisplayAlerts = True
‘ もともとExcelが起動していなかった場合のみ、新しく立ち上げたExcelを終了する
If Not isExcelRunning And Not excelApp Is Nothing Then
excelApp.Quit
End If
‘ オブジェクト変数を解放してメモリを掃除します
Set excelSheet = Nothing
Set excelBook = Nothing
Set excelApp = Nothing
End Sub
【超重要】設定を有効化するためのステップ
コードを貼り付けたら、一度 Outlookを完全に終了させ、再起動 してください。
起動時に `Application_Startup` が自動的に実行され、送信済みアイテムフォルダーの監視がスタートします。
—
4. プログラミング初心者必読！コードの本質と解説
このコードには、一歩進んだプロの技術が散りばめられています。なぜこのように書くのか、優しく噛み砕いて解説します。
① `WithEvents`（ウィズ・イベント）の魔法
Private WithEvents TargetItems As Outlook.Items
この宣言が、今回のシステムの心臓部です。
通常、変数というのはデータ（数字や文字）を覚えておくだけのものですが、`WithEvents` を付けて宣言された変数は、「そのオブジェクトに何か変化が起きたときに、Outlookに知らせる」という特殊なアンテナに進化します。
今回は「送信済みアイテム（TargetItems）」に「メールが追加された（ItemAdd）」というイベントをキャッチして、自動的に処理が動くように設計されています。
② なぜ `CreateObject`（レイトバインディング）を使うのか？
VBAでExcelを操作する方法には「参照設定（アーリーバインディング）」と「`CreateObject`（レイトバインディング）」の2種類があります。
今回は後者の `CreateObject` を採用しています。
- 参照設定: 開発はしやすいが、Excelのバージョン（Office 2016, 2019, 365など）が異なる他のパソコンで動かしたときに、高確率で「参照不可」というエラーを起こして止まります。
- CreateObject: 実行時に相手のバージョンを自動で判別して接続するため、「誰のパソコンでも、バージョンの違いを無視してコピペだけで動く」という強力なメリットがあります。
③ オブジェクト解放（`Set Nothing`）を忘れてはいけない理由
コードの最後にある、呪文のようなこれです。
Set excelApp = Nothing
「プログラムが終われば勝手に消えるでしょ？」と思われがちですが、VBAから他のアプリ（Excelなど）を呼び出した場合、これをサボると「画面には見えないけれど、パソコンのメモリの中でExcelが裏で起動しっぱなしになる（ゾンビプロセス）」という現象が発生します。
これが溜まるとパソコンがだんだん重くなり、最悪の場合はフリーズします。作ったオブジェクトは、使い終わったら必ず片付ける。これがプロの「美しいマナー」です。
—
5. 陥りやすい罠とトラブルシューティング
実際に動かしてみると、いくつかの壁にぶつかることがあります。先輩として、解決策を先回りしてお伝えしておきますね。
罠1: 送信してもExcelに書き込まれない！
- 原因1: `Application_Startup` を実行していない可能性があります。Outlookを一度閉じて、もう一度起動してみてください。
- 原因2: Excelのパスが間違っている、またはフォルダが存在していません。`excelPath = “C:\OutlookLog\MailLog.xlsx”` の部分をご自身のPCの実在するパスに修正してください。
- 原因3: マクロが無効化されている可能性があります。「ファイル」＞「オプション」＞「トラスト センター」＞「トラスト センターの設定」＞「マクロの設定」で、マクロが許可されているか確認しましょう。
罠2: Excelファイルが「読み取り専用」で開いてしまう
- 原因: Excelファイルを自分でダブルクリックして開いている状態で、メールが送信されると競合が発生します。
- 対策: 今回のコードでは、ファイルが開かれている場合は数瞬待機して再試行するエラー処理を入れていますが、基本的にはログファイルは裏でそっと運用し、見るときだけ開くのが安全です。
—
まとめ：ここをクリアすれば、Outlook VBAの基本はバッチリです！
お疲れ様でした！
今回ご紹介した「フォルダーを監視して、変化があったら自動でExcelに書き込む」という仕組みは、Outlook VBAにおける最上位クラスのテクニックの一つです。
これが理解できれば、以下のような応用も簡単にできるようになります。
- 受信トレイを監視し、特定のメールが届いたら添付ファイルを自動保存する
- 送信済みメールに特定のキーワードが含まれていたら、即座にチャットツールに通知する
「マクロの記録」では絶対に作ることができない、あなた専用の自動化システムがこれで完成しました。
ぜひ、コードをコピペして動かし、少しずつ自分好みにカスタマイズしてみてください。あなたの定時退社と、よりスマートな開発ライフを応援しています！
