Imports EASendMail 'Add EASendMail namespace

Module Module1
    Sub Main()
        Dim oMail As New SmtpMail("TryIt")
        Dim oSmtp As New SmtpClient()

        ' Your gmail email address
        oMail.From = "gmailid@gmail.com"

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

        ' Set email subject
        oMail.Subject = "test email from gmail account"

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

        'Gmail SMTP server address
        Dim oServer As New SmtpServer("smtp.gmail.com")

        ' set 25 port, if you want to use 587 port, please change 25 to 587
        oServer.Port = 25

        ' detect SSL/TLS automatically
        oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

        ' Gmail user authentication should use your
        ' Gmail email address as the user name.
        ' For example: your email is "gmailid@gmail.com", then the user should be "gmailid@gmail.com"
        oServer.User = "gmailid"
        oServer.Password = "yourpassword"

        Try

            Console.WriteLine("start to send email over SSL ...")
            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