Добрый день, ув. Форумчане!
Требуется разослать шаблон письма по списку адресов, которые расположены на листе Excel.
Шаблон расположен в файле *htm. Для рассылки использую простой макрос:
Требуется разослать шаблон письма по списку адресов, которые расположены на листе Excel.
Шаблон расположен в файле *htm. Для рассылки использую простой макрос:
Код |
---|
Sub SendMail() Dim objOL As Outlook.Application Dim objMail As MailItem Set objOL = Outlook.Application Set objMail = objOL.CreateItem(olMailItem) With objMail .To = "ddd@penobet.ru" '"здесь указывается адрес получателя письма" .CC = "" '"здесь указывается адрес получателя копии" .Body = T '"Текст письма" 'указывается текст письма .Subject = "Тема письма" 'указывается тема письма .Attachments.Add "d:\Шаблон.htm" 'указывается полный путь к файлу .Display End With Set objMail = Nothing Set objOL = Nothing End Sub |
Но при таком варианте шаблон прикрепляется к письму как вложенный файл.
Вопрос: как поместить шаблон непосредственно в тело письма Outlook?
Буду благодарен за любую помощь или совет.