VBA : cсылка на HTML - файл - Microsoft Office Excel

Евгений Таб · 13.04.2017, 09:15

Добрый день!

Подскажите пож-ста, пользуюсь для создания/отправки HTML-писем прямо из аутлука вот этим простым и замечательным макросом :

PHP код:


			
Sub CreateAnnounce()

   With CreateObject("Outlook.Application")

 .Session.Logon

 With .CreateItem(0)

 .To = "OLOLO@OLOLO.ru"

 .CC = ""

 .Subject = "ПРИВЕТ"

 .BodyFormat = 2

  .htmlBody = "<html><body><div>" & _

"<h4><span style=""color: rgb(255, 0, 0); font-weight: bold;"">ПРИВЕТ ЗЕМЛЯНЕ<br>" & _

"</span></h4></div>" & _

"<h2>The <span style=""color: rgb(51, 204, 0);"">body </span>of this <span" & _

"style=""color: rgb(51, 102, 255);"">HELLOO</span> HELLOO<span" & _

"style=""color: rgb(255, 0, 0);"">HTML</span>.</h2></body></html>"

   .Display

 End With

 End With

End Sub

Подскажите пож-ста как мне прописать путь к файлу HTML, а не прописывать/переписывать в коде все теги? Просто сослаться на HTML-файл на диске. Заранее спасибо!

Aleksandr H. · 13.04.2017, 09:29

http://ru.wikihow.com/%D1%81%D0%BE%D...%D0%B5-Outlook

Евгений Таб · 13.04.2017, 09:53

Спасибо, но с этим инструментом я знаком. Интересует реализация в макросе Outlook.
Или не возможно прописать путь к HTML файлу?

EducatedFool · 13.04.2017, 09:56

Добавьте под вашим макросом эту функцию

Код:

Function ReadTXTfile(ByVal filename As String) As String
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Function

а в вашем макросе так напишите:
HTML$ = ReadTXTfile("полный путь к файлу HTML")
.htmlBody = HTML$

Евгений Таб · 13.04.2017, 11:57

БОЛЬШОЕ СПАБИБО.

Тему можно закрыть.

13.04.2017, 09:15	#1
Евгений Таб Форумчанин Регистрация: 09.08.2013 Сообщений: 202	VBA : cсылка на HTML - файл Добрый день! Подскажите пож-ста, пользуюсь для создания/отправки HTML-писем прямо из аутлука вот этим простым и замечательным макросом : PHP код: Sub CreateAnnounce() With CreateObject("Outlook.Application") .Session.Logon With .CreateItem(0) .To = "OLOLO@OLOLO.ru" .CC = "" .Subject = "ПРИВЕТ" .BodyFormat = 2 .htmlBody = "<html><body><div>" & _ "<h4><span style=""color: rgb(255, 0, 0); font-weight: bold;"">ПРИВЕТ ЗЕМЛЯНЕ<br>" & _ "</span></h4></div>" & _ "<h2>The <span style=""color: rgb(51, 204, 0);"">body </span>of this <span" & _ "style=""color: rgb(51, 102, 255);"">HELLOO</span> HELLOO<span" & _ "style=""color: rgb(255, 0, 0);"">HTML</span>.</h2></body></html>" .Display End With End With End Sub Подскажите пож-ста как мне прописать путь к файлу HTML, а не прописывать/переписывать в коде все теги? Просто сослаться на HTML-файл на диске. Заранее спасибо!

13.04.2017, 09:29	#2
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	http://ru.wikihow.com/%D1%81%D0%BE%D...%D0%B5-Outlook Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

13.04.2017, 09:56	#4
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Добавьте под вашим макросом эту функцию Код: `Function ReadTXTfile(ByVal filename As String) As String Set fso = CreateObject("scripting.filesystemobject") Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close Set ts = Nothing: Set fso = Nothing End Function` а в вашем макросе так напишите: HTML$ = ReadTXTfile("полный путь к файлу HTML") .htmlBody = HTML$ __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Исправить ошибку при загрузке HTML-страницы / VBA	Shraman	Microsoft Office Excel	6	19.08.2014 02:57
HTML + VBA (php & java)	Fordros	Microsoft Office Excel	5	15.07.2013 12:46
компилирование в HTML-файл	Ципихович Эндрю	Фриланс	41	08.07.2013 21:41
VBA некорректно просматривает HTML код Интернет-страницы	htf	Microsoft Office Excel	1	12.05.2012 03:16
как вставить rtf(HTML) строку с помощью VBA	Snark	Microsoft Office Word	0	09.10.2009 10:19

13.04.2017, 09:53	#3
Евгений Таб Форумчанин Регистрация: 09.08.2013 Сообщений: 202	Спасибо, но с этим инструментом я знаком. Интересует реализация в макросе Outlook. Или не возможно прописать путь к HTML файлу?

13.04.2017, 11:57	#5
Евгений Таб Форумчанин Регистрация: 09.08.2013 Сообщений: 202	БОЛЬШОЕ СПАБИБО. Тему можно закрыть.