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 ボタン。 スクリーンショットを参照してください:
次に、以下のスクリーンショットに示すように、選択した電子メールアドレスに基づいて電子メールが作成されます。 クリックしてください 登録 これらのメールを送信するためのボタン。
免責事項:
Kutools forExcelでセルに指定されたメールアドレスにメールを送信する
このセクションでは、 メールを送る の有用性 Kutools for Excel。 このユーティリティを使用すると、Excelのセルで指定された電子メールアドレスに電子メールを簡単に送信できます。 次のようにしてください。
申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.
1.ワークシートのヘッダーセルでメールアドレスを選択し、をクリックします クツールズプラス > メールを送る.
2.ポップアップで メールを送る ダイアログボックスで、次の設定を行ってください。
3.次に、 Kutools for Excel 送信された電子メールの数を示すダイアログボックスがポップアップ表示されます。 クリックしてください OK ボタンを押して閉じます メールを送る ダイアログボックス。 スクリーンショットを参照してください:
免責事項:
無料トライアルをご希望の方は(30-day) このユーティリティの クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。
デモ:Kutools forExcelのセルで指定されたメールアドレスにメールを送信する
関連記事:
- 指定した範囲をコピーしてExcelのメール本文に貼り付けてメールを送信するにはどうすればよいですか?
- Excelで複数の添付ファイルを添付してメールを送信するにはどうすればよいですか?
- Excelでvbaで送信するときにOutlookの電子メールに署名を挿入するにはどうすればよいですか?
- Excelで期日を過ぎた場合にメールを送信するにはどうすればよいですか?
- Excelのセル値に基づいて電子メールを自動的に送信するにはどうすればよいですか?
最高のオフィス生産性ツール
Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます
- 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
- スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
- セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
- [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
- 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
- テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
- スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
- ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
- 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
