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 = "[email protected]"
.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

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



"Fable" <[email protected]> wrote in message
news:[email protected]...
>
> 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 = "[email protected]"
> 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
>

[Ivan F Moala]

To do this have a look here

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