Hi yudlugar,
First of all thank you very much for the very quick response.
I have been trying the different ways and the one using a look up would suit my needs the best, however, I am having a little trouble with it.
When I run it I get "Unable to Get the Vlookup property of the WorksheetFunction class" at the " Mail_Address = WorksheetFunction.VLookup(Range("G" & count), Range("Email"), 2)" and it can't continue on, I have tried changing the vlook up range, but still I get the error.
Any ideas on what I am doing wrong? The code is below
Thanks
Rob
Sub macro_1()
Dim outApp, outMail, count, Mail_Address
Set outApp = CreateObject("Outlook.Application")
count = 1
Do Until Range("G" & count) = ""
Mail_Address = WorksheetFunction.VLookup(Range("G" & count), Range("Email"), 2)
Set outMail = outApp.createitem(0)
With outMail
.to = Mail_Address
.Subject = "Report"
.body = Range("A" & "F")
.display
End With
Loop
End Sub
Bookmarks