Outlook 経由でExcel からリストに基づいた個別カスタマイズメールを一斉送信するには、どうすればよいですか？

著者Xiaoyang変更日2024-08-22

たとえば、ワークシートには「名前」「メールアドレス」「登録コード」の各列を含む次のようなデータ範囲があるとします。このとき、A 列の各メールアドレス宛てに、個人向けの挨拶とそれぞれの登録コードを盛り込んだメッセージを送信したい場合、以下の方法が役立ちます。

ワークシート内のメーリングリストのスクリーンショット

差し込み文書機能を使ってExcel からリストに個別カスタマイズされた一斉メールを送信

VBA コードを使ってExcel からリストに個別カスタマイズされた一斉メールを送信

Kutools for Excel を使って異なる添付ファイル付きでリストに個別カスタマイズされた一斉メールを送信

差し込み文書機能を使ってExcel からリストに個別カスタマイズされた一斉メールを送信

Word の差し込み文書機能を使えば、この作業をスピーディーかつ簡単に完了できます。以下の手順に従ってください。

1。新しい空白のWord 文書を開き、次に「差し込み文書」＞受信者を選択＞「既存のリストを使用」をクリックしてください（下図参照）。

既存のリストを使用して受信者を選択しているスクリーンショット

2。「データの選択ソース」ウィンドウで、使用したいデータ範囲を含むブックを選択し、「開く」ボタンをクリックしてください（下図参照）。

ブックを選択しているスクリーンショット

3。「テーブルの選択」ダイアログボックスが表示されたら、必要なデータ範囲を含むワークシートを選択し、「OK」ボタンをクリックしてください（下図参照）。

メーリングリストを含む該当のワークシートを選択しているスクリーンショット

4。これで、メール本文とアドレスリストが連携されました。あとはテキストを編集し、各メッセージ内で個別の情報が表示される箇所にプレースホルダーを挿入できます。

（1。）個別の挨拶名を挿入するには、「差し込み文書」＞「差し込みフィールドの挿入」＞「名前」をクリックします。これにより、メッセージ内に個別カスタマイズされた名前が挿入され、その条件名は« »で囲まれます。

結合された「名前」フィールドを挿入しているスクリーンショット

（2。）引き続きメッセージ本文を作成し、必要な位置に「登録コード」を挿入してください（下図参照）。

登録コードを挿入しているスクリーンショット

5。メッセージを作成したら、「差し込み文書」タブのプレビュー結果をクリックして、「差し込み文書」タブ下でメールメッセージをプレビュー。マージを実際に完了する前に、変更を加えることができます。

6。問題がないことを確認したら、個別の受信者にメールを送信できます。「差し込み文書」＞「差し込み文書の完了とマージ」＞「電子メールメッセージの送信」＞をクリックしてください（下図参照）。

「メールメッセージを送信」を選択しているスクリーンショット

7。表示された「メールへのマージ」ダイアログボックスで、以下の操作を行ってください。

（1。）「宛先」ドロップダウンリストから、「Email_Address」列を選択してください。

（2。）「件名」テキストボックスに件名を入力してください。

（3。）「レコードの送信」セクションで、「すべて」を選択してください。

「メールへの差し込み」ダイアログボックスを設定しているスクリーンショット

8。その後、「OK」ボタンをクリックすると、各受信者に個別の登録コード付きメールが一斉に送信されます。メール送信後は、Outlook で正常に送信されたか確認できます。

異なる添付ファイル付きで複数の受信者に個別カスタマイズされたメールを送信：

Kutools for Excel のSend Emails 機能を使えば、Outlook 経由でExcel から複数の受信者に、それぞれ異なる添付ファイル付きの個別カスタマイズメールを素早く送信できます。同時に、特定の人物に CC または BCC でメッセージを送ることも可能です。今すぐKutools for Excel をダウンロードして、無料トライアルをお試しください！ Download and free trial Kutools for Excel Now!

Kutools for Excel を使用して複数の受信者に簡単にパーソナライズされたメールを送信しているスクリーンショット

VBA コードを使ってExcel からリストに個別カスタマイズされた一斉メールを送信

差し込み文書機能以外にも、以下の VBA コードでも同様の作業が可能です。以下のように操作してください。

1。「ALT + F11」キーを押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。

2。「挿入＞モジュール」をクリックし、表示されたモジュールウィンドウに、以下のコードを貼り付けてください。

VBA コード：Excel からリストに個別カスタマイズされた一斉メールを送信

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3。次に「F5」キーを押してこのコードを実行すると、使用したいデータ範囲を選択するプロンプトボックスが表示されます（下図参照）。

コード実行後にメーリングリストを選択しているスクリーンショット

4。その後、「OK」ボタンをクリックすると、各メールアドレス宛てに個別の登録コードが含まれたメールが順次送信されます。メール送信後は、Outlook で正常に送信されたか確認できます。

注：上記のコードでは、必要に応じて件名や本文を変更できます。

Kutools for Excel を使って異なる添付ファイル付きでリストに個別カスタマイズされた一斉メールを送信

Kutools for Excel をお持ちなら、Send Emails 機能を使えば、必要に応じて異なる添付ファイルを付けた個別カスタマイズメールを複数の受信者に素早く送信できます。

Kutools for Excel をインストール後、以下のように操作してください。

1。「KUTOOLS PLUS＞Send Emails」をクリックしてください（下図参照）。

メール送信機能を有効にしているスクリーンショット

2。「Send Emails」ダイアログボックスで、使用したいデータ範囲を選択し、必要に応じて受信者のアドレス、添付ファイル、件名を指定してください（下図参照）。

メールフィールドを設定しているスクリーンショット

3。編集ボックスで個別の挨拶名を挿入するには、ドロップダウンリストから「名前」を選択し、プレースホルダーを挿入をクリックして、メッセージ内に名前を挿入してください（下図参照）。

プレースホルダーを挿入しているスクリーンショット

4。次に、必要に応じてメッセージ本文をボックスに入力してください（下図参照）。

メール本文の作成を完了しているスクリーンショット

5。メール本文の作成が完了したら、希望する送信モードを選べます。Outlook を使うか、指定したサーバー経由で送信するか選択可能です（下図参照）。

送信モードのいずれかを選択しているスクリーンショット

注：他のサーバーをご利用になりたい場合は、SMTP 設定をクリックして、送信モードを独自の設定に変更してください（下図参照）。

そのメールサーバー経由でメールを送信する場合に、送信サーバーを設定しているスクリーンショット

6。最後に、「送信」ボタンをクリックしてメールを送信してください。送信が完了すると、ステータスを知らせるプロンプトボックスが表示されます（下図参照）。

正常に送信されたメールの件数を示すスクリーンショット

Kutools for Excel を今すぐダウンロードして無料トライアル！

デモ：Outlook 経由でExcel からリストに個別カスタマイズされた一斉メールを送信

Kutools for Excel：30 日間制限なく無料でお試しいただける、300 以上の便利なExcel アドイン付き。今すぐダウンロードして無料トライアル！

Outlook 経由でExcel からリスト内の複数の受信者にメールを送信する方法は？

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！