All email addresses in the To: field

[rnickels]

Please please please!

It's driving me crazy!

Is it possible to send e-mails to all of your e-mail addresses in one single e-mail?

Right now I am able to open up an individual e-mails for each of my stored e-mailo adresses but it would be so much better (and more user friendly) if I could just have one e-mail with all addresses in the To: field.

Any help would be really appreciated.

Rob

 

[boblarson]

Is this still a problem, or did the other code work for you?

 

[Heffaklump]

I have the same question!

I have the same problem and I can't find any answer here.
I use a query to filter email recipients and want to send the same result of a query as an Excel spreadsheet to each of them. I want to send only one email!
The filtering query is called "Maillist" and the query wich I want to send is called "Sendlist".
I have a form with the fields "Subject" and "Body" and a button with the OnClick event to run this:

Private Sub CmdEmail_Click()
Dim rsEmail As DAO.Recordset
Dim strEmail As String
Dim strBody As String
Dim strSubject As String
Set rsEmail = CurrentDb.OpenRecordset("Maillist")

Do While Not rsEmail.EOF
strEmail = rsEmail.Fields("Email").Value
strBody = rsEmail.Fields("Body").Value
strSubject = rsEmail.Fields("Subject").Value

DoCmd.SendObject acQuery, "Sendlist", acFormatXLS, strEmail, , , strSubject, strBody, True

rsEmail.MoveNext

Loop
Set rsEmail = Nothing
End Sub

Please help me!

Please please please!

It's driving me crazy!

Is it possible to send e-mails to all of your e-mail addresses in one single e-mail?

Right now I am able to open up an individual e-mails for each of my stored e-mailo adresses but it would be so much better (and more user friendly) if I could just have one e-mail with all addresses in the To: field.

Any help would be really appreciated.

Rob

 

[boblarson]

Heffaklump:

Check out this sample and modify to fit your needs.
http://downloads.btlarson.com/AWF/Samples/EmailCode.txt