Try
Dim lobj_smtpServer As New SmtpClient()
Dim lobj_mailMessage As New MailMessage()
lobj_smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "senhadogmail")
lobj_smtpServer.Port = 587
lobj_smtpServer.Host = "smtp.gmail.com"
lobj_smtpServer.EnableSsl = True
lobj_mailMessage= New MailMessage()
lobj_mailMessage.From = New MailAddress("[email protected]")
lobj_mailMessage.To.Add(“[email protected]”)
lobj_mailMessage.Subject = "Teste de E-Mail"
lobj_mailMessage.Body = "Esta mensagem é para testar o envio de mensagens através do GMail"
smtpServer.Send( lobj_mailMessage )
MsgBox("Mensagem Enviada")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Natural de Salvador-BA, é graduado em Analise de Sistemas pela Universidade Católica do Salvador (2003), e especialista em Engenharia de Software pela Universidade Salvador (2010). Exerce atualmente o cargo de Analista Judiciário na Justiça do Trabalho.