Macro to Paste Picture in email body from Clipboard

[K]

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("A120").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 = "(e-mail address removed)"
'.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

 

[Ron de Bruin]

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

 

[K]

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

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm















- Show quoted text -

Hi Ron, Thanks for replying. Please note i dont want picture in
email body but i want to paste a picture in email body. Please advise
me that what kind of changes i can do in you macro to achive this.
There is no good sultion out there to get code to paste picture in
email body. its easy to put picture from a path into email body but
how can i paste something on clipboard to email body by excel macro.
Please help

 

[Ron de Bruin]

Hi K

I have no example for this for you on this moment.
Sorry I have no time on this moment to create/test a example for you


--

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

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

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm















- Show quoted text -

Hi Ron, Thanks for replying. Please note i dont want picture in
email body but i want to paste a picture in email body. Please advise
me that what kind of changes i can do in you macro to achive this.
There is no good sultion out there to get code to paste picture in
email body. its easy to put picture from a path into email body but
how can i paste something on clipboard to email body by excel macro.
Please help

 

[Patrick Molloy]

paste doesn't work. with the picture, save it to your local drive, then
link it to the mail as suggested in Ron's reply