Automatic emails

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a table in Access that contains the recipients name, email address and
a check box. Does anybody know how to send an automatic email (after the
user clicks a command button) to all recipients that have their corresponding
checkbox checked with a message entered from another table? Thanks in
advance.
 
I have a table in Access that contains the recipients name, email address and
a check box. Does anybody know how to send an automatic email (after the
user clicks a command button) to all recipients that have their corresponding
checkbox checked with a message entered from another table? Thanks in
advance.
Click to expand...

open a recordset based on the query that returns the records you want.
loop through the recordset, sending an e-mail to each. (Use SendObject
or CDOSys).

AIR CODE...


dim rs as DAO.Recordset
set rs=DbEngine(0)(0).OpenQuerydef("Name_of_your_query")

do until rs.EOF
DoCmd.SendObject rs.Fields("EMail"), strMessage,
strPathToAttachment
rs.MoveNext
loop

rs.close
set rs=nothing
 
Is there a way to generate a 'To' or 'CC' list so I only send one email to
all the recipients that have been selected by the query?

John S.
 
DocBrown said:
Is there a way to generate a 'To' or 'CC' list so I only send one email to
all the recipients that have been selected by the query?
Click to expand...

Debug.Print CurrentProject.Connection.Execute _
("SELECT EmailAddress FROM SomeTable").GetString(2, ,";")

Replace 'EmailAddress' and 'SomeTable' with your actual names. This will
generate a semicolon-delimited list of email addresses, which is what you
need to feed into your TO field (whichever mailing method you use).
 
Back
Top