ようこそ！Outlook VBAの世界へ。
業務自動化の旅を歩み始めた皆さんを歓迎します。
メール自動送信や日々の業務マクロを作成していると、必ずぶつかる大きな壁があります。それが「誤送信」と「宛先不明（NDR: Non-Delivery Report）エラー」です。
文字列比較で「`@` が含まれているか」をチェックするだけでは、実は不十分です。なぜなら、見た目はメールアドレスっぽくても、ドメインが存在しなかったり、社内の組織ディレクトリ（Exchange / Active Directory）に存在しないユーザー名だったりすることがあるからです。
そこで登場するのが、Outlookの内部データベースやアドレス帳とダイレクトに照合を行う`Recipient.Resolve`（リシピエント・リゾルブ）メソッドです。
この記事では、単なる文法解説にとどまらず、Outlookオブジェクトモデルの深い構造から、実践的で堅牢なイベント駆動型の送信前チェックコードまで、分かりやすく丁寧に紐解いていきます。
ここをクリアすれば、Outlook VBAの基本はバッチリですよ！一緒にマスターしていきましょう。
—
1. なぜ「Recipient.Resolve」なのか？（オブジェクトモデルの仕組み）
まずは、Outlookがメールの宛先をどのように管理しているか、構造を図解的に整理してみましょう。
[ Application ]
│
[ ActiveInspector / Session ]
│
[ MailItem ] (メール本体)
│
[ Recipients ] (宛先コレクション)
│
├── [ Recipient 1 ] ( To: 山田 太郎 )
├── [ Recipient 2 ] ( Cc: sato@example.com )
└── [ Recipient 3 ] ( Bcc: ??? )
Outlookにおいて、メールの宛先は単なる「テキスト文字列」ではありません。`MailItem` オブジェクトの下に `Recipients`（リシピエンツ）コレクション があり、その中に1つひとつの `Recipient`（リシピエント）オブジェクト が格納されています。
「Resolve（解決）」とは何をしているのか？
`Recipient.Resolve` メソッドを実行すると、Outlookは裏側で以下のような検索・照合処理を高速に行います。
1. グローバルアドレス一覧（GAL）やローカル連絡先の検索
入力された名前（例: “山田”）やアドレスの一部から、対応する正しいアカウント情報を検索します。
2. MAPIプロパティ（AddressEntry）の確定
一致する宛先が見つかると、Outlook内部の識別情報（MAPIエントリーID）と紐付けます。
3. ステータスの更新
照合が成功すると、`Recipient.Resolved` プロパティが `True` に変化します。
つまり、`Resolve` とは「曖昧な宛先文字列を、確定した宛先オブジェクトへ昇華させる手続き」なのです。
—
2. 実践コード：送信前イベント（ItemSend）で全宛先を自動検証する
それでは、実際の開発現場でそのまま使えるコードを作成しましょう。
Outlookでメールが送信される直前に割り込み、すべての宛先を自動検証して、1つでも不備があれば送信をストップするロジックです。
記述する場所
Outlook VBAのエディタ（`Alt + F11`）を開き、左側のプロジェクトツリーにある `ThisOutlookSession` をダブルクリックして、以下のコードを貼り付けてください。
‘ ==============================================================================
‘ 機能: メール送信前に宛先（To/Cc/Bcc）の存在・正当性を検証するイベントハンドラ
‘ 記述先: ThisOutlookSession
‘ ==============================================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo ErrorHandler
‘ 1. 送信対象がメールアイテム（MailItem）でない場合は処理を抜ける
If Not TypeOf Item Is MailItem Then Exit Sub
Dim mail As Outlook.MailItem
Set mail = Item
‘ 宛先が1つもセットされていない場合（念のための防衛策）
If mail.Recipients.Count = 0 Then
MsgBox “宛先が設定されていません。送信を中止します。”, vbExclamation, “送信前チェック”
Cancel = True
Exit Sub
End If
‘ 2. 宛先コレクションの検証処理
Dim recips As Outlook.Recipients
Set recips = mail.Recipients
Dim recip As Outlook.Recipient
Dim unresolvedCount As Long
Dim unresolvedNames As String
unresolvedCount = 0
unresolvedNames = “”
‘ コレクション内のすべての宛先をループ処理
For Each recip In recips
‘ ———————————————————————-
‘ Resolveメソッドの実行
‘ メールアドレスまたは名前が社内GALや連絡先と照合され、確定できるか試行する
‘ ———————————————————————-
If Not recip.Resolve() Then
‘ 解決できなかった（存在しない、または候補が複数あって絞り込めない）場合
unresolvedCount = unresolvedCount + 1
unresolvedNames = unresolvedNames & “・” & recip.Name & vbCrLf
End If
Next recip
‘ 3. 検証結果の判定
If unresolvedCount > 0 Then
‘ 未解決の宛先が存在する場合、送信をキャンセル
Dim msg As String
msg = “以下の宛先がアドレス帳で確認できないか、名前が曖昧です。” & vbCrLf & vbCrLf & _
unresolvedNames & vbCrLf & _
“送信をキャンセルしました。宛先を再度確認してください。”
MsgBox msg, vbCritical, “宛先検証エラー”
‘ Cancel を True にすることで、Outlookの送信動作を中断させる
Cancel = True
Else
‘ すべて解決成功した場合（必要に応じて通知を出さずにそのまま送信させてOK）
‘ Debug.Print “すべての宛先が正常に検証されました。”
End If
CleanUp:
‘ 4. オブジェクトの明示的解放（メモリリーク・参照残りの防止）
Set recip = Nothing
Set recips = Nothing
Set mail = Nothing
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した場合は安全側に倒して送信をストップする
MsgBox “宛先チェック中にエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
Cancel = True
Resume CleanUp
End Sub
—
3. コードのポイントとオブジェクトの挙動解説
上記のコードには、プロとして押さえておくべき重要なテクニックが詰まっています。ポイントを噛み砕いて解説しますね。
① `Cancel = True` による送信のインターセプト
`Application_ItemSend` イベントは、ユーザーが「送信」ボタンを押した瞬間に発生します。第2引数として渡される `Cancel` 変数に `True` を代入すると、Outlookは送信処理を完全に中断します。誤送信防止の要となる仕組みです。
② `recip.Resolve()` の戻り値（Boolean）
`recip.Resolve()` は成功すれば `True`、失敗すれば `False` を返します。
非常にシンプルな関数ですが、内部ではネットワーク通信（Exchangeサーバーへの照合）やローカルキャッシュの探索が行われています。
③ オブジェクトの明示的解放（クリーンアップ）
Set recip = Nothing
Set recips = Nothing
Set mail = Nothing
Outlook VBAは、Excel VBA以上に「オブジェクトの参照関係」にシビアです。COMオブジェクトの参照が残留すると、Outlookが終了時にプロセスに残ったり、メモリ消費が増大したりします。処理の終わり（またはエラー処理の最後）には、必ず `Set … = Nothing` で解放する習慣をつけましょう。
—
4. 【ハマりやすい罠とプロの知見】社外メールアドレスの挙動
ここで、初学者が必ず遭遇する「社外メールアドレス（SMTPアドレス）を直接入力したとき、どうなるのか？」という疑問について解説します。
社外アドレスでも `Resolve` は成功する？
結論から言うと、「正しい形式のメールアドレス（例: `hoge@example.com`）」であれば、社外のアドレスであっても `Resolve()` は `True` を返します。
Outlookは、入力された文字列がアドレス帳に存在しない場合でも、それが標準的なメールアドレス形式（SMTP形式）であれば、「外部のメールアドレスとして解決（Resolve）された」と解釈し、一時的な宛先オブジェクトを正常に作成してくれるからです。
では、どんな時に `False`（未解決）になるのか？
- `yamada_taro` のように、`@` もドメインもなく、アドレス帳にも登録されていない単なる文字列を入力したとき。
- 連絡先に「山田」が2人（山田太郎、山田花子）いて、どちらを指しているかOutlookが特定できないとき（同姓同名による曖昧性）。
- アドレスの構文自体が致命的に破壊されているとき。
補足：全宛先を一括解決する `Recipients.ResolveAll`
`Recipients` コレクションには、一括で解決を図る `recips.ResolveAll()` というメソッドも存在します。
個別にループを回さず `If Not mail.Recipients.ResolveAll() Then` と書くこともできますが、「どの宛先がダメだったのか」をユーザーに親切にフィードバックするためには、今回のコードのようにループで1つずつ `recip.Resolve()` を評価する手法がベストです。
—
まとめ：信頼されるVBAエンジニアへの第一歩
お疲れ様でした！今回は `Recipient.Resolve` メソッドを使った送信前の宛先検証ロジックを解説しました。
今回のポイントを復習しましょう。
1. `Recipient.Resolve` は宛先文字列を確定オブジェクトへ変換する重要メソッド
2. `Application_ItemSend` イベントと組み合わせることで、自動送信前チェックが実現できる
3. 検証失敗時は `Cancel = True` で送信を確実にストップさせる
4. 使用したオブジェクトは最後に `Nothing` で解放するのがプロの嗜み
最初は難しく感じられるかもしれない「オブジェクトモデル」ですが、仕組みが分かってくるとOutlookを自由自在にコントロールできるようになります。
この宛先チェックをマスターすれば、実務での信頼性は格段にアップしますよ。ぜひご自身の環境で試してみてくださいね。応援しています！
