こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから一歩進み、自分の手でOutlookの挙動をコントロールしたいあなたへ。
今回は、業務の現場で「やってしまった！」を防ぐための超重要テクニック「送信前の入力チェック（バリデーション）」を解説します。
「宛先を入れ忘れて送信してしまった」
「件名が空のままクライアントにメールを飛ばしてしまった」
そんなヒヤリハットを、VBAの力で完全に根絶やしにしましょう。ここをクリアすれば、あなたのOutlook VBAのスキルは確実に一段階上のステージに到達しますよ。さあ、一緒に見ていきましょう！
—
1. なぜ「ItemSendイベント」を使うのか？
Outlook VBAでメールを操作するとき、多くの初心者が陥る罠があります。それは「メールを作成するマクロ」ばかりを作ろうとすることです。
しかし、実務で本当に必要なのは、「ユーザーが送信ボタンを押した瞬間」に割り込み、Outlookを強制的に監視する仕組みです。ここで登場するのが、Outlookの心臓部である`ItemSend`イベントです。
ライフサイクルの理解：イベントの正体
イベントとは、Outlook側で何らかのアクション（メールの送信、受信、フォルダーの切り替えなど）が起きたときに、自動的に呼び出される特別なプロシージャ（司令塔）のことです。
通常の「標準モジュール」に書いたマクロは、あなたがボタンを押さないと動きません。しかし、`ItemSend`イベントは「ユーザーが送信ボタンを押した、まさにそのコンマ数秒の間」にOutlook自身が勝手に呼び出してくれます。
これを利用して、「送信の許可を出していいか？」のゲートキーパー（門番）を作ってあげるわけですね。
—
2. 実装の舞台裏：このコードの全体像
まずは、実際に動くコードの全体像をシェアします。
ここで重要なポイントがあります。`ItemSend`イベントは、通常の「標準モジュール」ではなく、必ず「ThisOutlookSession」という特別な場所に書く必要があります。
ここを間違えると、いくら送信ボタンを押してもコードが発動しません。絶対に覚えておいてくださいね。
【実装コード】ThisOutlookSessionに記述
‘ =================================================================
‘ 宿命の場所：ThisOutlookSession に必ず記述してください
‘ =================================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
‘ 1. 処理対象が「メール」であるかを厳密に判定する
‘ （会議の招待やタスクの送信など、他のアイテムでエラーが出るのを防ぐため）
If TypeOf Item Is Outlook.MailItem Then
Dim mail As Outlook.MailItem
Set mail = Item
‘ 2. 「件名（Subject）」が空欄かどうかをチェック
If Trim(mail.Subject) = “” Then
MsgBox “【送信ブロック】件名が入力されていません！入力してください。”, vbCritical, “送信エラー”
Cancel = True ‘ <-- ここが魔法のスイッチ：送信を完全にキャンセルする
Exit Sub
End If
' 3. 「宛先（To）」が空欄かどうかをチェック
If Trim(mail.To) = "" Then
MsgBox "【送信ブロック】宛先（To）が入力されていません！", vbCritical, "送信エラー"
Cancel = True ' <-- 送信をキャンセル
Exit Sub
End If
' 4. チェックを無事にすり抜けた場合
' ここに来たということは、必要事項がしっかり満たされている証拠です
' Debug.Print "送信チェック：問題なし"
End If
End Sub
---
3. コードのキモを優しく解説！
初心者の方でもスッと理解できるように、上記のコードで絶対に知っておくべき3つの重要パーツを紐解きます。
① `ByVal Item As Object` の正体
イベントが起きたとき、Outlookは「今から送信されようとしているアイテム（この場合はメール）」を `Item` という変数に入れて、このプログラムにプレゼントしてくれます。
ただし、この時点では「何が送られるか分からない（会議かもしれない、連絡先かもしれない）」状態のただの `Object` です。そのため、`TypeOf Item Is Outlook.MailItem` で「これ、普通のメールで間違いないよね？」と身分証を確認しているのです。
② `Trim` 関数の重要性
`mail.Subject = “”` ではなく、あえて `Trim(mail.Subject) = “”` としているのには理由があります。
もしユーザーがうっかり「スペース（空白）」だけを入力して送信ボタンを押した場合、ただの `””` 判定だと「文字が入っている」と誤認してすり抜けてしまいます。`Trim` は文字列の前後の余計な空白を綺麗に消し去る関数なので、「実質的に中身が空っぽか」を正確に見抜くことができます。プロの技ですね。
③ 最重要！`Cancel = Boolean` の魔法
このコードの主役は、関数の引数にある `Cancel As Boolean` です。
初期状態では `False`（キャンセルしない＝送信する）になっていますが、条件に違反したとき（件名や宛先が空のとき）に `Cancel = True` に書き換えてあげることで、Outlookは「おっと、送信は中止だ！」と理解し、作成画面を開いたままピタッと送信を止めてくれます。
—
4. 初心者がハマる「よくあるエラー」と対策
現場でこのコードを実装したとき、初心者が必ずと言っていいほどハマるポイントが2つあります。ここを読んでおけば安心です。
トラブルシューティング 1：コードが全然動かない！
- 原因： 標準モジュール（「標準モジュール1」など）にこのコードを書いてしまっている。
- 対策： VBAエディター（Alt + F11）の左側にあるツリービューを見てください。`Microsoft Outlook Objects` の中にある `ThisOutlookSession` をダブルクリックし、その開いた真っ白な空間にコードを貼り付けてください。
トラブルシューティング 2：セキュリティでマクロが弾かれる
- 原因： Outlookのセキュリティ設定が厳しいため、デジタル署名のないマクロが無効化されている。
- 対策： 「ファイル」>「オプション」>「セキュリティ センター」>「セキュリティ センターの設定」>「マクロの設定」から、「すべてのマクロを有効にする（推奨しませんがテスト時はこれ）」または「デジタル署名されたマクロ以外～」の設定を確認してください。（社内セキュリティポリシーに従いましょう）
—
5. おわりに：ここをクリアすれば、もう怖くない！
お疲れ様でした！今回は `ItemSend` イベントを使った、実務直結の送信ブロック・バリデーション処理を解説しました。
「イベントプロシージャの概念」と「`Cancel = True` による処理の制御」。
ここをマスターしたあなたなら、単に作業を自動化するだけでなく、「ユーザーのミスをシステムで未然に防ぐ堅牢な仕組み」を作ることができます。
「宛先入れ忘れ事件」を撲滅して、明日からの業務をよりスマートに、より安心して行いましょう。
ここをクリアできれば、あなたのOutlook VBAの基本はもうバッチリです！自信を持って次のステップへ進んでくださいね。
