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 = "<img src='cid:Ответ.HTML'"
    myItem.Display
    myItem.Send

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