' Add EASendMail namespace
Imports EASendMail 

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 = "test@emailarchitect.net" 

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

        ' Do not set SMTP server address
        Dim oServer As New SmtpServer("") 

        Try 

            Console.WriteLine("start to test email address ...") 
            oSmtp.TestRecipients(oServer, oMail) 
            Console.WriteLine("email address was verified!") 

        Catch ep As Exception 

            Console.WriteLine("failed to test email address with the following error:") 
            Console.WriteLine(ep.Message) 
        End Try 

    End Sub 
End Module