Question Regarding (faq705-6950)

[ccurt]

thread705-1479285

I have used the code from (faq705-6950) and I'm planning on sending around 14000 emails out to notify customers of an updated payment website address. I see that the customer emails are added to the Bcc area. My question is with 14000 customers will this be a problem? If so is there a way to loop through the customers one record at a time and then send email without being prompted? Thanks for any help.

 

[kjv1611]

Are your email address in a database table? If so, then yes - loop through it the same as you would any other loop. I have not even bothered to look at the code, but what you need to do is use the Outlook code as a public procedure, and pull in the values you'd normally pull within the procedure.

So something like this should work:

Private Sub SendMyEmails_Click()
  Dim db as DAO.Database
  Dim rs as DAO.Recordset

  Set db = CurrentDb
  Set rs = db.OpenRecordset("MyEmailAddressesTable")

  Do While Not rs.EOF
    MyFancyOutlookProcedure(rs.Fields("EmailAddress"))
    rs.MoveNext
  Loop

End Sub

"But thanks be to God, which giveth us the victory through our Lord Jesus Christ." 1 Corinthians 15:57