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

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

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

• Пример парсинга текста
• Рассылка. Выпуск 222
• Поочередная смена изображений в TImage
• Где Delphi хранит настройки пользователя?
• Как нарисовать шахматную доску?
• Создание и запись в файл
• Батники для компиляции любой версией Delphi
• Как убрать Access Violation при Destroy компонента?
• Переполнение при умножении
• exp