Я разработал код для генерации электронных писем о перспективах на основе статистических данных. Застрял в проблеме, где сохранение изображения требуется на ПК, поскольку это необходимо для замены изображения в теле внешнего вида HTML для завершения отчета.
часть перспективы достигается через
Импорт EAGetMail
Импорт EASendMail
Импортирует Microsoft.Office.Interop.Outlook
Попробовал упомянуть изображение по-разному, попробовал и входной поток. Ничего из этого не работает, пока
Dim attach = OutlookMessage.Attachments.Add свойство принимает только путь, а не изображение.
Dim captcha2 As Bitmap
If System.IO.File.Exists("C:\output\Sa7e839.jpg") Then
System.IO.File.Delete("C:\output\Sa7e839.jpg")
End If
captcha2.Save("C:\output\Sa7e839.jpg")
Dim attach = OutlookMessage.Attachments.Add("C:\output\Sa7e839.jpg") ' temp saved file. deletes on rerun of app
attach.PropertyAccessor.SetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F", "backlog") ' setting property
oMail.HtmlBody = oMail.HtmlBody.Replace("cid:image003.png@01D2B201.94F4FA80", "cid:backlog") ' replacing HTML
Ожидаемый результат: изображение не нужно сохранять, а затем прикреплять в качестве пути, по которому изображение должно быть перемещено непосредственно из кода в почтовое сообщение Outlook.