Image cannot be displayed in email body using vba

rakee_josh · Jun 23rd 2017

Hi,

Am using vba macro for sending mass emails, where in everything looks good, but image is not loading properly and it should be placed at the end.
Any thoughts on this would be helpful.

Here is my code:

Sub EmbeddedHTMLGraphicDemo()
On Error Resume Next
' Outlook objects
Dim objApp As Outlook.Application
Dim l_Msg As MailItem
Dim colAttach As Outlook.Attachments
Dim l_Attach As Outlook.Attachment
Dim oSession As MAPI.Session
' CDO objects
Dim oMsg As MAPI.Message
Dim oAttachs As MAPI.Attachments
Dim oAttach As MAPI.Attachment
Dim colFields As MAPI.Fields
Dim oField As MAPI.Field
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim MyRange As Range
Dim i As Long
For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Dim strEntryID As String
' create new Outlook MailItem
Set objApp = CreateObject("Outlook.Application")
Set l_Msg = objApp.CreateItem(olMailItem)
' add graphic as attachment to Outlook message
' change path to graphic as needed
Set colAttach = l_Msg.Attachments
Set l_Attach = colAttach.Add("C:\Users\U700029\Desktop\mypic.jpg")
Set l_Msg = Nothing
' *** POSITION CRITICAL *** you must dereference the
' attachment objects before changing their properties
' via CDO
Set colAttach = Nothing
Set l_Attach = Nothing

' initialize CDO session
On Error Resume Next
Set oSession = CreateObject("MAPI.Session")
oSession.Logon "", "", False, False

' get the message created earlier
Set oMsg = oSession.GetMessage(strEntryID)
' set properties of the attached graphic that make
' it embedded and give it an ID for use in an <IMG> tag
Set oAttachs = oMsg.Attachments
Set oAttach = oAttachs.Item(1)
Set colFields = oAttach.Fields
Set oField = colFields.Add(CdoPR_ATTACH_MIME_TAG, "image/jpeg")
Set oField = colFields.Add(&H3712001E, "myident")
oMsg.Fields.Add "{0820060000000000C000000000000046}0x8514", 11, True
oMsg.Update

' get the Outlook MailItem again
Set l_Msg = objApp.GetNamespace("MAPI").GetItemFromID(strEntryID)
' add HTML content -- the <IMG> tag
l_Msg.HTMLBody = "<IMG align=baseline border=0 hspace=0 src=cid:myident>"
l_Msg.Display
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set Rng = Nothing
With OutMail
.SentOnBehalfOfName = "[email protected]"
.To = Cells(i, 1).Value
.CC = Cells(i, 2).Value
.Subject = Cells(i, 3).Value
.Attachments.Add Cells(i, 10).Value
.Attachments.Add Cells(i, 11).Value
.HTMLBody = .HTMLBody & Cells(i, 4).Value & "," & _
" " & Cells(i, 5).Value & _
" " & Cells(i, 6).Value & _
" " & Cells(i, 7).Value & _
" " & Cells(i, 8).Value & _
" " & Cells(i, 9).Value & _
" " & "Regards " & _
"************************************** " & _
"<A HREF=""[email protected]"">ghi</A>" & _
" " & "Business" & "" & _
" <A HREF=""https://google.com/support/portal"">Google Portal</A>" & " - " & "Login to review." & _
"<img src='cid:Mypic.jpg'" & "width='500' height='200'> "
.Display
With OutMail
.HTMLBody = .HTMLBody & l_Attach
End With
End With
Next
Set OutMail = Nothing
Set OutApp = Nothing

' clean up objects
Set oField = Nothing
Set colFields = Nothing
Set oMsg = Nothing
oSession.Logoff
Set oSession = Nothing
Set objApp = Nothing
Set l_Msg = Nothing

End Sub

rakee_josh · Jul 3rd 2017

Re: Image cannot be displayed in email body using vba

Any thoughts on this would be great help

Logit · Jul 3rd 2017

Re: Image cannot be displayed in email body using vba

.
Here's an example you can work from :

Code

Sub EmailWithOutlook()
    Dim oApp As Object
    Dim oMail As Object
    Dim WB As Workbook
    Dim FileName As String
    Dim wSht As Worksheet
    Dim shtName As String
    Dim ThisFile As String
    Dim oByValue
    
    ThisFile = "C:\Users\My\Desktop\gun_maintenance.pdf"
    Application.ScreenUpdating = False




    'Create and show the Outlook mail item
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    
    With oMail
        
        'I need this to pull the "to" from B1
        .To = Sheets("Sheet1").Range("B1").Value                          '<--- Settings Sheet name here is Sheet1. Change as needed
        
        'I need this to pull the "Subject" from Settings:A2
        .Subject = Sheets("Sheet1").Range("B2").Value                       '<--- Settings Sheet name here is Sheet1. Change as needed
        
        'I need this to pull the "body" from Settings:B3
        .Body = Sheets("Sheet1").Range("B3").Value                          '<--- Settings Sheet name here is Sheet1. Change as needed
        
        .Attachments.Add ThisFile
        'add the image in hidden manner, position at 0 will make it hidden
        .Attachments.Add "C:\Users\My\Desktop\pics\Bear-stuffs.jpg", oByValue, 0
    
        'Now add it to the Html body using image name
        'change the src property to 'cid:your image filename'
        'it will be changed to the correct cid when its sent.
        .HTMLBody = .HTMLBody & "<br><B>Embedded Image:</B><br>" _
                    & "<img src='cid:Bear-stuffs.jpg'" & "width='375' height='486'><br>" _
                    & "<br>Best Regards, <br>Your name here</font></span>"
        .Display
    End With




    'Restore screen updating and release Outlook
    Application.ScreenUpdating = True
    Set oMail = Nothing
    Set oApp = Nothing
End Sub

Display More

rakee_josh · Jul 12th 2017

Re: Image cannot be displayed in email body using vba

Sorry to reply late, Thank you so much, its working now.
one more help - as per my above code:
.HTMLBody = .HTMLBody & Cells(i, 4).Value & "," & _
" " & Cells(i, 5).Value & _
" " & Cells(i, 6).Value & _
" " & Cells(i, 7).Value & _
" " & Cells(i, 8).Value & _
" " & Cells(i, 9).Value & _
" " & "Regards " & _

if cells(i, 9).value is blank, it should jump to next line regards.
am trying like this but its not working -

"If cells(i, 9).value = "" then
go to next
End if"

Pls help

Logit · Jul 12th 2017

Re: Image cannot be displayed in email body using vba

.
Try something like this :

Code

If cells(i,9).Value = "" Then




	.HTMLBody = .HTMLBody & Cells(i, 10).Value & "," & _




	- more code here -




Else	.HTMLBody = .HTMLBody & Cells(i, 9).Value & "," & _




	- more code here -




End If

Display More

Not certain the above is absolute ... may need adjusting.

rakee_josh · Jul 12th 2017

Re: Image cannot be displayed in email body using vba

Hmm, good one but unable to run this code

rakee_josh · Jul 24th 2017

Re: Image cannot be displayed in email body using vba

Any update on the request, please.

Image cannot be displayed in email body using vba

Participate now!

Share