Utilizando o VB.net, como enviar e-mail através do GMail

Try

    Dim lobj_smtpServer As New SmtpClient()
    Dim lobj_mailMessage As New MailMessage()
    lobj_smtpServer.Credentials = New Net.NetworkCredential("usuariodogmail@gmail.com", "senhadogmail")
    lobj_smtpServer.Port = 587
    lobj_smtpServer.Host = "smtp.gmail.com"
    lobj_smtpServer.EnableSsl = True
    lobj_mailMessage= New MailMessage()
    lobj_mailMessage.From = New MailAddress("usuariodogmail@gmail.com")
    lobj_mailMessage.To.Add(“emaildequemvaireceberamensagem@exemplo.com”)
    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

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *