Include a range of cells in the body of an email

[alang84]

Sub OF()

Application.ScreenUpdating = False

Dim MyOutlook As Object
Set MyOutlook = CreateObject("Outlook.Application")
Dim MyMail As Object
Set MyMail = MyOutlook.CreateItem(olMailItem)

MyMail.To = email
MyMail.CC =
MyMail.Subject = Range("F14").Value
MyMail.Body = "Hi Team," _
& vbNewLine & vbNewLine & Range("F15").Value _
& vbNewLine & vbNewLine & Range("F16").Value _
& vbNewLine & vbNewLine & Range("F17").Value _
& vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & Range("R2").Value _
& vbNewLine & Range("R3").Value _
& vbNewLine & Range("R4").Value _
& vbNewLine & Range("R5").Value _

MyMail.Display

Application.ScreenUpdating = True

End Sub


I have this code that works well. What I would like to do is include data in cells A5:A10 in the body of the email. Does anyone have any ideas? Also, is it possible to copy as a picture so that I can retain the formatting?

Thanks,

Aaron

 

[davesexcel]

Copy range and paste into outlook

Sub CopyRngToOutlook()
    Dim doc As Object, rng As Range
    Set rng = Sheets("Sheet1").Range("B1:G13")
    With CreateObject("Outlook.Application").CreateItem(0)
        .Display
        Set doc = .GetInspector.WordEditor
        rng.Copy
        doc.Range(0, 0).Paste
        .To = "someone@somewhere.com"
        .Subject = "Send Email Body"
    End With
End Sub

see the sample workbook.

Copy range and paste into outlook

 

[alang84]

Copy range and paste into outlook

Sub CopyRngToOutlook()
    Dim doc As Object, rng As Range
    Set rng = Sheets("Sheet1").Range("B1:G13")
    With CreateObject("Outlook.Application").CreateItem(0)
        .Display
        Set doc = .GetInspector.WordEditor
        rng.Copy
        doc.Range(0, 0).Paste
        .To = "someone@somewhere.com"
        .Subject = "Send Email Body"
    End With
End Sub

see the sample workbook.

Copy range and paste into outlook

I appreciate your response. do you know how I can modify my current macro to accomplish this?