Картинка в теле письма Outlook 2013 не отображается в других почтах - VBA

Формулировка задачи:

Добрый день! Мучаюсь с вопросом как вставить картинку в тело письма, отправляемого из Outlook 2013, чтобы эта картинка была видна в других почтовиках и через онлайн-интерфейс, например, на яндекс.почте. Ниже код, который я использую. Он прикрепляет картинки к письму как вложение, но на месте картинок в теле письма при получении отображаются квадраты с рамкой. Пробовал вручную вставить картинки через Вставка-картинка и отправлял себе на яндекс. Все видно отлично. А как программно сделать не знаю. Могли бы помочь? Могу отблагодарить.

                    Листинг программы
                
 
                            
                        
Sub send_report_mail()
 
Application.ScreenUpdating = False
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim mail_comments As String
    Dim TempFilePath As String
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
 
    With OutMail
        .To = "removed@mail.ru"
        .CC = ""
        .BCC = ""
        .Subject = "Ежедневный отчет план-факт"
        
        .Attachments.Add "C:\main_chart.jpg"
        .Attachments.Add "C:\trend_chart.jpg"
        .Attachments.Add thefilename
        
        .HTMLBody = "<span LANG=EN>" _
& "<p class=style2><span LANG=EN><font FACE=Calibri SIZE=4>" _
& "Уважаемые коллеги! <br><br>" _
& "<img src='cid:main_chart.jpg' & width='700'><br><br>" _
& "<img src='cid:trend_chart.jpg' & width='700'><br><br>"
 
        '.Display
        .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
    
Debug.Print "Action performed on " & Date & " at " & Time
 
Application.ScreenUpdating = True
 
End Sub

Решение задачи: «Картинка в теле письма Outlook 2013 не отображается в других почтах»

textual
                            Листинг программы 
                        
 
                        
                          
                    
.Attachments.Add "...\main_chart.jpg"
        .Attachments.Add "...\trend_chart.jpg"
        .Attachments.Add thefilename
        
        .htmlbody = "<span LANG=EN>" _
& "<p class=style2><span LANG=EN><font FACE=Calibri SIZE=4>" _
& "<img src='cid:main_chart.jpg' & height='600' width='900'><br><br>" _
& "<img src='cid:trend_chart.jpg' & height='600' width='900'>"