Hi
I have a large spreadsheet (around 500 rows) with various contacts and email addresses on it. I want to be able to send all of these contacts the same email but make it look like i am emailing them individually (in other words not have it look like a mass mail). Is there a quick way I can select all the email addresses from excel and get the message sent??
Thank you very much for taking the time to read this and thanks in advance if you're able to help!
Regards,
Dav
:guitar:
Assuming you're using Outlook (not OL Express / Lotus Notes)
You can use something like this (tailor to meet your own requirements)
Assuming Sheet holding names etc is called Sheets("DATA") and first row containing an address is row 2 and is in column 1 (A)
Sub Mail_It()
Sheets("DATA").Select
Dim rw as integer
rw = 2
Set aOutlook = GetObject(, "Outlook.Application")
Do Until Cells(rw,1) = ""
Set aEmail = aOutlook.CreateItem(0)
'set Importance
aEmail.Importance = 2
'Set Subject
aEmail.Subject = "Your Subject Title"
'Set Body for mail
aEmail.Body = Cells(rw, 1) & "," & vbLf & vbLf & "This is a Private Message"
'Set attachment if required
'aEmail.ATTACHMENTS.Add ActiveWorkbook.FullName
'Set Recipient
aEmail.Recipients.Add Cells(rw, 1)
'Send MailaEmail.Send
rw = rw + 1
Loop
End SubDon’t have an account yet? Register yourself now and be a part of our community!