If you want a picture in your mail try this
http://www.rondebruin.nl/mail/folder3/mailenvelope.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"K" wrote in message ...
Hi all, I want macro which can paste picture in email body from
clipboard. I got macro below which works ok but I am not achiving
what I want from it. Please can any friend can help

Sub SendEmail()
Range("A1:D20").CopyPicture xlScreen, xlPicture

Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail
.To = "
'.CC = ""
'.BCC = ""
.Subject = "Testing Email"


.HTMLBody = .Paste 'Something needed here
.Display

End With
On Error GoTo 0

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub