Para poder enviar un email a un servidor SMTP con autentificación es necesario enviarlo así:

Dim email As New System.Web.Mail.MailMessage
email.From = "mail@from.com"
email.Fields ("http://schemas.microsoft.com/cdo/configuration/smtsperver") = "SMTPServerName "
email.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
email.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

email.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
email.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "SMTPAUTHUser "
email.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SMTPAUTHPassword"
email.To = "destinoi@mail.com"
SmtpMail.SmtpServer = "tu_server_smtp"
SmtpMail.Send(email)

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 9 votaciones| Nota media: 5Selecciona tu Puntuación: