Note: The other languages of the website are Google-translated. Back to English

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

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

docはパーソナライズされたメールを送信します1

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

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

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


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

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

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

docはパーソナライズされたメールを送信します2

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

docはパーソナライズされたメールを送信します3

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

docはパーソナライズされたメールを送信します4

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

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

docはパーソナライズされたメールを送信します5

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

docはパーソナライズされたメールを送信します6

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

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

docはパーソナライズされたメールを送信します7

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

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

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

(3.)から レコードを送信する セクション、選択 全て.

docはパーソナライズされたメールを送信します8

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


添付ファイルが異なる複数の受信者にパーソナライズされた電子メールを送信します。

Kutools for Excel's メールを送る この機能を使用すると、必要に応じて、ExcelからOutlookを介して、さまざまな添付ファイルを持つ複数の受信者にパーソナライズされた電子メールをすばやく送信できます。 同時に、特定の人へのメッセージをCCまたはBccで送信することもできます。       今すぐExcel用のKutoolsをダウンロードして無料トライアル!

docはパーソナライズされたメールを送信します18


矢印青い右バブル 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 このコードを実行するためのキーを押すと、使用するデータ範囲を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

docはパーソナライズされたメールを送信します9

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

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


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

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

Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます. 

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

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

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

docはパーソナライズされたメールを送信します9

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

docはパーソナライズされたメールを送信します9

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

docはパーソナライズされたメールを送信します9

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

docはパーソナライズされたメールを送信します9

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

docはパーソナライズされたメールを送信します9

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

docはパーソナライズされたメールを送信します9

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


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

Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

関連記事:

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


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (47)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
このコードは非常にうまく機能しました。そのおかげです。 しかし、私には小さな問題があります。Excelファイルを作成した方法のために、コードを変更して、電子メールを受信して​​送信するセルを事前に決定しようとしています。 決定されたセルの配列の選択ボックスを切り替えたいと思います。 例:すべてのデータがA2:C6の間にあるので、マクロを実行するときに再度選択する必要がないように修正します。 上で説明してくれたすべてに感謝します
このコメントは、サイトのモデレーターによって最小化されました
電子メールに複数のファイルを添付するようにコードを変更できますか? それは大きな助けになるでしょう。 前もって感謝します。
このコメントは、サイトのモデレーターによって最小化されました
通常の電子メール署名も取り込むようにコードを追加することは可能ですか? また、電子メールで送信する範囲を選択すると、Excelスプレッドシートがフィルター処理されますが、マクロを実行すると、非表示の行もプルされます。
このコメントは、サイトのモデレーターによって最小化されました
これについても知りたいです!
このコメントは、サイトのモデレーターによって最小化されました
上記のコードにccを追加する方法
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい方法

メールで毎回件名を変更する可能性についてお伺いしますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、アジズ、
Kutools for Excelを適用すると、セルの値に基づいて件名を挿入するのに役立ちます。次のスクリーンショットのように、ダイアログボックスで件名の列ヘッダーを選択するだけです。

それを試してみてください、それがあなたを助けることができることを願っています!
このコメントは、サイトのモデレーターによって最小化されました
こんにちはスカイヤン、

私は自分の電子メールの署名を表示しようと試みてきましたが、それを正しく取得できないようです! これを実現するために追加できるコードはありますか?
このコメントは、サイトのモデレーターによって最小化されました
狂気の投稿これは、これは偽物であり、このコンテンツを信じていない
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
これは素晴らしいです。毎回異なるPDFファイルを異なる電子メールに添付する必要があるXNUMXつの助けが必要です。
誰も私を助けてくださいことができますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはスカイヤン、
メールごとに異なるPDFファイルを添付する必要があります。 手伝ってもらえますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Arvind、
Kutoolsは、メールを送信するときに複数の異なる添付ファイルを追加するのに役立ちます。
まず、添付ファイルのパスをセルに挿入してから、Kutoolsを適用する必要があります。次のスクリーンショットをご覧ください。
それがあなたを助けることができることを願っています、ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
こんにちはスカイヤン、
私はあなたの以下のコードを使ってメールを送信しましたが、完璧に機能しています。PDF添付ファイルを送信するためのコードを変更するのに役立つものはありますか。
100通以上のメールを送る必要があるので、毎回ファイルを添付するのはかなり難しいです。 Kutoolsは指定されたパスに従って機能し、メールを自動的に送信しますか?
このコメントは、サイトのモデレーターによって最小化されました
ねえ、
attachment.add関数を手伝ってもらえますか? 上記のVBAコードを使用して、添付ファイルを送信する必要があります。
私はKutoolsを使用できません:(
このコメントは、サイトのモデレーターによって最小化されました
これで人々をccする方法は?
このコメントは、サイトのモデレーターによって最小化されました
多くの顧客のデータがあり、一部の顧客が1つ以上のデータを持っている場合はどうなりますか?顧客に個別のメールを送信したくないが、電子メールで表形式で送信する場合があります。 顧客に1通のメールを送信するにはどうすればよいですか。
このコメントは、サイトのモデレーターによって最小化されました
こんにちはスティーブン、あなたはこれを成し遂げる方法を見つけましたか? シンプルなオンラインWebポータルをお手伝いします
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、あなたはそれを解決しましたか?
このコメントは、サイトのモデレーターによって最小化されました
作り方を知りたいです。 教えて頂けますか?
このコメントは、サイトのモデレーターによって最小化されました
おかげで!

しかし、私はテストをしようとしていて、emaiに何も送信していません。 エラーメッセージもありません。何が起こったのかわかりますか?
このコメントは、サイトのモデレーターによって最小化されました
メールを送信する必要があるExcelのメールアドレスのリストがあります。件名と本文はメールアドレスのほかにセルにあり、以下のスクリプトがありますが、100時間あたり1通のメールを送信する必要があります。

サブSendEm()
Dim i As Integer、Mail_Object、Email_Subject、o As Variant、lr As Long
lr = Cells(Rows.Count、 "A")。End(xlUp).Row
Mail_Object = CreateObject( "Outlook.Application")を設定します
i=2からlrの場合
Mail_Object.CreateItem(o)を使用
.Subject = Range( "B"&i).Value
.To = Range( "A"&i).Value

.Body = Range( "C"&i).Value
.attachments.Add(Sheets( "Sheet1")。Range( "H"&i).Text)
.attachments.Add(Sheets( "Sheet1")。Range( "I"&i).Text)
.attachments.Add(Sheets( "Sheet1")。Range( "J"&i).Text)
.attachments.Add(Sheets( "Sheet1")。Range( "K"&i).Text)
。送信

'.display'表示を無効にし、送信を有効にして自動的に送信します
最後に
私は次の
MsgBox「Eメールが正常に送信されました」、64
Application.DisplayAlerts = False
Mail_Object=Nothingを設定します
End Subの
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ひば、
私たちのKutoolsforExcelのメール送信は、問題の解決に役立ちます。 次のスクリーンショットのように条件を設定してください。
この機能を使用すると、CC、BCC機能を適用したり、複数の添付ファイルを挿入したりすることもできます。
このコメントは、サイトのモデレーターによって最小化されました
HIi管理者


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih ..
このコメントは、サイトのモデレーターによって最小化されました
何らかの理由で、このコードには、リスト内の他のすべての電子メールを送信する場所があります。 それぞれを送信しない理由はありますか? 上記のコードを直接コピーしましたが、何も変更していません
このコメントは、サイトのモデレーターによって最小化されました
VBAコードはうまく機能しますが、Ccを追加するにはどうすればよいですか? 私は試みて失敗しました...
このコメントは、サイトのモデレーターによって最小化されました
VBAコードはうまく機能しますが、Ccを追加するにはどうすればよいですか? 私は試してみました:


文字列としての薄暗いxCc
その後
xCc = xRg.Cells(i、9)(アドレスは9列目にあります)


そして失敗しました...
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ジャン、

問題を解決するには、以下のコードを適用してください:(注:列CにCC列を追加する必要があります)

#IfVBA7およびWin64Then
プライベート宣言PtrSafe関数ShellExecuteLib"shell32.dll"エイリアス"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
#そうしないと
プライベート宣言関数ShellExecuteLib"shell32.dll"エイリアス"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
サブSendEMail()
xEmailAsStringを暗くする
Dim xSubj As String
文字列としての薄暗いxMsg
文字列としての薄暗いxURL
Dim i As Integer
Dim k As Double
xCellAsRangeを暗くする
範囲としての薄暗いxRg
文字列としての薄暗いxTxt
文字列としての薄暗いxCC
エラーで次の再開
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox( "データ範囲を選択してください:"、 "Kutools for Excel"、xTxt 、、、、、、 8)
xRgが何もない場合は、Subを終了します
If xRg.Columns.Count <> 4 Then
MsgBox「地域フォーマットエラー、確認してください」、「KutoolsforExcel」
サブを終了
終了する場合
i=1の場合xRg.Rows.Countへ
xEmail = xRg.Cells(i、2)
xCC = xRg.Cells(i、3)
xSubj="あなたの登録コード"
xMsg = ""
xMsg = xMsg& "Dear"&xRg.Cells(i、1)& "、"&vbCrLf&vbCrLf
xMsg = xMsg&"これはあなたの登録コードです"
xMsg = xMsg&xRg.Cells(i、4).Text&"。" &vbCrLf&vbCrLf
xMsg = xMsg& "試してみてください。フィードバックをいただければ幸いです!"&vbCrLf
xMsg = xMsg&"Skyyang"
xSubj = Application.WorksheetFunction.Substitute(xSubj、 ""、 "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg、 ""、 "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg、vbCrLf、 "%0D%0A")
xURL = "mailto:"&xEmail& "?cc ="&xCC& "&subject ="&xSubj& "&body ="&xMsg
ShellExecute 0&、vbNullString、xURL、vbNullString、vbNullString、vbNormalFocus
Application.Wait(Now + TimeValue( "0:00:02"))
Application.SendKeys "%s"
次へ
End Subの
このコメントは、サイトのモデレーターによって最小化されました
「VBAコードを使用してExcelからリストにパーソナライズされた大量の電子メールを送信する」で前述のVBAコードを使用しました。 期限が迫っている契約を結んでいる人にリマインダーを送信するように指示するExcelに基づいて通知する必要がある特定の個人に電子メールを送信できるかどうか知りたいですか? 私はメールを送信するのに優れていることができません、そして私はコード自体のためにそれを知っています。 誰かが私がこの問題を解決するのを手伝ってもらえますか?
このコメントは、サイトのモデレーターによって最小化されました
一意の件名でメールを送信したいのですが、このVBAでどのように送信できますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、みんな!

あるシートにメールのリストがあり、別のシートにメールの下書きがあります。
シート2からシート5に記載されているリストの1人のメンバーごとにメールの下書きを自動的に送信するコードが必要です。
最初の5つが送信されると、コードはそれらを新しい専用列で「送信済み」としてタグ付けし、60秒待ってから次の5つの電子メールのセットを送信する必要があります。
コードは、リスト全体の最後まで実行する必要があります。

コードは、Outlookを使用して、Outlookの既定のプロファイルからメールを送信できます。

助けてください。

さらに説明が必要な場合に備えてお知らせください
ここにはまだコメントが投稿されていません
もっと読む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護