Excel リストからメールを送信する方法 (2 つの効果的な方法)

大規模なグループに大量のメールを送信する必要がある場合は、繰り返しのタスクをすばやく処理できる自動化されたプロセスが必要になります。 Excel の作成 電子メールのリストを含むファイルは、大量の電子メールを送信する最も一般的な方法です。このチュートリアルでは、 Excel からメールを送信する方法を紹介します。 多数の人に自動的にリストします。

Excel リストからメールを送信するための 2 つの便利な方法

下の画像には、一部の人の名前、電子メール、登録番号を含むデータ セットが含まれています。 Excel から リスト、各個人に電子メールを送信する必要があります。これを実現するには、Microsoft Word の差し込み印刷を使用します 機能 、その後に VBA が続きます 既存のリストから希望する個人に電子メールを送信するためのコード。

1.差し込み印刷機能を適用して Excel リストから複数のメールを送信

⇒ ステップ 1:新しい Word ファイルを開く

• 空白の単語を開く ドキュメント。
• メーリングをクリックします タブ
• 受信者の選択から オプションで、既存のリストを使用を選択します オプション

⇒ ステップ 2:Excel リストを Word ファイルにリンクする

• Excel を選択 リストを作成したファイルを開き、[開く] をクリックします。 ファイルを開く

• リストを書いたシート番号を選択してください。
• 次に、[OK] をクリックします .

⇒ ステップ 3:フィールドを挿入する

• メールから オプションで、差し込みフィールドの挿入をクリックします 挿入するフィールドを入力するオプション
• まず、名前を挿入します フィールドをクリックして、一般メールの優先位置に配置します。

• 以下の画像のように、 名前 を追加した後 フィールドに入力すると、すべての人の名前の変数として表示されます。

• 同様に、Reg を配置します。 テキスト メッセージの好きな場所に入力してください。

• したがって、下の画像のようになります。

⇒ ステップ 4:プレビュー結果を確認する

• プレビュー結果をクリックします メールを送信する前に最終プレビューを確認してください。
• 以下のスクリーンショットは、サンプル メールがどのように表示されるかを示しています。

⇒ ステップ 5:メールをマージする

• メールを結合するには、[完了して結合] をクリックします。 オプション
• Merge to E-mail を開くには ボックスで、[メール メッセージを送信] を選択します。 オプション

• [宛先] ボックスで、メール を選択します オプション
• 件名に希望する件名を入力します ボックス。
• メール形式は HTML になります デフォルトで設定されているため、変更する必要はありません。
• [レコードを送信] オプションで、[すべて] をクリックします。 .
• 最後に、[OK ] をクリックします。 メールを複数の受信者に同時に送信する

• したがって、すべてのメールは関連する Outlook を介して送信されます 展望をチェック メールが送信されたことを確認する送信済みオプション

• 送信したメールを開くと、各フィールドに特定の人物の情報が入力されていることに気付くでしょう。

メモ。 マイクロソフト アウトルック がデフォルトのメーリング アプリケーションである必要があります。他のメールアプリをご利用の場合、この手順でメールを送信することはできません。

続きを読む: Excel で条件が満たされたときにメールを自動的に送信する方法

類似の読み物

• 編集可能な Excel スプレッドシートをメールで送信する方法 (3 つの簡単な方法)
• [解決済み]:Excel に表示されないワークブックを共有する (簡単な手順で)
• VBA を使用して Excel ワークシートからリマインダー メールを自動的に送信する
• 共有 Excel ファイルに誰が入っているかを確認する方法 (クイック手順付き)
• Excel でワークブックの共有を有効にする方法

2. VBA コードを実行して範囲を選択してメールを送信する

VBA のおかげで 、 Excel から電子メールを送信するプログラムを作成できます。 範囲の好ましい選択を含むリスト。以下の手順に従ってタスクを実行してください。

⇒ ステップ 1:モジュールを作成する

• VBA マクロを開くには 、 Alt を押します + F11 .
• 挿入をクリックします タブ
• モジュールを選択します モジュールを作成するオプション .

⇒ ステップ 2:VBA コードを貼り付ける

• 新しいモジュールで 、次の VBA コード を貼り付けます .

#If VBA7 And Win64 Then
'Ptr is used to change for operating 32 bit to 64 bit
 Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
 ByVal wnd As LongPtr, ByVal lpDirect As String, _
 ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _
 ByVal nCmd As Long) As LongPtr
#Else

#End If
Sub SendExcelListEMail()
'Declare the variables
 Dim xMailAdd As String
 Dim xRegCode As String
 Dim xBody As String
 Dim xURLink As String
 Dim xRngCell As Range
 Dim xIntRg As Range
 Dim xSelectTxt As String
 Dim k As Integer
 Dim p As Double
 On Error Resume Next
'Select range select adddress
 xSelectTxt = ActiveWindow.RangeSelection.Address
'Create a Input box for the range selection
 Set xIntRg = Application.InputBox("Please Input Excel data range:", "ExcelDemy", xSelectTxt, , , , , 8)
'Apply If condition to specify column numbers for the operation
 If xIntRg Is Nothing Then Exit Sub
 If xIntRg.Columns.Count <> 3 Then
'Show the result in a msg box for not meeting the condition
 MsgBox "Error with Region Selection, please confirm", , "ExcelDemy"
 Exit Sub
 End If
'Apply For loop to run operation in each row individually
 For k = 1 To xIntRg.Rows.Count
' Collect the email address and set to the variable
 xMailAdd = xIntRg.Cells(k, 2)
' Give a subject for the Email
 xRegCode = "ExcelDemy Registration No."
' Type the body of the email
 xBody = ""
' Insert Names with the variable xIntRg
 xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf
 xBody = xBody & " Here is your ExcelDemy Registration No. "
' Insert Registration No. with the variable xIntRg
 xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf
 xBody = xBody & "We are really glad to have you visit in our site, keep supporting us." & vbCrLf
 xBody = xBody & "ExcelDemy Team"
' Define spaces with (hex)
 xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20")
 xBody = Application.WorksheetFunction.Substitute(xBody, " ", "%20")
' Specify to replace carriage returns with(hex)
 xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A")
' Generate the URL Link
 xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody
' Use the Link to start emailing
 ShellExecute 0&, vbNullString, xURLink, vbNullString, vbNullString, vbNormalFocus
' three seconds interval for sending keystrokes
 Application.Wait (Now + TimeValue("0:00:03"))
 Application.SendKeys "%s"
 Next
End Sub

⇒ ステップ 3:プログラムを実行する

• F5 を押します プログラムを実行します。
• 選択 入力ボックスの範囲
• [OK] をクリックします メールを送信します。

• その結果、下の画像に示すように、メール送信のプレビューが表示されます。

• 最後に、送信されたメールを確認して確認できます。

続きを読む: Excel で条件が満たされた場合にメールを送信する方法 (3 つの簡単な方法)

結論

Excel から大量のメールを送信する方法について、この記事がチュートリアルになったことを願っています。 リスト。これらの手順はすべて学習し、データセットに適用する必要があります。練習用ワークブックを見て、これらのスキルを試してみてください。貴重なご支援のおかげで、このようなチュートリアルを作成し続けることができました。

ご不明な点がございましたら、お問い合わせください。また、下のセクションにコメントを残してください。

私たち、Exceldemy チームは、常にあなたの質問に応えます。

私たちと一緒に学び続けてください。

関連記事

• Excel から Outlook に自動メールを送信する方法 (4 つの方法)
• マクロを使用して本文付きの Excel からメールを送信する方法 (簡単な手順)
• Excel マクロ:セル内のアドレスにメールを送信する (2 つの簡単な方法)
• 日付に基づいて Excel から電子メールを自動的に送信する方法
• Excel スプレッドシートから複数のメールを送信する方法 (2 つの簡単な方法)
• 本文付きの Excel からメールを送信するマクロ (3 つの便利なケース)