To | Subject | Content |
abc@email.com; 123@email.com | ABC - 1 | Content 1 |
abc@email.com; 123@email.com | ABC - 2 | Content 2 |
<tbody>
</tbody>
Hi, i found this code but it only work for email but not suject & content
Code:
Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set Mail_Object = CreateObject("Outlook.Application")
For i = 2 To lr
With Mail_Object.CreateItem(o)
.Subject = Range("B2").Value
.To = Range("A" & i).Value
.Body = Range("C2").Value
'.Send
.display 'disable display and enable send to send automatically
End With
Next i
MsgBox "E-mail successfully sent", 64
Application.DisplayAlerts = False
Set Mail_Object = Nothing
End Sub
Last edited: