指定した範囲をコピーして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 = "happy.xuebi@163.com"
        .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）。 メールの受信者と件名を指定してください（宛先 = happy.xuebi@163.com • .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で直接メールを送信できます。

関連記事：