Outlookを介してExcelからリストにパーソナライズされた大量の電子メールを送信するにはどうすればよいですか？

たとえば、名前、電子メールアドレス、登録コードの列を含むワークシートに次のデータ範囲があります。次に、パーソナライズされた挨拶と独自の登録コードを含むメッセージを、列Aの個別の電子メールアドレスに送信します。この問題を解決するには、次の方法が役立つ場合があります。

差し込み印刷機能を使用して、Excelからリストにパーソナライズされた大量の電子メールを送信します

VBAコードを使用してExcelからリストにパーソナライズされた大量の電子メールを送信します

Kutools for Excelを使用して、パーソナライズされた大量の電子メールをさまざまな添付ファイル付きのリストに送信します

差し込み印刷機能を使用して、Excelからリストにパーソナライズされた大量の電子メールを送信します

言葉で 差し込み印刷 機能、あなたはこの仕事を素早くそして簡単に終えることができます、ステップバイステップで次のことをしてください：

1. 新しい空白のWord文書を起動し、[ メーリング > 受信者を選択 > 既存のリストを使用する、スクリーンショットを参照してください：

2。 の中に データソースを選択 ウィンドウで、使用するデータ範囲を含むブックを選択し、をクリックします Open ボタン、スクリーンショットを参照してください：

3。 今後 表の選択 ダイアログボックスで、必要なデータ範囲のワークシートを選択し、をクリックしてください OK ボタン、スクリーンショットを参照してください：

4。 また、電子メールメッセージのメインドキュメントとアドレスリストが相互に接続されたので、テキストメッセージを編集して、各メッセージの一意の情報が表示される場所を示すプレースホルダーを追加できます。

（1.）個々の挨拶名を挿入するには、をクリックします メーリング > 差し込みフィールドを挿入 > 名前、パーソナライズされた名前がメッセージに挿入されており、フィールド名はで囲まれています «».

（2.）メッセージの入力を続け、 登録コード 必要な場所に、スクリーンショットを参照してください。

5。 メッセージを作成した後、クリックすることができます プレビュー結果 下 郵送 タブを使用して、実際にマージを完了する前に、電子メールメッセージをプレビューし、変更を加えます。

6。 問題がないことを確認した後、別の受信者に電子メールを送信できます。をクリックしてください メーリング > 終了とマージ > 電子メールメッセージを送信する、スクリーンショットを参照してください：

7。 それから飛び出した 電子メールにマージ ダイアログボックスで、次の操作を実行します。

（1.）から に ドロップダウンリスト、選択してください 電子メールアドレス カラム;

（2.）件名をに入力できます 件名 行テキストボックス;

（3.）から レコードを送信する セクション、選択 すべて.

8。 そして、 OK、電子メールは、独自の登録コードを使用して別々の受信者に一度に送信されます。電子メールを送信した後、Outlookに移動して、電子メールが正常に送信されたことを確認できます。

VBAコードを使用してExcelからリストにパーソナライズされた大量の電子メールを送信します

差し込み印刷機能を除いて、次のVBAコードも役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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 ボタンをクリックすると、電子メールは個別の登録コードで個別のアドレスにXNUMXつずつ送信されます。電子メールを送信した後、Outlookに移動して、電子メールが正常に送信されたことを確認できます。

Note：上記のコードでは、件名または本文のメッセージを必要に応じて変更できます。

Kutools for Excelを使用して、パーソナライズされた大量の電子メールをさまざまな添付ファイル付きのリストに送信します

あなたが持っている場合 Kutools for Excelそのと メールを送る この機能を使用すると、必要に応じて、添付ファイルの異なる複数の受信者にパーソナライズされた電子メールをすばやく送信できます。

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツールズプラス > メールを送る、スクリーンショットを参照してください：

2。 の中に エミアルを送る ダイアログボックスで、使用するデータ範囲を選択し、必要に応じて受信者のアドレス、添付ファイル、件名を指定してください。スクリーンショットを参照してください。

3。 編集ボックスに、個々の挨拶の名前を挿入します。選択してください 名前 ドロップダウンリストから、をクリックします プレースホルダーを挿入 メッセージに名前を挿入するには、スクリーンショットを参照してください。

4。 次に、必要に応じてメッセージ本文をボックスに入力します。スクリーンショットを参照してください。

5。 メール本文が完成したら、必要に応じて送信モードを選択してください。Outlookまたは指定したサーバーを使用して送信できます。screesnhotを参照してください。

Note：他のサーバーを使用する場合は、 送信サーバー設定 送信モードを独自に設定するには、screesnhotを参照してください。

6。 最後に、 送信 メールを送信するためのボタンをクリックすると、完了すると、送信ステータスを通知するプロンプトボックスが表示されます。 screesnhotを参照してください：

今すぐExcel用のダウンロードと無料トライアルKutoolsをクリックしてください！

デモ：Outlookを介してExcelからリストにパーソナライズされた大量の電子メールを送信します

関連記事：

Outlookを介してExcelからリスト内の複数の受信者に電子メールを送信するにはどうすればよいですか？