У меня есть рабочий макрос для отправки сообщений сотням сотрудников.
Я персонализирую содержимое, используя HTML в Excel.Ячейки содержат сообщения.
Теперь мне нужно отправить электронное письмо с несколькими вложениями.
Вот код без вложений.
Sub SendMail()
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.SentOnBehalfOfName = "HC-Communications@company.com"
.To = Cells(i, 1).Value
.CC = Cells(i, 2).Value
.BCC = Cells(i, 3).Value
.Subject = Cells(i, 4).Value
.BodyFormat = olFormatHTML
.HTMLBody = Cells(i, 5).Value
.Display
.ReadReceiptRequested = True
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
Next
End Sub