Send Mass Emails using Database Queue in ASP.NET, VB.NET¶

' Add EASendMail namespace
Imports EASendMail

Module Module1

    Sub Main()

        Try
            Dim oMail As New SmtpMail("TryIt")

            ' Set sender email address, please change it to yours
            oMail.From = "test@emailarchitect.net"
            ' Set email subject
            oMail.Subject = "test email from VB.NET project"

            ' If you want EASendMail service to send the email after 10 minutes,
            ' use the following code.
            ' oMail.Date = System.DateTime.Now.AddMinutes( 10 );

            ' 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.

            ' MS SQL 2005
            oMail.Headers.ReplaceHeader("X-Data-Connection", _
            "Driver={SQL Native Client};" & _
            "Server=serveraddress;Database=database;Uid=user;Pwd=password;")

            ' MS SQL Server 2005 Native provider
            ' oMail.Headers.ReplaceHeader("X-Data-Connection", _
            '  "Provider=SQLNCLI;Server=serveraddress;Database=database;Uid=user;Pwd=password;")

            ' MS SQL Server 2008
            ' oMail.Headers.ReplaceHeader("X-Data-Connection", _
            '  "Driver={SQL Server Native Client 10.0};Server=serveraddress;Database=database;Uid=myUsername;Pwd=myPassword;")

            ' MS SQL Server 2008 Native provider
            ' oMail.Headers.ReplaceHeader("X-Data-Connection", _
            '  "Provider=SQLNCLI10;Server=serveraddress;Database=database;Uid=user;Pwd=password;" )

            ' MS SQL Server 2012
            ' oMail.Headers.ReplaceHeader("X-Data-Connection", _
            '  "Driver={SQL Server Native Client 11.0};Server=serveraddress;Database=database;Uid=myUsername;Pwd=myPassword;")

            ' MS SQL Server 2012 Native provider
            ' oMail.Headers.ReplaceHeader("X-Data-Connection", _
            '  "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.
            oMail.Headers.ReplaceHeader("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.
            oMail.Headers.ReplaceHeader("To", """{$var_srecord:name}"" <{$var_srecord:email}>")
            oMail.Headers.ReplaceHeader("X-Rcpt-To", "{$var_srecord:email}")

            ' EASendMail service will execute the following sql statement on
            ' every email was sent successfully.
            oMail.Headers.ReplaceHeader("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.
            oMail.Headers.ReplaceHeader("X-Sql-OnSentError", _
            "INSERT INTO errorlog( email, server, errorcode, errordescription )" & _
            " VALUES( '{$var_rcptaddr}', '{$var_server}', '{$var_errcode}', '{$var_errdesc}' )")

            Dim s As String = "Hi {$var_srecord:name}, " & vbCrLf
            s += "this sample demonstrates how to send email using email queue." & vbCrLf & vbCrLf
            s += "Your id in database is {$var_srecord:uid}." & vbCrLf & vbCrLf
            s += "No matter how many recipients there are, EASendMail "
            s += "service will send the email in background." & vbCrLf
            oMail.TextBody = s

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

            ' Your SMTP server address
            Dim oServer As New SmtpServer("smtp.emailarchitect.net")

            ' User and password for ESMTP authentication
            oServer.User = "test@emailarchitect.net"
            oServer.Password = "testpassword"

            ' Most mordern SMTP servers require SSL/TLS connection now.
            ' ConnectTryTLS means if server supports SSL/TLS, SSL/TLS will be used automatically.
            oServer.ConnectType = SmtpConnectType.ConnectTryTLS

            ' If your SMTP server uses 587 port
            ' oServer.Port = 587

            ' If your SMTP server requires SSL/TLS connection on 25/587/465 port
            ' oServer.Port = 25 ' 25 or 587 or 465
            ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

            Console.WriteLine("start to send email ...")

            Dim oSmtp As New SmtpClient()
            ' You just need to change SendMail method to SendMailToQueue method in
            ' your ASP.NET web application, then EASendMail uses queue to send email.
            ' SendMailToQueue can be used in windows application as well.
            oSmtp.SendMailToQueue(oServer, oMail)

            ' If you want to use SMTP server setting in EASendMail Service Manager, use
            ' oSmtp.SendMailToQueue(Nothing, oMail)

            Console.WriteLine("email was sent queue successfully!")
        Catch ep As Exception
            Console.WriteLine("failed to send email with the following error:")
            Console.WriteLine(ep.Message)
        End Try

    End Sub

End Module