メインコンテンツへスキップ

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 ボタン。 スクリーンショットを参照してください:

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

ノート:

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のセルで指定されたメールアドレスにメールを送信する


関連記事:

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hogyan választhatom ki a CC-ket ugyanúgy, mint a címzetteket? Lee ezt kérdezte :D
This comment was minimized by the moderator on the site
Hi KK,
If you want to add CC recipients with the email addresses in specified cells, you need to manually add an email address to the To line in the code, and then add a Cc line.
The two lines are as follows.
.To = ""
.Cc = xRgVal
This comment was minimized by the moderator on the site
수신인과 마찬가지의 방법으로 참조인을 선택하려면 어떻게 하나요?
This comment was minimized by the moderator on the site
Hi lee,
Sorry I don't understand your question. You may need to attach a screenshot to describe the problem more clearly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations