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
%>
