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

or

指定した範囲をコピーして電子メール本文にExcelで貼り付ける方法

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

指定した範囲のメールをExcelのメール本体に貼り付けます


指定した範囲のメールをExcelのメール本体に貼り付けます


次のVBAコードを使用すると、範囲をコピーしてExcelの本文に直接貼り付けることができます。 以下のようにしてください。

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

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

3。 の中に 参照 - VBAProject ダイアログボックスで、 Microsoft Outlookオブジェクトライブラリ オプションを選択して、 OK ボタン。

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

VBAコード:指定した範囲のメールをExcelのメール本文に貼り付けます

Sub Send_Email()
    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&vNewLine 必要に応じて

2)。 あなたのメールの受信者と件名を指定してください .To = happy.xuebi@163.com そして .Subject = "test" コード内の行。

5。 プレス F5 コードを実行するキー。 ポップアップで Kutools for Excel ダイアログボックスで、電子メール本文に貼り付ける範囲を選択してから、 OK ボタン。 スクリーンショットを見る:

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

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


関連記事:



Excelの推奨生産性向上ツール

Kutools for Excelを使用すると、いつでも作業を終わらせることができ、群衆から目立つようにすることができます。

  • 300作業シナリオ用に設計された1500以上の強力な高度な機能により、生産性を70%向上させ、家族の世話をしたり人生を楽しんだりするための時間を増やすことができます。
  • 数式やVBAコードを暗記する必要はもうありません。これから脳を休ませてください。
  • 3分でExcelのエキスパートになる、複雑で繰り返しのある操作が数秒で可能
  • 毎日何千ものキーボードとマウスの操作を減らし、今や職業病に別れを告げる。
  • 110,000の非常に効果的な人々と300 +世界的に有名な企業の選択。
  • 60-dayフル機能無料トライアル。 60日の返金保証。 2年間の無料アップグレードとサポート。

ブラウザのタブよりはるかに強力な、タブ付きのブラウジングと編集をMicrosoft Officeにもたらします。

  • Officeタブは、Word、Excel、PowerPoint、およびその他のOfficeアプリケーション(発行元、アクセス、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.
  • To post as a guest, your comment is unpublished.
    sachin kumr · 2 months ago
    this is pasting as a text. Kindly suggest how to send the table or the same format which is copied from the excel.
  • To post as a guest, your comment is unpublished.
    miguel · 3 months ago
    Code to send automatically after selecting after ok
  • To post as a guest, your comment is unpublished.
    Dhiraj Mahajan · 5 months ago
    Hi
    This code is vary excellent, by using the code i have completed my 90% of my project.
    I have same issue as mentioned by Anirudh that is table formatting. How can i format the table in email.
    Please help me......
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Good Day,
      The problem can't be solved yet. Sorry for the inconvenience and thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Dhiraj Mahajan · 2 months ago
        Hi, Is there any update on below.......
        • To post as a guest, your comment is unpublished.
          Dhiraj Mahajan · 2 months ago
          Hi, Also I Wanted code for "Filter by Date".
          I am working on project, on that project I wanted to filter the data by the date, actually we have filter/hide the and last 05 days to current date data and we have highlight all other data.
          Please help me to complete this project.
          Your help is very great-full for me.
  • To post as a guest, your comment is unpublished.
    Anirudh · 9 months ago
    This is great. It is working as expected. The only issue is that the format of the table is not maintained in the mail. Can you let me know how do we preserve the format of the table in the mail
  • To post as a guest, your comment is unpublished.
    Michael Ferguson · 10 months ago
    This code is great, but I need to execute with a command button rather than pressing F5 in code view. I'd like my employees to be able to fill out some info, then hit the button and have it copy the range of cells they completed and paste into email. I can get code working for the email button and separately for the copy/paste of the range of cells, but can't seem to combine both functions. Please help!!! Thanks!
    • To post as a guest, your comment is unpublished.
      crystal · 10 months ago
      Hi Michael,
      You just need to create a button (such as a Button (Form Control)) in your worksheet, then assign the macro to the button.