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 SubNote：メールの件名と本文の両方を指定してください .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日）が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。
デモ：Kutools forExcelのセルで指定されたメールアドレスにメールを送信する
関連記事：
- 指定した範囲をコピーしてExcelのメール本文に貼り付けてメールを送信するにはどうすればよいですか？
- Excelで複数の添付ファイルを添付してメールを送信するにはどうすればよいですか？
- Excelでvbaで送信するときにOutlookの電子メールに署名を挿入するにはどうすればよいですか？
- Excelで期日を過ぎた場合にメールを送信するにはどうすればよいですか？
- Excelのセル値に基づいて電子メールを自動的に送信するにはどうすればよいですか？
最高のオフィス生産性向上ツール
| 🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
| 人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
| スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
| 詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
| 列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
| 注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
| 上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...） | 50+ チャート 種類 (ガントチャート、...） | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...） | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...） | 12 変換 ツール (数字から言葉へ, 通貨の換算、...） | 7 マージ＆スプリット ツール (高度な結合行, 分割セル、...） | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
