ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

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

あなたが電子メールアドレスのリストを持っていれば、Excelでこれらの電子メールアドレスに一括して電子メールメッセージを送信したいとします。 それを達成する方法? この記事では、Excelのセルで指定された複数の電子メールアドレスに電子メールを送信する方法を説明します。

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

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

OfficeタブOfficeでタブ付き編集とブラウジングを有効にし、作業をより簡単にします...
Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最も使用されている式や複雑な式、チャート、その他をお気に入りに追加し、将来的にすぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換...
  • マージツール:複数のワークブックとシートを1つに; データを失うことなく複数のセル/行/列を結合します。 重複する行と合計をマージ...
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 1つのワークブックから複数のExcel、PDF、またはCSVファイル。 1列から複数列...
  • 貼り付けスキップ 非表示/フィルターされた行。 カウントアンドサム 背景色別; メーリングリストを作成し、 セルの価値でメールを送信する...
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度などにより; フィルタ 太字、式、コメントで...
  • 300の強力な機能以上。 Office 2007-2019および365で動作します。 すべての言語をサポートしています。 企業または組織に簡単に展開できます。

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


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

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

2。 オープニング アプリケーション用Microsoft Visual Basic ウィンドウをクリックしてください ツール > リファレンス 以下のスクリーンショットを示します。

3。 の中に 参照 - VBAProject ダイアログボックスで、 Microsoft Outlookオブジェクトライブラリ オプションを選択して、 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 = "親愛なる" _&vbNewLine&vbNewLine&_ "これはテストメールです"&_ "Excelで送信" コード内の行。

5。 プレス F5 コードを実行するキー。 オープニング Kutools for Excel ダイアログボックスで、電子メールを送信する電子メールアドレスを含む範囲を選択してから、 OK ボタン。 スクリーンショットを見る:

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

ノート:

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

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


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

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

Kutools for Excel :300以上の便利なExcelアドイン、 60日以内に自由に試してみてください.

1。 ワークシートのヘッダー・セルを含む電子メール・アドレスを選択し、「次へ」をクリックします。 大口プラン > メールを送る。 スクリーンショットを見る:

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

2.1)電子メールアドレスリストのヘッダーを ドロップダウンリスト;

2.2)電子メールの件名を 主題 ボックス;

2.3)あなたのメール本文を作成する。

2.4) Outlook経由でメールを送信する ボックス;

2.5)をクリックします 送信 ボタン。 スクリーンショットを見る:

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

ノート:

1。 あなたはOutlookの 送信済みアイテム フォルダをクリックして送信メールを確認します。

2。 他のサーバーを使用することもできます。 送信サーバー設定 自分の送信モードを設定します。

先端。このユーティリティの無料トライアルをご希望の場合は、 自由にソフトウェアをダウンロードする まず、上記の手順に従って操作を行ってください。


デモ:Kutools for Excelでセルに指定された電子メールアドレスに電子メールを送信する

Kutools for Excel 300以上の便利なExcelツールが含まれています。 自由に60日に制限なしで試してみてください。 今すぐ無料トライアルをダウンロードしてください!


関連記事:


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

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

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.