Я пытаюсь автоматизировать электронную почту с изображением. Я использую простой код ниже, однако я заметил, что изображение все еще отображается как вложение, если я не использую .Display, а затем отправляю вручную. Если я использую .Send, электронное письмо получает со значком вложения, а мобильные приложения по-прежнему отображают элемент в виде вложения.
Я пытался использовать .Display и .Send, которые работают, за исключением того, что вы все еще можете быстро увидеть всплывающее окно и отправить электронное письмо. Использование Application.ScreenUpdating = False не поможет в этом.
Как мне отредактировать этот код, чтобы при получении письма не было значка вложения, а изображение показывалось только в теле письма?
Sub test()
Dim OlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Set OlApp = CreateObject("Outlook.Application")
Set myItem = OlApp.CreateItem(olMailItem)
'Actual code includes proper filepath, filename and email address
myItem.Attachments.Add "filepath&filename.jpg", olByValue, 0
myItem.To = "test email"
myItem.Subject = "Test"
myItem.HTMLBody = "This is a test" & "<img src='filename.jpg' width='176' height='36'>"
myItem.Send
End Sub