VB.net send Gmail using Gmail Account over Explicit SSL (TLS) on 25 or 587 Port

on 
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 587 port, if you want to use 25 port, please change 587 to 25
        oServer.Port = 587

        ' 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 TLS ...")
            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

Comments

Post a Comment