|
The
New Mail Objects
<%
Dim mail
Dim addressList
dim address
AddressList = array("you@yourmail.com", "bob@hisMail.com",
"jennifer@hermail.com", "sally@hermail.com")for each address in addressList
Set mail = Server.Create0bject("CDONTS.Newmail")
mail.From = "me@mymail.com"
mail.Subject = "Mastering ASP"
mail.Body = "This mail was sent using CDONTS"
mail.To = address
mail.Send
set mail = nothing
next
%>
|
