Send Email with Event Handler in VB.NET¶

Imports EASendMail 'Add EASendMail namespace

Module Module1

    Sub OnIdle(ByVal sender As Object, ByRef cancel As Boolean)
        ' this event is fired when the SmtpClient is wait for response from
        ' smtp server, if you add Application.DoEvents in windows form application,
        ' it can prevent your form has no response before SendMail is not returned.
        ' Application.DoEvents()
    End Sub

    Sub OnConnected(ByVal sender As Object, ByRef cancel As Boolean)
        Console.WriteLine("Connected")
    End Sub

    Sub OnSendingDataStream(ByVal sender As Object, ByVal sent As Integer, _
                          ByVal total As Integer, ByRef cancel As Boolean)
        Console.WriteLine(String.Format("{0}/{1} sent", sent, total))
    End Sub

    Sub OnAuthorized(ByVal sender As Object, ByRef cancel As Boolean)
        Console.WriteLine("Authorized")
    End Sub

    Sub OnSecuring(ByVal sender As Object, ByRef cancel As Boolean)
        Console.WriteLine("Securing ...")
    End Sub

    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 with event handler"
            ' Set email body
            oMail.TextBody = "this is a test email sent from VB.NET with event handler"

            ' 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 with event handler ...")

            Dim oSmtp As New SmtpClient()
            ' Catching the following events is not necessary,
            ' just make the application more user friendly.
            ' If you use the object in asp.net/windows service or non-gui application,
            ' You need not to catch the following events.
            ' To learn more detail, please refer to the code in EASendMail EventHandler
            AddHandler oSmtp.OnIdle, AddressOf OnIdle
            AddHandler oSmtp.OnAuthorized, AddressOf OnAuthorized
            AddHandler oSmtp.OnConnected, AddressOf OnConnected
            AddHandler oSmtp.OnSecuring, AddressOf OnSecuring
            AddHandler oSmtp.OnSendingDataStream, AddressOf OnSendingDataStream

            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