Hola, he usado el siguiente código sacado de aquí, y me da el error de Información adicional: No se puede obtener acceso al objeto 'CDO.Message'.
el código que pongo es este:
Dim email As New System.Web.Mail.MailMessage
email.From = "
[email protected]"
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 = "
[email protected]"
System.Web.Mail.SmtpMail.SmtpServer = "10.262.62.4"
System.Web.Mail.SmtpMail.Send(email)