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に移動して、電子メールが正常に送信されたことを確認できます。
|
添付ファイルが異なる複数の受信者にパーソナライズされた電子メールを送信します。
Kutools for Excel's メールを送る この機能を使用すると、必要に応じて、ExcelからOutlookを介して、さまざまな添付ファイルを持つ複数の受信者にパーソナライズされた電子メールをすばやく送信できます。 同時に、特定の人へのメッセージをCCまたはBccで送信することもできます。 今すぐExcel用のKutoolsをダウンロードして無料トライアル！
|
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 : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます. |
インストールした後 Kutools for Excel、次のようにしてください。
1に設定します。 OK をクリックします。 クツールズプラス > メールを送る、スクリーンショットを参照してください：
2。 の中に エミアルを送る ダイアログボックスで、使用するデータ範囲を選択し、必要に応じて受信者のアドレス、添付ファイル、件名を指定してください。スクリーンショットを参照してください。
3。 編集ボックスに、個々の挨拶の名前を挿入します。選択してください 名前 ドロップダウンリストから、をクリックします プレースホルダーを挿入 メッセージに名前を挿入するには、スクリーンショットを参照してください。
4。 次に、必要に応じてメッセージ本文をボックスに入力します。スクリーンショットを参照してください。
5。 メール本文が完成したら、必要に応じて送信モードを選択してください。Outlookまたは指定したサーバーを使用して送信できます。screesnhotを参照してください。
Note：他のサーバーを使用する場合は、 送信サーバー設定 送信モードを独自に設定するには、screesnhotを参照してください。
6。 最後に、 送信 メールを送信するためのボタンをクリックすると、完了すると、送信ステータスを通知するプロンプトボックスが表示されます。 screesnhotを参照してください：
今すぐExcel用のダウンロードと無料トライアルKutoolsをクリックしてください！
デモ：Outlookを介してExcelからリストにパーソナライズされた大量の電子メールを送信します
関連記事：
Outlookを介してExcelからリスト内の複数の受信者に電子メールを送信するにはどうすればよいですか？
最高のオフィス生産性向上ツール
| 🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
| 人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
| スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
| 詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
| 列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
| 注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
| 上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...） | 50+ チャート 種類 (ガントチャート、...） | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...） | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...） | 12 変換 ツール (数字から言葉へ, 通貨の換算、...） | 7 マージ＆スプリット ツール (高度な結合行, 分割セル、...） | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
