как вставить .html файл как картинку в теле письма vba

Воскресенье, 23 Июня 2019 г. 13:33 + в цитатник

в access выгружается отчет в формате .html. нужно отправить его в сообщении через outlook "вложением как текст", чтобы он отображался в теле письма как картинки. по коду, он вставляет файл, но не распознает содержание.
перерыла много кода, примеры в основном на типы jpg.
спасибо

Private Sub Кнопка3_Click()
 DoCmd.OpenReport "Ответ", acViewPreview
  Dim Path As String
  Path = "C:\Users\ыыы\Pictures\Сообщения\Ответ.HTML"
  DoCmd.OutputTo acOutputReport, "Ответ", acFormatHTML, Path, False 'выгрузка файла в формате html
  
Dim myOlApp As Object
Dim myItem As MailItem
Dim htmlBody As String
'проверка на открытие outlook
 On Error Resume Next
     Set myOlApp = GetObject(, "Outlook.Application")
 If Err <> 0 Then
     Err.Clear
   On Error GoTo 0
     Set myOlApp = CreateObject("Outlook.Application")
 End If

 Set myOlApp = CreateObject("Outlook.Application") ' Создаем письмо
   
Set myItem = myOlApp.CreateItem(0)  'Новое письмо в формате HTML
   myItem.To = "почта@outlook.com" ' адрес почты
    myItem.Subject = "Ответ на заявку"
    myItem.BodyFormat = 2 'olFormatHTML
    TempFilePath = "C:\Users\ыыы\Pictures\Сообщения"
        myItem.Attachments.Add TempFilePath & "Ответ.HTML", olByValue, 0
        myItem.htmlBody = "span>
    myItem.Display
    myItem.Send

Set myItem = Nothing
'Kill Path 'удаляем файл
End Sub