ASPRunner Professional 7.1 manual - Send email to email addresses from user table

To send an email to email addresses from user table you need to create new button and add sample code stated below to the List page.

Note: Change the values listed in red to match your specific needs.

Response.Flush

set data = dal.Table("users").QueryAll()

while not data.eof

' send the email

rmail("to")=data("email")

rmail("subject")="Sample subject"

rmail("body")="Sample body"

set result = runner_mail(rmail)

' if error happened print a message on the web page

if not result("mailed") then

response.write result("message") & "<br>"

response.flush

end if

data.MoveNext

wend

data.close: data=nothing

For more information about using Data Access Layer (DAL), see Data Access Layer.