Send Email Asynchronously in VB.NET

In previous section, I introduced how to use event handler to monitor the progress. In this section, I will introduce how to send email in asynchronous mode in VB.NET.


In synchronous mode, once SendMail method is called, it returns to application after the method is complete. Therefore, if the runtime (it depends on the networking connection and the email size) is long, your application cannot do anything before this method ends, which results “my application is blocked or halted”. In contrast, in asynchronous mode, as BeginSendMail method works in background, this methods return to application immediately no matter the running method is complete or not.


Remarks: All of samples in this section are based on first section: Send email in a simple VB.NET project. To compile and run the following example codes successfully, please click here to learn how to create the test project and add reference of EASendMail to your project.

[VB.NET - Send Email Asynchronously - Example]

The following example codes demonstrate how to send email asynchronously in VB.NET.


To get the full sample projects, please refer to Samples section.

Imports EASendMail 'Add EASendMail namespace
Module Module1
    Sub Main()
        Dim oMail As New SmtpMail("TryIt")
        Dim oSmtp As New SmtpClient()
        ' Set sender email address, please change it to yours
        oMail.From = ""

        ' Set recipient email address, please change it to yours
        oMail.To = ""

        ' Set email subject
        oMail.Subject = "test asynchronous email from VB.NET"

        ' Set email body
        oMail.TextBody = "this is a test email sent from VB.NET with asynchronous mode"

        ' Your SMTP server address
        Dim oServer As New SmtpServer("")

        ' User and password for ESMTP authentication, if your server doesn't require
        ' User authentication, please remove the following codes.
        oServer.User = ""
        oServer.Password = "testpassword"

        ' If your smtp server requires SSL connection, please add this line
        ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

            Console.WriteLine("start to send email in asynchronous mode ...")
            Dim oResult As SmtpClientAsyncResult = oSmtp.BeginSendMail( _
                        oServer, oMail, Nothing, Nothing)
            ' Wait for the email sending...
            Do While (Not oResult.IsCompleted)
                Console.WriteLine("waiting..., you can do other thing!")
                oResult.AsyncWaitHandle.WaitOne(50, False)


        Catch ep As Exception
            Console.WriteLine("failed to send email with the following error:")
        End Try
    End Sub
End Module

Next Section

At next section I will introduce how to send mass email with multiple threads in VB.



If you have any comments or questions about above example codes, please click here to add your comments.