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

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

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

• Деление на ноль, как обработать (Excel)
• Энкодер датчика pdf на плис. Часть 2
• Как узнать частоту звука
• Задача Бюффона о бросании иглы
• Супер танчики Blink Delphi
• Исходник программы «азбука Морзе»
• Рассылка. Выпуск 71.
• Снятие выделения с пункта
• Как вы храните свои пароли?
• Определение високосного и не вискосного года в Delphi