こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけの自動化から一歩進み、「自分でコードをデザインして、Outlookを完全に手足のように動かしたい」と思っているあなたへ。
今回は、Outlook VBAの中でも最難関であり、最も実務で価値を発揮する「ItemSendイベントの完全制御」についてお話しします。
「送信ボタンを押した瞬間に、宛先ミスや添付ファイルの付け忘れを自動でチェックして、危なかったらピタッと送信を止めたい」
そんな現場の切実な要望に応えるのが、今回のテーマです。
基本のキから、現場で即戦力になるプロの技まで、優しく、そして深く解説していきますね。ここをクリアすれば、あなたのOutlook VBAのスキルは間違いなく「上級者」の領域に到達します。一緒にマスターしていきましょう！
—
1. なぜ「ItemSend」イベントが特別なのか？
Outlook VBAを書いていると、`MailItem`（メールアイテム）を操作するコードによく出会いますよね。でも、メールが「送信される瞬間」を捉えようとすると、通常のプロシージャ（Subマクロ）では太刀打ちできなくなります。
ここで登場するのが、イベントプロシージャです。
イベントと通常のマクロの違い
- 通常のマクロ (`Sub`): あなたが「実行」ボタンを押したとき、あるいはボタンに関連付けられたときに初めて動きます。
- イベント (`Event`): Outlookが特定の動作（メールを開く、受信する、そして送信するなど）をした瞬間、裏側で自動的に呼び出される特別なプログラムです。
その中でも `ItemSend` は、「送信」という取り返しのつかないアクションの直前に割り込む唯一のフック（引っ掛け）ポイント。だからこそ、ここでエラーハンドリングや送信キャンセルをミスると、誤送信を防ぎたいのに「Outlookがフリーズした」「意図せずメールが消えた」といった惨事を引き起こす原因になります。
だからこそ、正しい作法を知る必要があるのです。
—
2. 【図解】ItemSendイベントのライフサイクル
メール送信ボタンを押してから、実際にメールが飛び立つまでの裏側の動きをイメージしてみましょう。
[ユーザーが「送信」ボタンを押す]
↓
【ItemSend イベント発火】（★ここをVBAでフック！）
↓
(条件判定：宛先は社内か？ 添付ファイルはあるか？)
├─ [NGの場合] Cancel = True を設定 ──> 【送信キャンセル！（メールは下書きに戻る）】
└─ [OKの場合] 何もせずスルー ──────────> 【メール送信完了】
このフローの中で、「もしエラーが起きたらどうするか？」という安全装置（例外処理）を組み込むのが、今回の本題です。
—
3. 実装のステップ：ThisOutlookSessionの魔法
イベントプロシージャを書く場所は、通常の「標準モジュール（Module1など）」ではありません。
Outlook VBAには、アプリケーション全体の動きを監視する特別な場所が用意されています。それが `ThisOutlookSession` です。
手順
1. Outlookで `[Alt] + [F11]` キーを押してVBE（Visual Basic Editor）を開きます。
2. 左側のプロジェクトエクスプローラから `ThisOutlookSession` をダブルクリックします。
3. 以下のコードを貼り付けます。
実用コード：誤送信防止＆エラーハンドリングのテンプレート
以下のコードは、「宛先に社外のアドレスが含まれている場合、添付ファイルが抜けていたら送信をブロックする」という実用的なサンプルです。
‘ ====================================================================
‘ 莫大な信頼を得るための ItemSend イベント制御テンプレート
‘ 配置場所: ThisOutlookSession
‘ ====================================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
‘ エラーハンドリングの要
On Error GoTo ErrorHandler
‘ 1. 対象が「メール」であるか厳密にチェック（会議予定やタスクの送信を除外）
If Item.Class <> olMail Then Exit Sub
Dim mail As Outlook.MailItem
Set mail = Item
‘ — 【ここからビジネスロジック】 —
‘ 例：件名が空の場合のガード
If Trim(mail.Subject) = “” Then
Dim ans As VbMsgBoxResult
ans = MsgBox(“件名が入力されていません。このまま送信しますか？”, vbYesNo + vbExclamation, “送信前確認”)
If ans = vbNo Then
Cancel = True ‘ 送信をキャンセル！
Exit Sub
End If
End If
‘ 例：特定のキーワードがあるのに添付ファイルがない場合のガード
If InStr(mail.Body, “添付”) > 0 And mail.Attachments.Count = 0 Then
MsgBox “本文に「添付」とありますが、ファイルが添付されていません！送信を中断します。”, vbCritical, “添付忘れ防止”
Cancel = True ‘ 送信をキャンセル！
Exit Sub
End If
‘ — 【ビジネスロジックここまで】 —
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した場合の安全装置
‘ ここでエラーを握りつぶさず、ユーザーに通知しつつ、暴走を防ぐ
MsgBox “ItemSend イベント内で予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “システムエラー”
‘ 安全のため、エラー時は送信を強制キャンセルさせる設計がプロフェッショナル
Cancel = True
End Sub
—
4. コードの深掘り：ここが「上級者」のポイント
上記のコードには、現場で生き残るための知見がいくつか詰め込まれています。ポイントを解説しますね。
① `Item.Class olMail` による型安全性の確保
Outlookでは、メールだけでなく、予定表の返信や連絡先の共有なども「送信」されることがあります。これらを区別せずに `mail.Body` などを操作すると、メール以外のアイテムで型ミスマッチエラーが起きてマクロがクラッシュします。
`olMail` かどうかを最初にチェックするのが鉄則です。
② `Cancel = True` の威力と挙動
`Cancel` 引数に `True` を代入すると、Outlookはその瞬間に送信処理をピタッと止めます。
この時、メール作成画面は開いたまま（下書き状態）になります。ユーザーは指摘された箇所（件名や添付忘れ）を修正して、再度送信ボタンを押すことができるため、非常に親切なUX（ユーザー体験）が実現できます。
③ 堅牢な `ErrorHandler`
もしイベント内でVBAの内部エラー（オブジェクトが消滅した、メモリ不足など）が起きたとき、エラー処理がないとOutlook全体が不安定になったり、最悪の場合はチェックがスルーされてそのままメールが送信されてしまうという致命的なバグにつながります。
「何か予期せぬことが起きたら、安全のためにとりあえず `Cancel = True` にして送信を止める」というフェイルセーフ（Fail-Safe）の思想が、プロのコードには不可欠です。
—
5. 陥りやすい罠とデバッグのコツ
初心者が必ずハマるポイントを先回りして共有しておきます。
- 罠1: コードを書いたのにイベントが発火しない！
- 原因のほとんどは「配置場所が間違っている」ことです。標準モジュール（Module1など）に書いても `ItemSend` は動きません。必ず `ThisOutlookSession` に書いてください。
- 罠2: セキュリティ設定でマクロが無効化されている
- Outlookのセキュリティセンターから、デジタル署名されていないマクロや、すべてのマクロを無効にする設定になっていないか確認しましょう。開発中は「すべてのマクロを有効にする（推奨されませんがテスト時は便利）」か、信頼できる場所（Trusted Location）にフォルダを指定します。
—
まとめ：ここをクリアすれば、あなたはもう怖くない
今回は、Outlook VBAの奥義とも言える `ItemSend` イベントを使った送信制御とエラーハンドリングを解説しました。
- `ThisOutlookSession` を使ってOutlook全体の動きを監視する
- `Cancel = True` で送信をスマートに中断・再開する
- 予期せぬエラー時はフェイルセーフとして送信を止める
この3つを抑えておけば、現場でどんな無茶振りの自動化要望が来ても、ビクともしない堅牢なシステムを構築できます。
「たかがマクロ、されどVBA」。こうした細部へのこだわりが、あなたの書くコードを「動くおもちゃ」から「業務を支えるシステム」へと昇華させます。
ぜひ、ご自身の環境で試してみてくださいね。あなたのVBAライフを心から応援しています！
