Excel スプレッドシートから複数のメールを送信する方法 (2 つの簡単な方法)

Excel にはさまざまな種類の情報が保存されています ワークシート。たとえば、 メール を持つことができます 重要人物や他社の住所。また、必要に応じて、これらのアドレスに電子メールを送信する必要がある場合があります。しかし、それぞれのアドレスを何度もコピーするのは非常に面倒で時間がかかります。この記事では、複数のメールを送信するための簡単で効果的な方法を紹介します。 Excel スプレッドシートから .

次のワークブックをダウンロードして、自分で練習してください。

Excel スプレッドシートから複数のメールを送信する 2 つの簡単な方法

説明のために、サンプル データセットを例として使用します。たとえば、次のデータセットは Salesman を表しています とその メール アドレス。ここでは、この Excel スプレッドシート からアドレスを取得して、全員にメールを送信します .

1. Word の差し込み印刷で Excel スプレッドシートから複数のメールを送信

最初の方法では、MS Word を利用します 差し込み印刷機能 ワードで 複数のメールを送信する Excel スプレッドシートから .したがって、以下の手順に従ってタスクを実行してください。

手順:

• まず、空白の 単語 を開きます ファイル。
• 次に、希望するメッセージを入力してください。
• その後、メーリング に移動します。 ➤ 受信者を選択 ➤既存のリストを使用 .

• その結果、データ ソースの選択 ダイアログ ボックスが表示されます。
• 次に、Excel を選択します。 メール アドレスが保存されます。
• 開くを押します .

• したがって、テーブルの選択 ダイアログ ボックスが表示されます。
• 目的のシートを選択して OK を押します .

• 次に、各メールで置換する必要がある単語を選択します。この例では、Wilham を選択します .
• 次に、郵便物の下に タブで セールスマン を選択します 差し込みフィールドの挿入 から ドロップダウン。

• したがって、以下に示すようなメッセージが返されます。

• さらに、受信者の視点からメールのプレビューを表示するには、[結果のプレビュー] をクリックします。 .

• Finish &Merge の下 ドロップダウンで、[メール メッセージを送信] を選択します .

• したがって、Merge to E-mail ダイアログ ボックスが表示されます。
• ヘッダー メール を選択してください 宛先 フィールドに 件名 を入力します (ご挨拶 ) 必要に応じて。
• 最後に OK を押します すべての受信者にメールが送信されます。

続きを読む: 編集可能な Excel スプレッドシートをメールで送信する方法 (3 つの簡単な方法)

類似の読み物

• 日付に基づいて Excel から電子メールを自動的に送信する方法
• マクロを使用して本文付きの Excel からメールを送信する (簡単な手順)
• Excel ファイルを電子メールで自動的に送信する方法 (3 つの適切な方法)
• Excel で条件が満たされた場合にメールを送信する方法 (3 つの簡単な方法)
• セルの内容に基づいて Excel から電子メールを自動的に送信する (2 つの方法)

2.スプレッドシートから複数のメールを送信するための Excel VBA の適用

ただし、 VBA を使用すると、面倒な作業を回避できます。 操作を実行するコード。このメソッドでは、 3 を表示します 複数のメールの送信 のさまざまな例 スプレッドシートから Excel VBA 経由 .

2.1 リストへの一括メール

この例では、全員に共通のメッセージを送信する方法を示します。ですから、次の手順を学んでください。

手順:

• まず、開発者を選択します ➤ ビジュアル ベーシック .

• その結果、 VBA ウィンドウが飛び出します。
• [挿入] をクリックします。 ➤ モジュール .
• 次に、次のコードをコピーして モジュール に貼り付けます ウィンドウ。

Sub massEmails()
Dim appOutlook As Object
Dim Email As Object
Dim mailbody, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
ThisWorkbook.Save
Email.To = mailto
Email.Subject = "Important Notice"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Company Rules." & vbNewLine & "Regards."
Email.Display
End Sub

• ファイルを保存して F5 を押します コードを実行します。
• したがって、見通し ウィンドウが表示され、宛先 にすべての受信者が表示されます フィールド。
• 最後に送信を押します .

2.2 複数のファイルが添付されたメール

さらに、添付するファイルが複数あり、それらを複数のメール アドレスに送信する必要がある場合は、以下のプロセスに従ってください。

手順:

• 開発者をクリックします 最初はタブで。
• 次に、Visual Basic を選択します .
• その後、 VBA で ウィンドウで モジュール を選択します 挿入の下 .
• モジュール内 ウィンドウで、以下のコードをコピーして貼り付けます。

Sub attachments()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
    source = "D:\SOFTEKO\how to send multiple emails from excel spreadsheet\" & Cells(j, 3)
    Email.attachments.Add source
Next
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub

• コードを保存し、F5 を押してコードを実行します .
• その結果、見通し ウィンドウが表示され、目的の添付ファイルが表示されます。

2.3 セル値に基づくメール

Excel ファイルは、特定のセル値が要件と異なる場合に、複数のアドレスに電子メールを自動的に送信します。次のデータセットには 50 あります セル内 B5 . 100 未満の場合、コードはメールを送信します .次に、タスクを実行するための次のプロセスを学びます。

手順:

• まず、シートを選択してマウスを右クリックします。
• 次に、[コードを表示] を選択します .

• ポップアウト ダイアログ ボックスで、以下のコードをコピーして貼り付けます。

Dim rn As Range
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set rn = Intersect(Range("B5"), Target)
    If rn Is Not hing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value < 100 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub MailCellvalues()
Dim appOutlook As Object
Dim Email As Object
Dim mailbody, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 3) & ";"
Next i
ThisWorkbook.Save
Email.To = mailto
Email.Subject = "Important Notice"
Email.Body = "Greetings Everyone," & vbNewLine & "Please raise B5 above 100." & vbNewLine & "Regards."
Email.Display
End Sub

• その後、ファイルを保存して F5 を押します
• その結果、Outlook に出力が表示されます。 ウィンドウ。

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

結論

今後、 複数のメールを送信 できるようになります Excel スプレッドシートから 上記の方法に従ってください。それらを引き続き使用し、タスクを実行する方法が他にある場合はお知らせください。 エクセルデミーをフォロー このような他の記事のウェブサイト。以下のコメント セクションにコメント、提案、またはクエリがある場合は、忘れずにドロップしてください。

関連記事

• VBA を使用して Excel ワークシートからリマインダー メールを自動的に送信する
• Excel で条件が満たされたときにメールを自動的に送信する方法
• [解決済み]:Excel に表示されないワークブックを共有する (簡単な手順で)
• Excel からメールを送信するマクロ (5 つの適切な例)
• 本文付きの Excel からメールを送信するマクロ (3 つの便利なケース)
• Excel マクロ:セル内のアドレスにメールを送信する (2 つの簡単な方法)