Используя Excel, мне нужно создать макрос, который по сути отправляет периодические электронные письма конкретным людям с информацией только для их просмотра.
Я уже сделал это с Outlook, но теперь мне нужно настроить его так, чтобыработать с клиентом eM, не знаю, как это сделать.
Это часть кода, которую я использую для запуска Outlook, создания нового электронного письма с подписью и добавления соответствующей информации в тело:
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Display
End With
signature = OutMail.htmlbody
On Error Resume Next
With OutMail
.To = Cells(i + 3, 1).Range("A1").Value
.CC = ""
.BCC = ""
.Subject = ActiveSheet.Name
.htmlbody = RangetoHTML(rng1) & _
RangetoHTML(rng2) & _
RangetoHTML(rng3) & signature
.Send
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Кто-нибудь знает, как это сделать в eM Client?