Enviar correo electrónico autentificandose
El siguiente código nos va a permitir enviar mensajes de correo electrónico, cuando el servidor de correo saliente que utilicemos requiera autentificación:
'Creamos un nuevo objeto MailMessage donde especificamos el "From" y el "To"
Dim correo As New System.Net.Mail.MailMessage("desde@dominio.com", "hasta@dominio.com")
correo.Subject = "Probando el asunto"
correo.Body = "Estamos realizando una prueba"
Dim cliente As New System.Net.Mail.SmtpClient()
'Creamos el objeto que va a "preparar" la autentificación
Dim autentificacion As New System.Net.NetworkCredential("usuario", "contraseña")
'Incluimos esta información a la hora de logarnos en el servidor
mailClient.Host = "url_del_servidor_smtp"
mailClient.UseDefaultCredentials = False
mailClient.Credentials = autentificacion
mailClient.Send(correo)
Autor del artículo
Dámaso Velázquez
Compartir