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

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

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

• Присвоить текст в edit в определенный день
• Сохранение столбца в секции ini файла
• Сменить шрифт в консоли
• Рассылка. Выпуск 247
• Дневник разработчика игр
• Работать, чтобы жить, или жить, чтобы работать?
• Регистрация COM-библиотеки
• Функциональное программирование в Ява
• Перемещение текста по форме
• Авторизация на mail.ru с помощью indy