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

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

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

• как можно выгрузить только одну колонку с ListView?
• Гимн Программистов
• Рассылка. Выпуск 67.
• Игра-головоломка для любителей головоломки «Докер», что была на КУВТ «Корвет» ПК8020/8010
• Оператор case в delphi
• Как проверить вводимое значение.
• Как узнать возвращается ли чему либо результат из функции?
• Модуль архивации – создание и использование Delphi
• Восстановление документа Word Starter, Windows7
• Закрыть вкладки TabControl