Enviar email gmail

 Try
            Dim Mail As New MailMessage
            Mail.Subject = ""
            Mail.To.Add("[email protected]")
            Mail.From = New MailAddress("[email protected]")
            Mail.Body = ""
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "sua_senha")
            SMTP.Port = "587"
            SMTP.Send(Mail)
        Catch ex As Exception
            MessageBox.Show("Erro : " + ex.Message)
        End Try