VBA to Paste Table from Excel into Outlook Message and Create Subject.

[thbutterflycollector]

Hello,

Torachan has very kindly helped me with a VBA to save as a PDF with a file name but I'd also like to copy the contents of a excel worksheet and paste into the body of an outlook message with a subject. I'm not to concerned whether it is a jpeg or not but at the very least I would like to maintain the formatting.

I've created a control button (Send to Email) and the Subject is within W5 on 001.

Can anyone kindly help?

[KOKOSEK]

Very simple:

Private Sub CommandButton2_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim wordEditor As Object

    ActiveSheet.Range("A1:M49").CopyPicture     ' reference into range of cell to paste into email as picture
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "address1@somewhere.com"      ' or reference into cell
        .CC = "address2@somewhere.com"      ' or reference into cell
        .BCC = "address3@somewhere.com"     ' or reference into cell
        .Subject = ActiveSheet.[W5].Value
        .HTMLBody = "<br><br>There is Early notice about something<br>regards<br>Sender"
        .Display   '  or 'Send - then send without new message window in outlook
    End With
    Set wordEditor = OutApp.ActiveInspector.wordEditor
    wordEditor.Application.Selection.Paste
End Sub