Picture in Body . . .

[Fable]

I got this code Rons' Excel page . . . which was very helpful (thanks
Ron); but I would like to send a range from a sheet as a picture in the
body

Sample
Range("A1:AA55").Select
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
' I would nee to paste this range into the body of the message

Is this possible? ( the idea is not to send out as an excel file, excel
is used to create the data and send it off as a picture show user dont
tamper with it)
-----------------------------------------------------------------
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
'Dim Fname As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)


With OutMail
..To = "(e-mail address removed)"
..CC = ""
..BCC = ""
..Subject = "Subject goes here"
..Body = "Your Message goes here"
..Send 'or use .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Thank you in advance,

 

[Ron de Bruin]

See
http://www.rondebruin.nl/mail/folder3/mail4.htm

 

[Ivan F Moala]

To do this have a look here

http://www.xcelfiles.com/EmailImg.htm