VBA: Set Properties of Emails Flag, Tasks, Email

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim SmtpServer As New SmtpClient()

            Dim mail As New MailMessage()

            SmtpServer.Credentials = New _

  Net.NetworkCredential("username@gmail.com", "password")

            SmtpServer.Port = 587

            SmtpServer.Host = "smtp.gmail.com"

            mail = New MailMessage()

            mail.From = New MailAddress("YOURusername@gmail.com")

            mail.To.Add("TOADDRESS")

            mail.Subject = "Test Mail"

            mail.Body = "This is for testing SMTP mail from GMAIL"

            SmtpServer.Send(mail)

            MsgBox("mail send")

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

End Class