1. Home
  2. EASendMail SMTP Component
  3. KB
  4. VB - UWP
  5. Send Email using Gmail in VB from Windows Store Apps - XAML - UWP

Tutorial Index

Send Email using Gmail in VB from Windows Store Apps - XAML - UWP

In previous section, I introduced how to send email over SSL connection. In this section, I will introduce how to use your Gmail account to send email in VB.

Introduction

Gmail SMTP server address is smtp.gmail.com. It requires implicit SSL or explicit SSL (TLS) connection, and you should use your Gmail email address as the user name for ESMTP authentication.

Server Port SSL/TLS
smtp.gmail.com 25, 587 TLS
smtp.gmail.com 465 SSL

Gmail App Password

To help keep your account secure, starting May 30, 2022, ​​Google will no longer support the use of third-party apps or devices which ask you to sign in to your Google Account using only your username and password.

Therefore, you should sign in using App Passwords. An App Password is a 16-digit passcode that gives a less secure app or device permission to access your Google Account. App Passwords can only be used with accounts that have 2-Step Verification turned on. You need to use App Password instead of the user password for user authentication.

Another solution is Gmail OAUH, please see Gmail SMTP OAUTH section.

Last update: Google has disabled App password, you have to switch to Gmail SMTP OAUTH. If you don’t want to change your code, you can have a try with EA Oauth Service.

Note

Remarks: All of samples in this section are based on first section: Send email in A simple VB XAML Windows Store App 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 - Send email using Gmail account over SSL connection on 465 port]

The following example codes demonstrate how to send email using Gmail account.

Note

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

' Add EASendMail and Tasks Namespace
Imports EASendMail
Imports System.Threading.Tasks

Public NotInheritable Class MainPage
    Inherits Page

    Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)

    End Sub

    Private Async Function btnSend_Click(sender As Object, e As RoutedEventArgs) _
        As Task Handles btnSend.Click

        btnSend.IsEnabled = False
        Await Send_Email()
        btnSend.IsEnabled = True

    End Function

    Private Async Function Send_Email() As Task
        Dim Result As String = ""
        Try

            Dim oMail As New SmtpMail("TryIt")

            ' Set Gmail email address
            oMail.From = New MailAddress("gmailid@gmail.com")

            ' Add recipient email address, please change it to yours
            oMail.To.Add(New MailAddress("support@emailarchitect.net"))

            ' Set email subject
            oMail.Subject = "test email from VB XAML project"

            ' Set email body
            oMail.TextBody = "this is a test email sent from Windows Store App using Gmail."

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

            ' User and password for Gmail user authentication
            oServer.User = "gmailid@gmail.com"

            ' Create app password in Google account
            ' https://support.google.com/accounts/answer/185833?hl=en
            oServer.Password = "your app password"

            ' Use 465 port
            oServer.Port = 465
            oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

            Dim oSmtp As New SmtpClient()

            Await oSmtp.SendMailAsync(oServer, oMail)
            Result = "Email was sent successfully!"

        Catch ep As Exception
            Result = String.Format("Failed to send email with the following error: {0}", ep.Message)
        End Try

        ' Display Result by Diaglog box
        Dim dlg As New Windows.UI.Popups.MessageDialog(Result)
        Await dlg.ShowAsync()
    End Function
End Class

[VB - Send email using Gmail account over TLS connection on 587 port]

The following example codes demonstrate how to use EASendMail SMTP component to send email using Gmail account.

Note

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

' Add EASendMail and Tasks Namespace
Imports EASendMail
Imports System.Threading.Tasks

Public NotInheritable Class MainPage
    Inherits Page

    Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)

    End Sub

    Private Async Function btnSend_Click(sender As Object, e As RoutedEventArgs) _
        As Task Handles btnSend.Click

        btnSend.IsEnabled = False
        Await Send_Email()
        btnSend.IsEnabled = True

    End Function

    Private Async Function Send_Email() As Task
        Dim Result As String = ""
        Try

            Dim oMail As New SmtpMail("TryIt")

            ' Set Gmail email address
            oMail.From = New MailAddress("gmailid@gmail.com")

            ' Add recipient email address, please change it to yours
            oMail.To.Add(New MailAddress("support@emailarchitect.net"))

            ' Set email subject
            oMail.Subject = "test email from VB XAML project"

            ' Set email body
            oMail.TextBody = "this is a test email sent from Windows Store App using Gmail."

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

            ' User and password for Gmail user authentication
            oServer.User = "gmailid@gmail.com"

            ' Create app password in Google account
            ' https://support.google.com/accounts/answer/185833?hl=en
            oServer.Password = "your app password"

            ' Use 587 port
            oServer.Port = 587
            oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

            Dim oSmtp As New SmtpClient()

            Await oSmtp.SendMailAsync(oServer, oMail)
            Result = "Email was sent successfully!"

        Catch ep As Exception
            Result = String.Format("Failed to send email with the following error: {0}", ep.Message)
        End Try

        ' Display Result by Diaglog box
        Dim dlg As New Windows.UI.Popups.MessageDialog(Result)
        Await dlg.ShowAsync()
    End Function
End Class

Gmail SMTP OAUTH

The Gmail IMAP and SMTP servers have been extended to support authorization via the industry-standard OAuth 2.0 protocol. Using OAUTH protocol, user can do authentication by Gmail Web OAuth instead of inputting user and password directly in application. This way is more secure, but a little bit complex.

Using Gmail SMTP OAUTH

Next Section

At next section I will introduce how to send email with Yahoo account.

Appendix

Comments

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

See Also