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