Excel VBAを用いたカスタマイズされたメール送信の実装方法では、ApprovedToSendの一行を読み、宛先と差し込み値を検証し、画面確認後に個別MailItemをSendする。Outlook Application.CreateItemでMailItemを作成できるが、宛先解決、本文差し込み、送信承認は別の検査である。.Displayだけでは送信されないため、本手順は利用者の最終確認後に.Sendを明示的に呼びます。この記事はqueue row ID、recipient、subject、template body、statusを一件のmail requestとして扱うを判断軸にして、記事固有のコード、合否、停止条件、復元を順序立てて説明します。
error reportや予約通知ではなく、汎用queueの一行から顧客別本文を組み立てる。完了は「一通の宛先・件名・顧客名を確認してSendし、Excel行がSubmittedへ一度だけ遷移する」です。結果が空なら「ApprovedToSend行が0件なら何も作らず、空宛先を既定addressへ補完しない」として調べ、エラーを0件へ置き換えません。
MailQueueの列定義を固定
ApprovedToSendの一行を読み、宛先と差し込み値を検証し、画面確認後に個別MailItemをSendする。承認済みExcel行から送る個別メールでは、単にコマンドが終了したことではなく「一通の宛先・件名・顧客名を確認してSendし、Excel行がSubmittedへ一度だけ遷移する」を完了条件にします。error reportや予約通知ではなく、汎用queueの一行から顧客別本文を組み立てる。
MailQueueの列定義を固定に入る前に、対象、実行場所、権限、入力の由来を確認します。ApprovedToSend行が0件なら何も作らず、空宛先を既定addressへ補完しない。判定不能を成功へ丸めません。
宛先・件名・状態をDebug.Print
宛先・件名・状態をDebug.Printは変更や出力生成より先に行う観測です。queue row ID、recipient、subject、template body、statusを一件のmail requestとして扱うを含む形で現状を保存し、後段のコードが同じ対象へ向くか確認します。
Option Explicit
Sub InspectMailRow()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("MailQueue")
Debug.Print "To=" & ws.Range("B2").Value2
Debug.Print "Subject=" & ws.Range("C2").Value2
Debug.Print "Status=" & ws.Range("F2").Value2
End SubOutlook Application.CreateItemでMailItemを作成できるが、宛先解決、本文差し込み、送信承認は別の検査である。.Displayだけでは送信されないため、本手順は利用者の最終確認後に.Sendを明示的に呼びます。承認済みExcel行から送る個別メールでは取得不能、対象なし、値が空という三状態を分け、stderrや終了コードを捨てません。
ApprovedToSend行だけを対象
ApprovedToSend行だけを対象ではApprovedToSendの一行を読み、宛先と差し込み値を検証し、画面確認後に個別MailItemをSendする。承認済みExcel行から送る個別メールのサンプルにあるパス、セル、ユーザー、時刻は検証用なので、直前に確認した承認値へ置き換えます。
Option Explicit
Sub SendOneCustomizedMailAfterApproval()
Dim ws As Worksheet, olApp As Object, mail As Object, answer As VbMsgBoxResult
Set ws = ThisWorkbook.Worksheets("MailQueue")
If StrComp(Trim$(CStr(ws.Range("F2").Value2)), "ApprovedToSend", vbTextCompare) <> 0 Then _
Err.Raise 5, , "F2がApprovedToSendの行だけを処理します"
If Len(Trim$(CStr(ws.Range("B2").Value2))) = 0 Then Err.Raise 5, , "宛先が空です"
Set olApp = CreateObject("Outlook.Application")
Set mail = olApp.CreateItem(0)
With mail
.To = Trim$(CStr(ws.Range("B2").Value2))
.Subject = Trim$(CStr(ws.Range("C2").Value2))
.Body = Replace(CStr(ws.Range("D2").Value2), "{Customer}", CStr(ws.Range("A2").Value2))
If Not .Recipients.ResolveAll Then Err.Raise 5, , "宛先を解決できません"
.Display
answer = MsgBox("表示中の1通を送信しますか。宛先・件名・本文を確認してください。", vbYesNo + vbQuestion, "最終送信確認")
If answer <> vbYes Then
ws.Range("F2").Value2 = "ApprovalCancelled"
Exit Sub
End If
.Send
End With
ws.Range("F2").Value2 = "Submitted"
End Sub本文内の個人情報を別recipientへ差し込まない。ApprovedToSendの一件だけをDisplayし、人の最終確認後にSendする。承認済みExcel行から送る個別メールで変更が発生する場合は、新規出力、no-clobber、WhatIf、下書き表示など利用可能な安全機構を先に使います。
Customer差し込みを行う
Customer差し込みを行うでは入力と出力を別々に再取得します。承認済みExcel行から送る個別メールの合格は、一通の宛先・件名・顧客名を確認してSendし、Excel行がSubmittedへ一度だけ遷移することです。件数だけでなく識別値と内容も照合します。
Sub VerifyCustomizedSend()
With ThisWorkbook.Worksheets("MailQueue")
Debug.Print "Customer=" & .Range("A2").Value2
Debug.Print "Recipient=" & .Range("B2").Value2
Debug.Print "State=" & .Range("F2").Value2
If .Range("F2").Value2 = "Submitted" Then Debug.Print "Outlookへ送信処理を依頼済み。配送結果は送信済みアイテムまたは管理ログで別確認"
End With
End SubApprovedToSend行が0件なら何も作らず、空宛先を既定addressへ補完しない。承認済みExcel行から送る個別メールの結果が期待と違えば追加変更を重ねず、入力、対象範囲、locale・時刻、権限、製品仕様の順に戻って調べます。
Outlook MailItemをDisplay
本文内の個人情報を別recipientへ差し込まない。ApprovedToSendの一件だけをDisplayし、人の最終確認後にSendする。Outlook MailItemをDisplayに当てはまるときは中止理由、対象識別子、終了コードまたはErr.Number、直前に成功した段階を保存します。
ApprovedToSend行が0件なら何も作らず、空宛先を既定addressへ補完しない。承認済みExcel行から送る個別メールの再試行は原因を直し、同じ入力と対象を再確認してから行います。警告抑止や強制上書きで通しません。
宛先空欄や重複draftを止める
SendCancelledなら行statusを承認手順でApprovedToSendへ戻せる。Submitted後は取り消せないため送信済みitemを照合する。復元にも「queue row ID、recipient、subject、template body、statusを一件のmail requestとして扱う」を用い、類似名の別対象へ処理しません。
- 承認済みExcel行から送る個別メールの開始前状態
- 採用対象: queue row ID、recipient、subject、template body、statusを一件のmail requestとして扱う
- 復元後の確認: 一通の宛先・件名・顧客名を確認してSendし、Excel行がSubmittedへ一度だけ遷移する
- 復元を止める条件: 本文内の個人情報を別recipientへ差し込まない。ApprovedToSendの一件だけをDisplayし、人の最終確認後にSendする
Submitted状態を再確認
queue IDとOutlook subjectを対応させ、二重実行時にSubmitted行を除外する。承認済みExcel行から送る個別メールを反復するときは、正常、差分なし、対象なし、要承認、失敗を別の状態として記録します。
| Submitted状態を再確認の主キー | queue row ID、recipient、subject、template body、statusを一件のmail requestとして扱う |
| 採用条件 | 一通の宛先・件名・顧客名を確認してSendし、Excel行がSubmittedへ一度だけ遷移する |
| 空結果 | ApprovedToSend行が0件なら何も作らず、空宛先を既定addressへ補完しない |
| 中止条件 | 本文内の個人情報を別recipientへ差し込まない。ApprovedToSendの一件だけをDisplayし、人の最終確認後にSendする |
質問：自動送信を入れない理由
Q. 承認済みExcel行から送る個別メールは管理者権限なら無条件に実行できますか。A. いいえ。Outlook Application.CreateItemでMailItemを作成できるが、宛先解決、本文差し込み、送信承認は別の検査である。.Displayだけでは送信されないため、本手順は利用者の最終確認後に.Sendを明示的に呼びます。権限は入力や対象の妥当性を保証しません。
Q. 差分がなければ失敗ですか。A. ApprovedToSend行が0件なら何も作らず、空宛先を既定addressへ補完しない。要件どおりの状態なら変更不要を正常として、検出不能とは区別します。
MailQueueの列定義を固定から証跡化するApprovedToSend行だけを対象
承認済みExcel行から送る個別メールの証跡は「queue row ID、recipient、subject、template body、statusを一件のmail requestとして扱う」を主キーにします。MailQueueの列定義を固定で確認した値と、実行直前・実行直後の値を同じ作業番号に保存し、表示名が似ている別対象や前回の結果を混ぜません。
宛先・件名・状態をDebug.Printで空結果を判定するCustomer差し込みを行う
承認済みExcel行から送る個別メールの空結果は「ApprovedToSend行が0件なら何も作らず、空宛先を既定addressへ補完しない」として扱います。宛先・件名・状態をDebug.Printで入力自体が存在するか、権限で見えていないか、条件に一致しないだけかを分け、0件という表示だけで成功・失敗を決めません。
質問：自動送信を入れない理由から復旧可否を測るMailQueueの列定義を固定
承認済みExcel行から送る個別メールの復旧判断では「SendCancelledなら行statusを承認手順でApprovedToSendへ戻せる。Submitted後は取り消せないため送信済みitemを照合する」を採用します。質問：自動送信を入れない理由を再確認し、復旧後に「一通の宛先・件名・顧客名を確認してSendし、Excel行がSubmittedへ一度だけ遷移する」へ戻ったかを別の読み取り処理で測定します。
承認済みExcel行から送る個別メールの事前確認では、queue row ID、recipient、subject、template body、statusを一件のmail requestとして扱うを画面表示や標準出力だけで済ませず、実行日時と一緒に作業記録へ写します。Outlook Application.CreateItemでMailItemを作成できるが、宛先解決、本文差し込み、送信承認は別の検査である。.Displayは利用者へ下書きを提示し、送信は行わないという仕様があるため、似た名前の別対象、前回実行時の値、キャッシュされた表示を今回の対象と取り違えないことが重要です。
承認済みExcel行から送る個別メールのコードを実行した直後は、まず終了状態を保存し、その後に別の読み取り処理で「一通の宛先・件名・顧客名を確認してSendし、Excel行がSubmittedへ一度だけ遷移する」を確認します。承認済みExcel行から送る個別メールでは同じコードの表示だけを合否判定に使うと部分成功や遅延反映を見逃すため、識別値、件数、内容の三点を照合します。
承認済みExcel行から送る個別メールで結果が得られない場合は、ApprovedToSend行が0件なら何も作らず、空宛先を既定addressへ補完しない。承認済みExcel行から送る個別メールではこの状態と、権限拒否、入力形式の不一致、接続先や時刻の違いを一緒にしません。承認済みExcel行から送る個別メールの対象候補数、除外された候補、最後に成功した確認処理を残すと、再試行で同じ失敗を重ねずに済みます。
承認済みExcel行から送る個別メールを元へ戻す必要があるときは、SendCancelledなら行statusを承認手順でApprovedToSendへ戻せる。Submitted後は取り消せないため送信済みitemを照合する。承認済みExcel行から送る個別メールの復元前にも変更後の識別値を再取得し、別担当者の更新が入っていないか確認します。承認済みExcel行から送る個別メールの復元結果も通常処理と同じ完了条件で測り、戻したつもりという報告だけで閉じません。
承認済みExcel行から送る個別メールを引き継ぐ記録には、queue IDとOutlook subjectを対応させ、二重実行時にSubmitted行を除外する。特に「本文内の個人情報を別recipientへ差し込まない。ApprovedToSendの一件だけをDisplayし、人の最終確認後にSendする」に該当した場合は、実行を止めたこと自体を正しい結果として扱います。承認済みExcel行から送る個別メールの次回担当者が承認範囲と未処理対象を区別できるよう、作業番号と対象識別子を対応付けます。
承認済みExcel行から送る個別メールの作業記録には、開始前の対象候補、採用した識別値、実行したコード、終了後の実測、除外理由を同じ作業番号で保存します。「queue row ID、recipient、subject、template body、statusを一件のmail requestとして扱う」を省くと別対象との比較になり得るため、日時、実行場所、製品版と一緒に残します。
Excel VBAを用いたカスタマイズされたメール送信の実装方法を定期運用へ組み込む場合も初回は対話的に確認します。正常は「一通の宛先・件名・顧客名を確認してSendし、Excel行がSubmittedへ一度だけ遷移する」、空結果は「ApprovedToSend行が0件なら何も作らず、空宛先を既定addressへ補完しない」、停止は「本文内の個人情報を別recipientへ差し込まない。ApprovedToSendの一件だけをDisplayし、人の最終確認後にSendする」として報告し、次の担当者が同じ条件で追試できるようにします。
DisplayとSendを分けた一件送信
F2がApprovedToSendと完全一致する一行だけを対象にします。Recipients.ResolveAllが成功した後にDisplayで最終確認し、利用者がYesを選んだ場合だけSendを呼び出します。Displayだけでは送信されないため、Submittedへの更新はSend呼び出し後に限定します。
SubmittedはOutlookへ送信処理を依頼した状態であり、相手への配送完了を意味しません。送信済みアイテム、配信不能通知、組織のmessage traceは別の確認工程です。
公式情報・参考資料
Excel行データから作る個別メール下書きのコマンド、API、対応範囲は次の公式一次資料で確認しました。確認日は2026年7月17日です。Excel行データから作る個別メール下書きの実行環境にあるman、–help、VBA Object Browser、Get-Helpも併用してください。
コメント