![]() |
|
|
+ Search |
![]()
|
Aug 22nd, 2001 03:39
Simon Burnett, Preeti Sikri,
First create an SQL string and get a recordset of the clients you wish
to email:
strSQL = "SELECT client_name, client_email" & _
"FROM tblClients WHERE client_account > 1000"
objRSClients.Open strSQL, objConn
Then create the disribution list:
While not objRSClients.EOF
strDList = strDlist & objRSClients("client_email") & ";"
Wend
Then create your email object:
set objMail = Server.CreateObject("CDONTS.Newmail")
objMail.To = strDList
objMail.Subject = "My Subject Line"
objMail.Body = "The lovely text i am sending"
objMail.BCC = "me@me.com" ' for testing maybe
objMail.Send ' Off it goes.
set objMail = nothing
Hope this gives you the general idea.
© 1999-2004 Synop Pty Ltd