Pictures in Emails sent by VBA don't appear on android and iphone mail

[islamswidan]

Hello friends,
I am having a problem that pictures my generated mails by VBA appear totally normal on outlook but on mobile mail clients (android and iphone) all pictures are like boxes with "x" on them however they are found in the attachments.
On the other hand, when I re-send this same mail again from outlook manually, all pictures appear on mobile.

Does any one have a solution of this please?

Thanks,
Islam Swidan

 

[Norie]

How are you generating the emails?

 

[islamswidan]

Hello Norie,
Below the code I am using from which the picture appears normally on outlook while not on mobile mail clients.

Public Sub MailBuilder()
 
    Windows("Anritsu_Diamond_Daily_Report.xlsm").Activate
    Dim OutApp As Object
    Dim OutMail As Object
    Dim MyMessageSubject As String
    Dim Day1 As String
    Dim Month1 As String
    Dim year1 As String
    Dim Fname3 As String
 
    Fname3 = Environ$("temp") & "\UnHappyCustomers.gif"
    ActiveWorkbook.Worksheets("UnhappyCustomers").ChartObjects("UnHappyCustomers").Activate
    ActiveWorkbook.Worksheets("UnhappyCustomers").ChartObjects("UnHappyCustomers").Chart.Export _
            Filename:=Fname3, FilterName:="GIF"
    MyMessageSubject = Date
    Day1 = Day(MyMessageSubject)
    Month1 = Month(MyMessageSubject)
    year1 = Year(MyMessageSubject)
 
    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 = "[EMAIL="Islam.Swidan@Etisalat.com"]Islam.Swidan@Etisalat.com[/EMAIL]"
        .CC = ""
        .BCC = ""
        .Attachments.Add Fname3
        .Subject = "Diamond Customers Experience - Anritsu | " + Day1 + "-" + Month1 + "-" + year1
        .HTMLBody = "<H1 align=""center""><img src='UnHappyCustomers.gif'/></H1>"
        .SentOnBehalfOfName = "[EMAIL="TechnicalCustomerExperience.EG@etisalat.com"]TechnicalCustomerExperience.EG@etisalat.com[/EMAIL]"
        .Send   'or use .Display
    End With
    On Error GoTo 0
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[Norie]

The board has tried to render the HTML in your code.

Try posting that part again but within HTML tags.

 

[islamswidan]

This is the missing part:

.HTMLBody = "img src='UnHappyCustomers.gif'/"

Just put < and > before and after the above line

Is that clear ?

 

[Norie]

Try this for the HTMLBody.

<IMG src=cid:'UnHappyCustomers.gif'>

 

[islamswidan]

Thanks Norie for your reply, unfortunately, when I tried this the picture disappeared from both outlook and on mobile
Any other advice?