He buscado, pero no consigo hacerlo funcionar. Lo curioso es que cuando creé el codigo, sí funcionaba. He revisado el usuario y pass 20 veces, hasta he probado con otra cuenta de correo.
El error es el siguiente:
535 Error: authentication failed
Os pongo el código a ver si encontrais el error:
Código:
<% on error resume next 'Entrada titulo="Formulario de contacto" empresa = Request("empresa") contacto = Request("contacto") info = Request("info") 'Mensaje mensaje= mensaje & "<b>Empresa: </b>"&empresa&"<br>"& Chr(13) & Chr(10) mensaje= mensaje & "<b>Persona de contacto: </b>"&contacto&"<br>"& Chr(13) & Chr(10) mensaje= mensaje & "<b>Consulta: </b>"&info&"<br>"& Chr(13) & Chr(10) 'El objeto ASPMAIL Set Mail = Server.CreateObject("Persits.MailSender") ' Creamos el cuerpo del mensaje strBody = strBody & "<img src='http://www.dominio.es/logo.jpg' width='303' height='145'><br><hr>" strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>" strBody = strBody & "<B><U> FORMULARIO DE LA WEB</B></U><BR><BR>" & Chr(13) & Chr(10) strBody = strBody & mensaje strBody = strBody & chr(10) strBody = strBody & "</font>" 'Asignamos las propiedades al objeto con ASPMAIL Mail.username = "XXX" Mail.password = "XXXXX" Mail.Host = "smtp.dominio.es" Mail.From = "[email protected]" Mail.FromName = nombre ' Opcional Mail.Subject = titulo Mail.Body = "<HTML><BODY>" & strBody & "</BODY></HTML>" Mail.IsHTML = True Mail.AddAddress "[email protected]" Mail.Send ' El control del error es con ASPMAIL If Err <> 0 Then Response.Write "Error, envie el correo más tarde por favor. " & Err.Description Else Response.Write "<div style='font-family:verdana;font-size:10px;font-weight:bold;color:#10103F;'>El formulario ha sido enviado correctamente. En breve nos pondremos en contacto con usted. Gracias.<br><center><a href='javascript:window.close()' style='text-decoration:none;color:#cccccc;'>-- Cerrar Ventana --</a></center></div>" End If 'Destruimos el objeto con aspmail Set Mail = Nothing %>