Я использую Excel для отправки электронных писем на основе часто используемых файлов, используя следующий код.
Dim olApp As Outlook.Application
Dim myEmail As Outlook.Mailitem
Set olApp = CreateObject("Outlook.Application")
Set myEmail = olApp.CreateItemFromTemplate(".\file.oft")
myEmail,To = "clientemail@email.com"
myEmail.Send
Когда я использую файл OFT непосредственно в Outlook, все отправляется нормально, включая изображения в шаблоне.
При использовании макроса Excel сообщение электронной почты отправляется нормально, но изображения удаляются из сообщения электронной почты.
Не уверен, что я делаю неправильно, чтобы заставить его отправлять, как есть, без удаления изображений.