VBA: отправка писем с содержимым из HMTL-файла

Posted by obzor under VBA

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

EducatedFool

Sub CreateAnnounce()
   With CreateObject("Outlook.Application")
 .Session.Logon
 With .CreateItem(0)
 .To = "OLOLO@OLOLO.ru"
 .CC = ""
 .Subject = "ПРИВЕТ"
 .BodyFormat = 2
 HTML$ = ReadTXTfile("полный путь к файлу HTML")
 .htmlBody = HTML$
 .Display
 End With
 End With
End Sub  

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

тема на форуме

Случайные статьи

• Использование GDI+ в делфи 7. Необходимо через GDI+ в делфи 7 получить из файла формата jpg файл формата bmp
• Компилятор csc не находит путь к файлу
• Можно ли рисовать за пределами формы?
• Рассылка. Выпуск 146
• Новая дополнительная группа пользователей — Спонсоры
• Можно вставить в HTML элемент из XML?
• Delphi. Директивы компилятора HPPEMIT,NODEFINE,EXTERNALSYM
• Мат в комментариях исходников :)
• wprintf как напечатать кириллицу
• Как вывести изображение в image на печать?