Excelのセルで指定されたメールアドレスにメールを送信するにはどうすればよいですか？

電子メールアドレスのリストがあり、Excelで直接これらの電子メールアドレスに電子メールメッセージをまとめて送信するとします。 それを達成する方法は？ この記事では、Excelのセルで指定された複数の電子メールアドレスに電子メールを送信する方法を説明します。

VBAを使用してExcelのセルで指定された電子メールアドレスに電子メールを送信する
Kutools forExcelでセルに指定されたメールアドレスに簡単にメールを送信できます

VBAを使用してExcelのセルで指定された電子メールアドレスに電子メールを送信する

次のVBAコードは、Excelで指定された電子メールアドレスに電子メールを送信するのに役立ちます。 以下のようにしてください。

1.ワークシートに、メールの送信に必要なメールアドレスが含まれている場合は、を押します。 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください ツール > 参考情報 以下のスクリーンショットのように。

3。 の中に 参照– VBAProject ダイアログボックスで、を見つけて確認してください MicrosoftOutlookオブジェクトライブラリ オプションをクリックしてから、 OK

4。 次に、をクリックします インセット > モジュール。 次に、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

VBAコード：Excelのセルで指定されたメールアドレスにメールを送信します

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Note：メールの件名と本文の両方を指定してください .Subject = "test" • .Body = "Dear" _＆vbNewLine＆vbNewLine＆_ "これはテストメールです"＆_ "Excelで送信" コード内の行。

5。 プレス F5 コードを実行するためのキー。 オープニングで Kutools for Excel ダイアログボックスで、メールを送信するメールアドレスを含む範囲を選択し、[ OK ボタン。 スクリーンショットを参照してください：

次に、以下のスクリーンショットに示すように、選択した電子メールアドレスに基づいて電子メールが作成されます。 クリックしてください 送信 これらのメールを送信するためのボタン。

ノート:

Kutools forExcelでセルに指定されたメールアドレスにメールを送信する

このセクションでは、 メールを送る の有用性 Kutools for Excel。 このユーティリティを使用すると、Excelのセルで指定された電子メールアドレスに電子メールを簡単に送信できます。 次のようにしてください。

1.ワークシートのヘッダーセルでメールアドレスを選択し、をクリックします クツールズプラス > メールを送る.

2.ポップアップで メールを送る ダイアログボックスで、次の設定を行ってください。

3.次に、 Kutools for Excel 送信された電子メールの数を示すダイアログボックスがポップアップ表示されます。 クリックしてください OK ボタンを押して閉じます メールを送る ダイアログボックス。 スクリーンショットを参照してください：

ノート:

デモ：Kutools forExcelのセルで指定されたメールアドレスにメールを送信する

関連記事：

• 指定した範囲をコピーしてExcelのメール本文に貼り付けてメールを送信するにはどうすればよいですか？
• Excelで複数の添付ファイルを添付してメールを送信するにはどうすればよいですか？
• Excelでvbaで送信するときにOutlookの電子メールに署名を挿入するにはどうすればよいですか？
• Excelで期日を過ぎた場合にメールを送信するにはどうすればよいですか？
• Excelのセル値に基づいて電子メールを自動的に送信するにはどうすればよいですか？