Не вставляется изображение в тело письма - Microsoft Office Excel

Goerg · 23.08.2012, 09:51

Уважаемые форумчане, подскажите пожалуйста, как корректно прописать в .HTMLbody источник (src='cid:Fname') откуда брать изображение.
Изображение создается, но не вставляется в тело письма.

Часть кода:

Dim Fname As String
........
Fname = "C:\WINDOWS\Temp\" & Format(Now, "dd-mm-yy h-mm") & ".gif"
ActiveWorkbook.Worksheets("Sheet1") .ChartObjects("Chart 1").Chart.Export _
Filename:=Fname, FilterName:="GIF"
........
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "123@123.com"
.Subject = "Report"

.HTMLBody = "<body><font face=Arial color=#000080 size=2></font>" & _
"<img width=580 height=300 alt='' hspace=0 src='cid:Fname' align=baseline order=0> </body>"

EducatedFool · 23.08.2012, 15:24

' Если файл доступен в интернете

Код:

    picLink$ = "http://excelvba.ru/sites/default/files/images/TimeLine.jpg"
    
    .HTMLBody = "<body><font face=Arial color=#000080 size=2></font>" & _
                "<img width=580 height=300 alt='' hspace=0 src='" & picLink$ & "' align=baseline order=0>&nbsp;</body>"

' или прикрепляете файл к письму, и указываете относительный путь
(не проверял, но как-то так должно работать)

Код:

    picfile$ = "/TimeLine.jpg"
    
    .HTMLBody = "<body><font face=Arial color=#000080 size=2></font>" & _
                "<img width=580 height=300 alt='' hspace=0 src='" & picfile$ & "' align=baseline order=0>&nbsp;</body>"

23.08.2012, 09:51	#1
Goerg Новичок Джуниор Регистрация: 23.08.2012 Сообщений: 1	Не вставляется изображение в тело письма Уважаемые форумчане, подскажите пожалуйста, как корректно прописать в .HTMLbody источник (src='cid:Fname') откуда брать изображение. Изображение создается, но не вставляется в тело письма. Часть кода: Dim Fname As String ........ Fname = "C:\WINDOWS\Temp\" & Format(Now, "dd-mm-yy h-mm") & ".gif" ActiveWorkbook.Worksheets("Sheet1") .ChartObjects("Chart 1").Chart.Export _ Filename:=Fname, FilterName:="GIF" ........ Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "123@123.com" .Subject = "Report" .HTMLBody = "<body><font face=Arial color=#000080 size=2></font>" & _ "<img width=580 height=300 alt='' hspace=0 src='cid:Fname' align=baseline order=0> </body>"

23.08.2012, 15:24	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	' Если файл доступен в интернете Код: `picLink$ = "http://excelvba.ru/sites/default/files/images/TimeLine.jpg" .HTMLBody = "<body><font face=Arial color=#000080 size=2></font>" & _ "<img width=580 height=300 alt='' hspace=0 src='" & picLink$ & "' align=baseline order=0> </body>"` ' или прикрепляете файл к письму, и указываете относительный путь (не проверял, но как-то так должно работать) Код: `picfile$ = "/TimeLine.jpg" .HTMLBody = "<body><font face=Arial color=#000080 size=2></font>" & _ "<img width=580 height=300 alt='' hspace=0 src='" & picfile$ & "' align=baseline order=0> </body>"` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 23.08.2012 в 15:27.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание письма: unicode-тело будет отображено вопросительными знаками.	malor	Работа с сетью в Delphi	3	24.11.2011 13:52
Не вставляется ссылка - т.е. не активна	s3kita	Помощь студентам	1	31.03.2011 13:09