Generate an email to all contacts

[DMT Dave]

Hi Guy's can the following code be changed to generate an email to all recipients, in the field i will have either a valid email address or Enter Email Address, the myExclude string does bypass anything that is Enter Email Address and goes to a record that has got a valid email address and opens x 1 email, I am looking to adapt it so a separate email is generated for each valid email address

Dim strEMail As StringDim oOutlook As Object
Dim oMail As Object
Dim strAddr As String, myExclude As String
Dim MyDB As DAO.Database
Dim rstEMail As DAO.Recordset
 
Set oOutlook = CreateObject("Outlook.Application")
Set oMail = oOutlook.CreateItem(0)
 myExclude = "Enter Email Address"
Set MyDB = CurrentDb
Set rstEMail = MyDB.OpenRecordset("Select * From tblCustomers WHERE InvoiceEmail <> '" & myExclude & "'", dbOpenSnapshot, dbOpenForwardOnly)
 
With rstEMail
  Do While Not .EOF
    strEMail = rstEMail.Fields("InvoiceEmail") & ";"
      .MoveNext
  Loop
End With


 
With oMail
  .To = strEMail
  .Body = "Test E-Mail to Multiple Recipients"
  .Subject = "Test multiple emails"
    .Display
End With
 
Set oMail = Nothing
Set oOutlook = Nothing
 
rstEMail.Close
Set rstEMail = Nothing

[June7]

Instead of building a multi-address To string, send email within loop of recordset.

Very common topic and many examples.

With rstEMail
Do While Not .EOF
   With oMail
     .To = rstEMail.Fields("InvoiceEmail")
     .Body = "Test single E-Mail to Multiple Recipients"
     .Subject = "Test multiple emails"
     .Display
   End With
   .MoveNext
Loop
End With

[DMT Dave]

Thank you June7, i will try that, much appreciated

[DMT Dave]

The only other question is that 1 of the emails opens in the taskbar, i would guess the last one in the recordset, how can i display within the loop so i can physically see all emails ?, i don't think.Display works after the loop ??

Thank you

[June7]

Try this:

MsgBox "Continue"
.MoveNext

[DMT Dave]

Hi June7, perfect thank you