大勢の人に大量のメールを送る必要がある場合、繰り返しの作業を素早く処理できる自動化されたプロセスが必要になります。 作成するのは エクセル ファイルからメールを送信する方法は、大量にメールを送信する最も一般的な方法です。 そこで、このチュートリアルでは エクセル のリストを自動的に多くの人に見せることができます。

練習用ワークブックをダウンロードする

この練習用ワークブックをダウンロードして、この記事を読みながらエクササイズしてください。

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

下の画像に、何人かの方のお名前と、Eメール、登録番号のデータを載せています。 より引用 エクセル のリストを作成したら、それぞれの人にメールを送る必要があります。 Microsoft WordのMail Merge 機能 に続いて ブイビーエー コードを使用して、既存のリストの中から希望する人にメールを送信することができます。

1.メールマージ機能を適用して、Excelのリストから複数のメールを送信する

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

• 空白を開く ワード のドキュメントをご覧ください。
• をクリックします。 郵送物 タブで表示します。
• より 受取人の選択 オプションを選択します。 既存のリストを利用する オプションを使用します。

⇒ ステップ2：ExcelのリストとWordのファイルをリンクさせる

• を選択します。 エクセル をクリックし、リストを作成しました。 オープン をクリックしてファイルを開いてください。

• リストを書き込んだシート番号を選択します。
• をクリックします。 よっしゃー .

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

• より 郵送物 オプションをクリックします。 マージフィールドの挿入 オプションを使用して、挿入したいフィールドを入力します。
• まず、挿入します。 名称 フィールドをクリックし、一般的なメールの好ましい位置にある。

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

• 同様に レジ をテキストメッセージの好きな場所に入力します。

• そのため、下図のように表示されます。

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

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

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

• メールを統合するには フィニッシュ＆アンプル、マージ オプションを使用します。
• を開くには 電子メールにマージする ボックスを選択します。 メールメッセージの送信 オプションを使用します。

• 宛先]ボックスで 電子メール オプションを使用します。
• にお好きな件名を入力してください。 件名 ボックスを使用します。
• メールのフォーマットは HTML はデフォルトで設定されているので、変更する必要はありません。
• レコードの送信」オプションで すべて .
• 最後に、以下をクリックします。 よっしゃー を使用すると、複数の受信者に同時にメールを送信することができます。

• その結果、すべてのメールは、あなたの関連する 展望 を確認してください。 展望 sent オプションを使用すると、メールが送信されたことを確認できます。

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

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

類似の読み物

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

2.範囲の選択からメールを送信するVBAコードを実行する

の祝福を受けながら ブイビーエー からメールを送信するプログラムを作成することができます。 エクセル を選択し、以下の手順で実行します。

⇒ ステップ1：モジュールの作成

• を開くには VBAマクロ を押してください。 アルト + 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() 'Disclare 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 Input box for range selection Set xIntRg = Application.InputBox("Please Input Excel data range:".*).Address '入力範囲を選択できる入力ボックスを生成。"ExcelWIKI", xSelectTxt, , , 8) 'If 条件を適用して操作の列番号を指定 If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then '条件を満たさない場合は結果をメッセージボックスに表示 MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'For ループを適用して各行ごとに操作を実行 For k = 1 To xIntRg.Rows.Count' メールアドレスを集めて変数にセット xMailAdd = xIntRg.Cells(k, 2) ' メール件名をつける xRegCode = "ExcelWIKI 登録番号" ' メール本文を入力 xBody = "" ' 名前を変数 xIntRg で挿入 xBody = xBody & "挨拶 " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " これが ExcelWIKI 登録番号 " 'と挿入する。登録番号を変数 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 & "ExcelWIKI Team" ' スペースは (hex) と定義 xRegCode = Application.WorksheetFunction.Substitute(xRegCode, ", "%20") xBody = xRgDefigned by `Subjects'... xRgDefined by xBody & '登録番号に含まれる、"," と "入力した"" の文字数。Application.WorksheetFunction.Substitute(xBody, ", "%20") ' キャリッジリターンを（16進）に置き換える指定 xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' URLリンクを生成 xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' リンクを使ってメールの送信開始 シェル実行 0&、 vbNullString, xURLink、 vbNullString.GetShellExecutevbNullString, vbNormalFocus ' キー入力の送信に3秒間隔 Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ ステップ3：プログラムの実行

• プレス F5 をクリックしてプログラムを実行します。
• 選択 を入力ボックスで指定します。
• クリック よっしゃー をクリックしてメールを送信します。

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

• 最後に、送信されたメールを確認することができます。

続きを読む エクセルで条件を満たした場合にメールを送る方法（3つの簡単な方法）

結論

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

ご不明な点はお問い合わせください。 また、以下の欄にお気軽にコメントをお寄せください。

私たち Exceldemy また、このチームでは、お客様からの問い合わせに常に迅速に対応しています。

私たちと一緒に、学び続けましょう。