【入門編】【中級者向け】送信済みメールの「開封確認」をVBAで一括設定する – Outlook VBA解析バイブル

こんにちは！バックオフィスや営業現場の業務自動化を日々支えるエンジニアの皆さん。
「マクロの記録」ボタンを押すだけの世界から一歩踏み出し、自らの手でOutlookを自在に操りたいと思ったことはありませんか？

今回は、業務メールの確実な到達・確認において意外と重要となる「送信済みメールの開封確認（ReadReceiptRequested）」をテーマに、Outlook VBAの本質に迫ります。

「大量のメールを送るけれど、相手がちゃんと読んだか不安……」
「一つひとつ手動で開封確認を設定するのは非効率すぎる！」

そんな現場の悲鳴をスマートに解決する技術を、一緒にマスターしていきましょう。ここをクリアすれば、あなたも立派なOutlook VBA中級者です。温かく、そして深く解説していきますね。

—

なぜ「開封確認」の自動化でつまずくのか？

Outlookでメールを作成する画面を開くと、[オプション]タブの中に「開封確認を要求する」というチェックボックスがありますよね。これをVBAで制御するのは、実は非常にシンプルです。

MailItemオブジェクトの `ReadReceiptRequested` プロパティに `True` を代入するだけ。これだけ聞くと「なんだ簡単じゃないか」と思われるでしょう。

しかし、現場で実用的なマクロを書こうとすると、多くの人が次のような壁にぶつかります。

• 「あれ？新規作成画面ではチェックが入るのに、返信（Reply）や転送（Forward）のときは設定が抜けてしまう」
• 「一斉送信したときに、一部のメールでプロパティの反映が漏れる」
• 「送信トレイに溜まった瞬間にエラーで止まる」

これらは、Outlookのオブジェクトのライフサイクルや、メールが持つ「状態（State）」を理解していないことが原因です。単なるプロパティの書き換えではなく、Outlookが裏側でどう動いているのかを知ることで、この壁は簡単によじ登ることができます。

—

基本のキ：`ReadReceiptRequested` プロパティの正体

まずは、開封確認を有効にするコードの基本形を見てみましょう。
VBAエディタ（[Alt] + [F11]）を開き、標準モジュールに以下のコードを貼り付けてみてください。

Sub CreateMailWithReadReceipt()
Dim olApp As Outlook.Application
Dim mail As Outlook.MailItem

‘ Outlookのアプリケーションインスタンスを取得
Set olApp = New Outlook.Application

‘ 新規メールアイテムを作成
Set mail = olApp.CreateItem(olMailItem)

With mail
.To = “sample@example.com”
.Subject = “【テスト】開封確認付きメールの送信”
.Body = “いつもお世話になっております。テスト送信です。”

‘ ★ここが今回の核心：開封確認を要求する
.ReadReceiptRequested = True

‘ 画面に表示する（すぐに送信せず、確認させたい場合）
.Display

‘ ※今すぐ送信したい場合は .Send を使います
End With

‘ メモリの解放
Set mail = Nothing
Set olApp = Nothing

MsgBox “開封確認付きメールを作成しました！”, vbInformation
End Sub

コードのここがポイント！

1. `olApp.CreateItem(olMailItem)`:
新しいメールの「器」を作っています。この瞬間、メモリ上に新しいMailItemオブジェクトが誕生します。
2. `mail.ReadReceiptRequested = True`:
このプロパティに `True` をセットするだけで、受信者がメールを開いたときに「送信者に開封通知を送信しますか？」というダイアログを出させるフラグが立ちます。
3. オブジェクトの解放 (`Set mail = Nothing`):
プログラミング初学者が忘れがちなのがこれ。Outlookを裏で動かすVBAでは、使い終わったオブジェクトのメモリを明示的に解放してあげるのが、バグを防ぐプロの作法です。

—

【実践】既存の「下書き」や「送信待ちメール」に一括で開封確認を設定する

ここからが中級者向けの腕の見せ所です。
すでに作成してしまった下書きや、これから送信するメールの束に対して、「後から一括で開封確認フラグを立てる」スクリプトを書いてみましょう。

現場では、「大量の案件メールを生成した後に、上司から『全部開封確認つけておいて！』と言われた」なんて理不尽な（？）シチュエーションがよくあります。そんな時にこのスクリプトがあなたを救います。

Sub BatchEnableReadReceipt()
Dim ns As Outlook.NameSpace
Dim draftFolder As Outlook.MAPIFolder
Dim mailItem As Object
Dim count As Long

Set ns = Application.GetNamespace(“MAPI”)

‘ デフォルトの「下書き」フォルダを取得
Set draftFolder = ns.GetDefaultFolder(olFolderDrafts)

count = 0

‘ 下書きフォルダ内のアイテムをループ
For Each mailItem In draftFolder.Items
‘ アイテムがメール（MailItem）であるか判定（重要！）
If mailItem.Class = olMail Then
‘ まだ開封確認がオフならオンにする
If mailItem.ReadReceiptRequested = False Then
mailItem.ReadReceiptRequested = True
mailItem.Save ‘ 変更を必ず保存する
count = count + 1
End If
End If
Next mailItem

‘ 後始末
Set mailItem = Nothing
Set draftFolder = Nothing
Set ns = Nothing

MsgBox count & “件の下書きメールに開封確認を設定しました。”, vbInformation
End Sub

エンジニアからのワンポイントアドバイス

このコードの肝は、`If mailItem.Class = olMail Then` という判定と、`mailItem.Save` です。

• 型安全性の確保: 下書きフォルダには、メールだけでなく「会議出席依頼」や「連絡先」が混ざっていることがあります。それを無視して `.ReadReceiptRequested` を呼び出すと、容赦なく実行時エラー（型が一致しません）が発生します。`Class` プロパティで厳密にメールだけに絞り込むのが、堅牢なマクロの条件です。
• 変更の永続化: プロパティを書き換えただけでは、Outlookの裏のデータベースに保存されません。必ず `.Save` メソッドを呼んで変更をコミットしましょう。

—

陥りやすい罠とエラー回避の知見

最後に、現場でよくあるトラブルと、そのスマートな回避策をシェアします。

1. セキュリティソフトやExchangeのポリシーによるブロック

`ReadReceiptRequested = True`を設定しても、会社のセキュリティポリシーやメールサーバーの設定（Exchange Onlineなど）によっては、受信者側で開封確認のポップアップが強制無効化される場合があります。
「コードは正しく動いているのに通知が返ってこない」という場合は、VBAの不具合ではなく、組織のインフラ制限である可能性を疑ってください。

2. 送信済みメール（SentMail）に対する誤解

「送信済みのメールボックスにあるアイテムの開封確認を後から変更したい」という質問を時々受けますが、一度送信完了（.Send）したMailItemのプロパティは読み取り専用（ReadOnly）になるため、後から変更することは原則できません。
開封確認を確実に機能させたいのであれば、「送信ボタンを押す瞬間、あるいは送信トレイに入る前」の段階でプロパティを仕込む必要があります。

—

まとめ：Outlook VBAの基本をマスターしたら

今回は「開封確認」という特定のテーマを通じて、オブジェクトの取得、プロパティの操作、コレクションのループ処理、そして変更の保存という、Outlook VBAにおける王道の作法を解説しました。

ここをしっかりとクリアできれば、添付ファイルの自動保存、特定の件名に対する自動返信、外部CSVからの宛先差し込み送信など、どんな複雑な要件もあなたの手で自動化できるようになります。

「面倒な定型作業はすべてVBAに片付けてもらう」
そんなスマートで知的な自動化ライフを、ぜひ今日から楽しんでくださいね！