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)
Quizá te interese...