И так имеем Outlook office 2003
Задача переслать некоторое входящие сообщение (ну или какое-то другое).
- Код: Выделить всё
Sub sendmail()
Dim message As MailItem
Dim mail As MailItem
'Ну конечно здесь будут всякие умные проверки и т.д. не о том разговор
Set message = Application.Explorers.item(1).Selection.item(1)
Set mail = Application.CreateItem(olMailItem)
mail.Recipients.Add ("my@derevnya.ru")
mail.Subject = message.Subject
mail.BodyFormat = olFormatHTML
mail.HTMLBody = message.HTMLBody
mail.Send
End Sub
Проблема в том что в теле исходного письма имеется картинка, а в отправленном получается только рамка (дырка от бублика), следовательно начинаем изучать message и видим что:
message.Attachments.item1.filename -> FileName : "image001.jpg" : String : Module1.sendmail
оказывается мы имеем вложенную картинку?!
но вопрос как присобачить (извините за выражение) ее к новому письму.
mail.Attachments.add () - это оно понятно, но надеюсь, Вы мне не предложите сохранить файл на диск
а потом его загрузить, типа:
- Код: Выделить всё
Dim path As String
path = "C:\" + message.Attachments.item(1).FileName
message.Attachments.item(1).SaveAsFile (path)
mail.Attachments.Add (path)
Потому что результат получится несколько другой. (((((((
Спасибо всем кто ответит, ну или, хотя бы посочувствует.
