Hi
Since you are using Outlook, please try the following:
Code:
Sub Send_Email()
Dim c As Range
Dim OutLookApp As Object
Dim OutLookMailItem As Object
For Each c In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Cells
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
With OutLookMailItem
.To = c.Value
.CC = "Your CC here"
.Subject = "Your Subject here"
.HTMLBody = "Your Body content here"
.Attachments.Add c.Offset(, 1).Value
.Display
' .Send
End With
Next c
End Sub
Sheet should look like (add as many destination emails / attachments as necessary):
View attachment 41206
With this sheet active, run the macro...
If you don't want the email preview window to pop up, simply comment block the ".Display" and uncomment block the ".Send"
Hope this helps