VBA to paste from Clip Board onto an Outlook email.

[OzPanda]

Hi Guys

I need help with the VBA.

Here is what I have so far. THe first few lines copys some rows in excel (some rows are hidden, filtered out in a filtered cells by the way)

I don't know how do I paste this into the body of the email??

I tried searching online but it came back with really complex solutions that I just don't know how to implement.

Thanks in advance for any advice or help!

Sub GenEmail()
    'Copy the Table to Clip Board
    Sheets("Summary").Select
    Range("A4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    'Generate new email
     Dim OutApp As Object

     Dim OutMail As Object

     Set OutApp = CreateObject("Outlook.Application")

     Set OutMail = OutApp.CreateItem(0)

     On Error Resume Next

    

         Signature = OutMail.Body

    

     With OutMail

     .to = "mysummermail@gmail.com"

     .CC = ""

     .BCC = ""

     .Subject = "Summary of Update please action" & Range("SubjectDate").Value

     .Body = "Dear all,"

     '.Attachments.Add ("C:\Test.txt")

     .Display

     ' .Send

     End With

     On Error GoTo 0

     Set OutMail = Nothing

     Set OutApp = Nothing


End Sub