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 = "
..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,


--
Fable


------------------------------------------------------------------------
Fable's Profile: http://www.excelforum.com/member.php...fo&userid=2185
View this thread: http://www.excelforum.com/showthread...hreadid=376550

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

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Fable" wrote in message
...

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 = "
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,


--
Fable


------------------------------------------------------------------------
Fable's Profile: http://www.excelforum.com/member.php...fo&userid=2185
View this thread: http://www.excelforum.com/showthread...hreadid=376550

To do this have a look here

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

--
Ivan F Moal

-----------------------------------------------------------------------
Ivan F Moala's Profile: http://www.excelforum.com/member.php...nfo&userid=195
View this thread: http://www.excelforum.com/showthread.php?threadid=37655