VBA: Embedding a Picture in an Outlook Email

[Domenic]

Is it at all possible to embed a picture in an email? I've tried...

.HtmlBody = " < img src=""C:/Users/Domenic/Desktop/Sample.png"" > "

However, while the picture gets inserted in the email, it's not actually embedded. As a result, when the recipient receives the email, the image is not displayed.

 

[Norie]

What did you try for that?

 

[nikhibhai]

Hi Norie

This is the code I tried to use but I am still getting the red cross where this image is supposed to be. I've got Outlook 2010. Any idea why its happening?(I've added spaces before and after "<" & ">" to allow the code to show):

Sub mailTest()
'Add reference to MS Outlook x.x Object Library
'Picture to be added as an attachment and modified src location for each embedded picture.




Dim oApp As Outlook.Application
Dim oEmail As MailItem
Dim colAttach As Outlook.Attachments
Dim oAttach As Outlook.Attachment
    'create new Outlook MailItem
    Set oApp = CreateObject("Outlook.Application")
    Set oEmail = oApp.CreateItem(olMailItem)
    'add graphic as attachment to Outlook message
    'change path to graphic as needed
    Set colAttach = oEmail.Attachments
    Set oAttach = colAttach.Add("D:\TAT\TAT_Summary.jpg")
    oEmail.Close olSave
    'change the src property to 'cid:your picture filename'
    'it will be changed to the correct cid when its sent.
    oEmail.HTMLBody = " < IMG src=cid:'TAT_Summary.jpg' > "
    
    oEmail.Save
    oEmail.Display    'fill in the To, Subject, and Send. Or program it in.
    Set oEmail = Nothing
    Set colAttach = Nothing
    Set oAttach = Nothing
    Set oApp = Nothing
End Sub

 

[Norie]

The name of the picture should not be in quotes.

 

[nikhibhai]

I removed the single quotes and tried it. Now I can see an outline of where the image should be and in it a line, "Description cid:TAT_Summary.jpg"

Also added the following lines

oEmail.To="someAddress@something.com"
oEmail.Subject="Something"
oEmail.Send

I removed the save and display lines. Now when the mail goes, the image isnt even present in the body. Could you explain what's happening and how to resolve it? I am fairly new to VBA.
Thanks

 

[Norie]

Try this for the HTMLBody.

   oEmail.HTMLBody = "<IMG src=cid:TAT_Summary.jpg>"

 

[nikhibhai]

This is my code as of now. Now the image has disappeared from the body altogether on receiving. However the image is present in the body of my sent mail(In sent mail folder). Added a space before and after "<" and ">".

Sub mailTest()
'Add reference to MS Outlook x.x Object Library
'Picture to be added as an attachment and modified src location for each embedded picture.
Dim oApp As Outlook.Application
Dim oEmail As MailItemDim colAttach As Outlook.Attachments
Dim oAttach As Outlook.Attachment   
 
'create new Outlook MailItem    
Set oApp = CreateObject("Outlook.Application")    
Set oEmail = oApp.CreateItem(olMailItem)   

 'add graphic as attachment to Outlook message    'change path to graphic as needed    
Set colAttach = oEmail.Attachments    
Set oAttach = colAttach.Add("D:\TAT\TAT_Summary.jpg")    
oEmail.Close olSave   
 'change the src property to 'cid:your picture filename'    'it will be changed to the correct cid when its sent.   
oEmail.HTMLBody = " < IMG src=cid:TAT_Summary.jpg > " 
oEmail.To="someone@something.com"    
oEmail.Subject="something"    
oEmail.Send    

Set oEmail = Nothing    
Set colAttach = Nothing    
Set oAttach = Nothing    
Set oApp = Nothing
End Sub

 

[Norie]

Is it possible that the picture is being blocked/stripped for some reason?

 

[nikhibhai]

I doubt it. I've tried this on 3 seperate systems.

 

[Norie]

I tried your code, with a different picture obviously, and it worked fine.

Perhaps a network problem?

 

[nikhibhai]

Might be. Will try it out with a few changes. Thanks for your help. Will keep you posted.