Send Email over SSL/TLS in VB.NET¶

' Send email by normal TCP/IP without SSL connection
Dim oServer As New SmtpServer("localhost 25")
oServer.ConnectType = SmtpConnectType.ConnectNormal

' Send email by SSL connection with STARTTLS command switching
Dim oServer As New SmtpServer("localhost 25")
oServer.ConnectType = SmtpConnectType.ConnectSTARTTLS

' Send email by SSL connection with direct SSL.
Dim oServer As New SmtpServer("localhost 465")
oServer.ConnectType = SmtpConnectType.ConnectDirectSSL

' Send email by SSL connection with auto-detect.
' If port is 25 or 587, STARTTLS SSL will be used; otherwise direct SSL will be used.
Dim oServer As New SmtpServer("localhost 465")
oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

Dim oServer As New SmtpServer("localhost 25")
oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

' If server supports SSL/TLS, then SSL/TLS is used, otherwise normal TCP is used.
Dim oServer As New SmtpServer("localhost 25")
oServer.ConnectType = SmtpConnectType.ConnectTryTLS

Dim oServer As New SmtpServer("localhost 587")
oServer.ConnectType = SmtpConnectType.ConnectTryTLS

Imports EASendMail 'Add EASendMail namespace

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 recipient email address, please change it to yours
            oMail.To = "support@emailarchitect.net"

            ' Set email subject
            oMail.Subject = "test email from VB.NET project"
            ' Set email body
            oMail.TextBody = "this is a test email sent from VB.NET project, do not reply"

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

            ' Set SSL 465 port
            oServer.Port = 465

            ' Set direct SSL connection, you can also use ConnectSSLAuto
            oServer.ConnectType = SmtpConnectType.ConnectDirectSSL

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

            Dim oSmtp As New SmtpClient()
            oSmtp.SendMail(oServer, oMail)

            Console.WriteLine("email was sent 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

Imports EASendMail 'Add EASendMail namespace

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 recipient email address, please change it to yours
            oMail.To = "support@emailarchitect.net"

            ' Set email subject
            oMail.Subject = "test email from VB.NET project"
            ' Set email body
            oMail.TextBody = "this is a test email sent from VB.NET project, do not reply"

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

            ' Set 25 port, if your server uses 587 port, please change 25 to 587
            oServer.Port = 25

            ' Set TLS connection, you can also use ConnectSSLAuto
            oServer.ConnectType = SmtpConnectType.ConnectSTARTTLS

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

            Dim oSmtp As New SmtpClient()
            oSmtp.SendMail(oServer, oMail)

            Console.WriteLine("email was sent 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