<%
' change to address of your own SMTP server
strHost = "smtp.broadviewnet.net"
%>
AspEmail: Database.asp
AspEmail: Database.asp
Demonstrates sending a message to multiple recipients
whose names and addresses
are stored in a database.
<%
' connect to the MS Access database in the same directory
strDbPath = Server.MapPath(".") & "\users.mdb"
ConnectStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strDbPath
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "users", ConnectStr, 2, 3
If Request("Send") <> "" Then
' send email to all users
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "info@aspemail.com"
Mail.FromName = "AspEmail Demo"
Mail.Subject = "Thank-you for your business"
Mail.Body = "Dear Sir/Madam, you have been a great customer, please come again."
' read address from DB and put them in the BCC field
While not rs.EOF
Mail.AddBcc rs("email"), rs("name")
rs.MoveNext
Wend
If Request("Queue") <> "" Then
Mail.Queue = True
End if
' finally: send message
Mail.Send
Response.Write "Success!"
Else
' simply display the list of users in the database
Response.Write "Currently in the user database:"
While not rs.EOF
Response.Write rs("name") & " (" & rs("email") & ")
"
rs.MoveNext
Wend
End If
%>