#1
|
|||
|
|||
send email to excel list of addresses
Hi all,
Looking for a simple ditty to send an email to a list of email address in an excel sheet I have. Nothing fancy only need it once, even just to create the list of email's in outlook would get me half way to doing it myself. The list is in cells D14 to D73. any help is appreciated. |
#2
|
||||
|
||||
You'll probably find what you want at http://www.rondebruin.nl/win/s1/outlook/mail.htm
Don't hesitate to come back if you have difficulty applying the code
__________________
Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post |
#3
|
|||
|
|||
Thanks for the link, lots of usfull stuff there,
The code found below is close to what i need, but in stead of sending different emails to each person, i need to send the same one to all in the list. I was hoping i could do that sending the e-mail to myself and using .BCC to send it to all in the list. What I'm no good at is looping through the cells with addresses and building a .BCC list. I.E. mail_list = mail_list & ";" & abc1@abc . com next 'goto next cell and add that, and so on until the end of the cell range. Code:
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants) If cell.Value Like "?*@?*.?*" And _ LCase(Cells(cell.Row, "C").Value) = "yes" Then Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = cell.Value .Subject = "Reminder" .Body = "Dear " & Cells(cell.Row, "A").Value _ & vbNewLine & vbNewLine & _ "Please contact us to discuss bringing " & _ "your account up to date" 'You can add files also like this '.Attachments.Add ("C:\test.txt") .Send 'Or use Display End With On Error GoTo 0 Set OutMail = Nothing End If Next cell |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
2 Email Addresses/ 1 Contact List | Mister Mobius | Outlook | 0 | 06-22-2015 07:56 AM |
Exporting email addresses not in contact list | jjb1989 | Outlook | 1 | 05-15-2015 06:12 AM |
Too many email addresses equals no send | seaboyd | Outlook | 0 | 02-23-2015 11:00 AM |
Dropdown list of email addresses | J Partridge | Outlook | 1 | 01-13-2011 06:37 AM |
Importing Contact List WITH email addresses | Noel Cookman | Outlook | 1 | 10-09-2010 03:13 PM |