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

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

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

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

免責事項:

1.選択したセルにXNUMXつの電子メールアドレスが別々に存在する場合、XNUMXつの電子メールメッセージが作成されます。

2. VBAコードは、電子メールプログラムとしてOutlookを使用している場合にのみ機能します。

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

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

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

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

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

2.1）でメールアドレスリストのヘッダーを選択しますにドロップダウンリスト;

2.2）メールの件名を件名ボックス;

2.3）メール本文の作成。

2.4）確認してください Outlook経由でメールを送信する ボックス;

2.5）をクリックします送信ボタン。スクリーンショットを参照してください：

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

免責事項:

1.Outlookに移動できます 送信済みアイテム 送信メールをチェックするフォルダ。

2.をクリックして、別のサーバーを使用することもできます 送信サーバー設定 送信モードを独自に設定します。

このユーティリティの無料トライアル（30日）をご希望の場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。

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

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

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

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