指定した範囲をコピーしてExcelのメール本文に貼り付けてメールを送信するにはどうすればよいですか？

多くの場合、Excelワークシートの指定された範囲のコンテンツは、電子メール通信に役立つ場合があります。 この記事では、指定した範囲でメールを送信する方法をExcelで直接メール本文に紹介します。

指定した範囲をExcelのメール本文に貼り付けてメールを送信する
素晴らしいツールを使用して、指定した範囲をメール本文に貼り付けてメールを送信します
Excelでメールを送信するためのその他のチュートリアル...

指定した範囲をExcelのメール本文に貼り付けてメールを送信する

次のVBAコードは、範囲をコピーして、ExcelのOutlook電子メール本文に直接貼り付けるのに役立ちます。 次のようにしてください。

1.ワークシートにコピーする必要のある範囲が含まれている場合は、を押します。 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください ツール > 参考文献 以下のスクリーンショットのように。

3。 の中に 参照– VBAProject ダイアログボックスで、を見つけて確認してください MicrosoftOutlookオブジェクトライブラリ オプションをクリックしてから、 OK

4。 クリック インセット > モジュール、次に、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

VBAコード：指定した範囲をExcelのメール本文に貼り付けてメールを送信する

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = ""
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

ノート:

• 1）。 メール本文を一列に変更してください xEmailBody = "Hi"＆vbLf＆vbLf＆ "追加したいメッセージの本文"＆vbLf＆vbLf＆xEmailBody＆vbNewLine 必要に応じて
• 2）。 メールの受信者と件名を指定してください（.To = & .Subject = "test"） コード内の行。

5。 プレス F5 コードを実行するためのキー。 ポップアップで Kutools for Excel ダイアログボックスで、メール本文に貼り付ける必要のある範囲を選択して、[ OK ボタン。 スクリーンショットを参照してください：

6.これで、指定した受信者、件名、本文、および選択したExcel範囲で電子メールが作成されます。をクリックしてください。 送信 このメールを送信するボタン。 示されているスクリーンショットを参照してください。

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

素晴らしいツールを使用して、指定した範囲をメール本文に貼り付けてメールを送信します

Outlookを使用せずに、指定した範囲のデータを貼り付けてExcelで直接メールを送信したい場合は、 メールを送る の有用性 Kutools for Excel あなたのために。 この機能を使用すると、電子メールアドレスの送信サーバーを構成し、将来的にはこの電子メールアドレスを介してExcelで直接電子メールを送信する必要があります。

1.まず、必要なフィールドを含むメーリングリストを準備する必要があります。

• ヒント：メーリングリストには少なくとも2行が含まれ、最初の行はヘッダーである必要があります（ExcelでXNUMXつの電子メールアドレスに電子メールを送信する場合は、次のスクリーンショットのようにヘッダー「Email」を使用してこれらXNUMXつの電子メールアドレスを入力してください）。
• 
• または、次の方法でメーリングリストを簡単に作成できます。 メーリングリストを作成する 特徴。

2.メール本文にデータを追加する範囲を選択し、 Ctrlキー + C キーを押してコピーします。

3.メーリングリスト全体（ヘッダーを含む）を選択し、をクリックします クツールズプラス > メールを送る。 スクリーンショットを参照してください：

4.次に、 メールを送る ダイアログボックスが表示されます。

• 4.1）選択したメーリングリストの項目は、対応するフィールドに入力されます（必要に応じてメーリングリストにフィールドを追加できます）。
• 4.2）メール本文ボックスをクリックし、を押します Ctrlキー + V 選択した範囲データを貼り付けるためのキー。 その後、必要に応じて他のコンテンツを追加します。
• 4.3チェックを外します Outlook経由でメールを送信する ボックス;
• 2.4）をクリックします 送信サーバー設定 ボタン。 スクリーンショットを参照してください：

5.次に、 送信サーバー（SMTP）設定–新しいスキーム ダイアログボックスが表示されます。 メールアドレスにサーバー設定を入力し、確認後、送信したメールをすべて保存するフォルダを指定してください。 送信したメールをに保存 ボックスをクリックし、 OK ボタンを押して設定を保存します。

6.に戻ったとき メールを送る ダイアログボックスで 送信 メールを送信するボタン。

今後は、この機能を使用して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% 向上させ、毎日何百回もマウス クリックを減らすことができます!

続きを読みます... 無料ダウンロード...