Send Mass Emails using Database Queue in ASP¶

<%
' The following example codes demonstrate sending email message using email queue + database
' To get full sample projects, please download and install EASendMail on your machine.
' To run it correctly, please change SMTP server, user, password, sender, recipient value to yours

Const ConnectNormal = 0
Const ConnectSSLAuto = 1
Const ConnectSTARTTLS = 2
Const ConnectDirectSSL = 3
Const ConnectTryTLS = 4

Dim oSmtp
Set oSmtp = Server.CreateObject("EASendMailObj.Mail")
oSmtp.LicenseCode = "TryIt"

' Set your sender email address
oSmtp.FromAddr = "test@emailarchitect.net"
' Set email subject
oSmtp.subject = "simple email from ASP queue"

' If you want to EASendMail service send the email after 10 minutes, please use the following code.
' oSmtp.Date = DateAdd("n", 10, Now())

' change it to your sql server address, database, user and password
' The server/instance name syntax used in the server option is the same for all SQL Server connection strings.
' e.g.: Server=serveraddress\instancename;
' EASendMail will use the following connection to connect to the database,
' the syntax is same as ADO connection object.
oSmtp.AddHeader "X-Data-Connection", _
 "Driver={SQL Native Client};" & _
 "Server=serveraddress;Database=database;Uid=user;Pwd=password;"

' For more connection string
' MS SQL Server 2000
'"Driver={SQL Server};Server=localhost;Database=pubs;Uid=sa;Pwd=asdasd;"

' MS SQL Server 2005
'"Driver={SQL Server Native Client};Server=localhost;Database=pubs;Uid=sa;Pwd=asdasd;"
' MS SQL Server 2005 Native Provider
'"Provider=SQLNCLI;Server=serveraddress;Database=database;Uid=user;Pwd=password;"

' MS SQL Server 2008
'"Driver={SQL Server Native Client 10.0};Server=localhost;Database=myDataBase;Uid=myUsername;Pwd=myPassword;"
' MS SQL Server 2008 Native Provider
'"Provider=SQLNCLI10;Server=serveraddress;Database=database;Uid=user;Pwd=password;"

' MS SQL Server 2012
'"Driver={SQL Server Native Client 11.0};Server=localhost;Database=myDataBase;Uid=myUsername;Pwd=myPassword;"
' MS SQL Server 2012 Native Provider
'"Provider=SQLNCLI11;Server=serveraddress;Database=database;Uid=user;Pwd=password;"

' EASendMail will select the fields by the following sql statement
' before sending email,
' then pick the recipient address from specified field.
oSmtp.AddHeader "X-Sql-Select", "SELECT uid, name, email FROM Recipients"

' Pick "name" field as the recipient name and "email" field as the recipient address.
' You can also use {$var_srecord:fieldname} to pick any field in X-Sql-Select statement
' and put it to subject, bodytext, then EASendMail will replace it automatially.
oSmtp.DisplayTo = """{$var_srecord:name}"" <{$var_srecord:email}>"
oSmtp.AddHeader "X-Rcpt-To", "{$var_srecord:email}"

' EASendMail service will execute the following sql statement on
' every email was sent successfully.
oSmtp.AddHeader "X-Sql-OnSentSuccess", _
"INSERT INTO sentlog (server, email) VALUES('{$var_server}', '{$var_rcptaddr}')"

' EASendMail service will execute the following sql statement on
' every email could not be sent.
oSmtp.AddHeader "X-Sql-OnSentError", _
"INSERT INTO errorlog(email, server, errorcode, errordescription ) " & _
"VALUES('{$var_rcptaddr}', '{$var_server}', '{$var_errcode}', '{$var_errdesc}')"

Dim bodytext As String
bodytext = "Hi {$var_srecord:name}, " & Chr(13) & Chr(10)
bodytext = bodytext & "Send email with queue." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
bodytext = bodytext & "From:Tester" & Chr(13) & Chr(10)
bodytext = bodytext & "To:{$var_srecord:email}" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
bodytext = bodytext & "Your id in database is {$var_srecord:uid}." & Chr(13) & Chr(10)
oSmtp.bodytext = bodytext

' {$var_srecord:uid} {$var_srecord:name} {$var_srecord:email} in
' body text will be replaced by EASendMail automatically.

' Your SMTP server address
oSmtp.ServerAddr = "smtp.emailarchitect.net"

' User and password for ESMTP authentication, if your server doesn't require
' User authentication, please remove the following codes.
oSmtp.UserName = "test@emailarchitect.net"
oSmtp.Password = "testpassword"

' ConnectTryTLS means if server supports SSL/TLS connection, SSL/TLS is used automatically
oSmtp.ConnectType = ConnectTryTLS

' If your server uses 587 port
' oSmtp.ServerPort = 587

' If your server uses 25/587/465 port with SSL/TLS
' oSmtp.ConnectType = ConnectSSLAuto
' oSmtp.ServerPort = 25 ' 25 or 587 or 465

Response.Write "start to send email ..."
If oSmtp.SendMailToQueue() = 0 Then
    Response.Write "email was sent to queue successfully!"
Else
    Response.Write "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
End If
%>