Copy & Paste image from a folder to an outlook mail

[bluej]

Hi All,

I am new to Macro, please help me out with the below issue:

I need a macro which will copy an image from a folder location and paste it into a mail (outlook).
I dont want the image to be added as an attachment.

Please let me know if you need any more details.

Thanks in advance.

Regards,
BlueJ

 

[Andrew Poulsom]

This may help you:

To add an embedded image to an HTML message in Microsoft Outlook using code

 

[bluej]

Hi Andrew,

I am gettin below error:
User defined type not defined for below:
Outlook.Application

Can you please help me with this?

This may help you:

To add an embedded image to an HTML message in Microsoft Outlook using code

 

[Andrew Poulsom]

You need to set a reference to Microsoft Outlook xx.0 Object Library. Or you can use late binding, which is illustrated here:

Mail the whole workbook

 

[bluej]

Hi Andrew,

I am new to Macro, i am getting many errors, can you please help me with a proper code??

Thanks in Advance.

Regards,
BlueJ

You need to set a reference to Microsoft Outlook xx.0 Object Library. Or you can use late binding, which is illustrated here:

Mail the whole workbook

 

[Andrew Poulsom]

What errors are you getting with what code? The code in the link I posted should work if you have the relevant references set and a valid filename.

 

[Domenic]

Maybe you can modify the following code to meet your needs...

**Note: Replace each instance of [ and ] with < and >, respectively***

[FONT=Courier New][COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit[/COLOR]
[COLOR=darkblue]Sub[/COLOR] EmbedImage()
    [COLOR=darkblue]Dim[/COLOR] objOutlook [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]
    [COLOR=darkblue]Dim[/COLOR] objMailItem [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]
    
    [COLOR=darkblue]Set[/COLOR] objOutlook = CreateObject("Outlook.Application")
    
    [COLOR=darkblue]Set[/COLOR] objMailItem = objOutlook.CreateItem(0)
    
    [COLOR=darkblue]With[/COLOR] objMailItem
        .To = "[EMAIL="johnsmith@gmail.com"]johnsmith@gmail.com[/EMAIL]"
        .Subject = "Misc..."
        .Attachments.Add "c:\users\domenic\desktop\sample.jpg" [COLOR=#008000]'change the folder and filename accordingly[/COLOR]
        .HTMLBody = "[p]This is the first paragraph...[/p]" & _
            "[img src=""cid:sample.jpg""]" & _
            "[p]This is the second paragraph...[/p]" & _
            "[p]Thank you![/p]"
        .Display
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[/FONT]

Note that the above code displays the email, instead of sending it. To send the email, replace...

.Display

with

.Send

 

[bluej]

Hi,

The below code will add it as an attachment. But i need the picture to be pasted in the body of the mail.
Can you please help me out??

Thanks in advance!

Regards,
BlueJ

Maybe you can modify the following code to meet your needs...

**Note: Replace each instance of [ and ] with < and >, respectively***

[FONT=Courier New][COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit[/COLOR]
[COLOR=darkblue]Sub[/COLOR] EmbedImage()
    [COLOR=darkblue]Dim[/COLOR] objOutlook [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]
    [COLOR=darkblue]Dim[/COLOR] objMailItem [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]
    
    [COLOR=darkblue]Set[/COLOR] objOutlook = CreateObject("Outlook.Application")
    
    [COLOR=darkblue]Set[/COLOR] objMailItem = objOutlook.CreateItem(0)
    
    [COLOR=darkblue]With[/COLOR] objMailItem
        .To = "[EMAIL="johnsmith@gmail.com"]johnsmith@gmail.com[/EMAIL]"
        .Subject = "Misc..."
        .Attachments.Add "c:\users\domenic\desktop\sample.jpg" [COLOR=#008000]'change the folder and filename accordingly[/COLOR]
        .HTMLBody = "[p]This is the first paragraph...[/p]" & _
            "[img src=""cid:sample.jpg""]" & _
            "[p]This is the second paragraph...[/p]" & _
            "[p]Thank you![/p]"
        .Display
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[/FONT]

Note that the above code displays the email, instead of sending it. To send the email, replace...

.Display

with

.Send

 

[Domenic]

Hi,

The below code will add it as an attachment. But i need the picture to be pasted in the body of the mail.
Can you please help me out??

Thanks in advance!

Regards,
BlueJ

Actually, the code does indeed embed the picture within the body of the email. However, it does require the picture to be attached to the email as well. Have you tried it?

Don't forget to replace each instance of [ and ] with < and >, respectively.

 

[bluej]

Hi,

I have tried it....it sends the picture(image) as an attachment..it doesn insert the image in the body part of the email.

Any help on these lines wud be greatly appreciated.

Thanks in advance..

Regards,
BlueJ

Actually, the code does indeed embed the picture within the body of the email. However, it does require the picture to be attached to the email as well. Have you tried it?

Don't forget to replace each instance of [ and ] with < and >, respectively.