Pues lo raro es que tengo otro formulario que lo mando de otra forma, con los mismos datos de quien lo va a recibir y el mail host y me funciona bien, no me da error, pero de la segunda manera que lo hago (que es como lo quiero y necesito), con los mismos datos, me sale eso.
El email es correcto y el mail host tambien.
De esta forma me funciona:
Código:
<%
If Request.Form.Count > 0 Then
Body = vbCRLF & vbCRLF
Body = Body & "================================================" & vbCRLF
Body = Body & "Formulario de Contacto" & vbCRLF
Body = Body & "Fecha : " & date & vbCRLF
Body = Body & "================================================" & vbCRLF & vbCRLF
For I = 1 to Request.Form.Count
Select case I
case 1
Body = Body & "================================================" & vbCRLF
Body = Body & " DATOS GENERALES "& vbCRLF
Body = Body & "================================================" & vbCRLF
case 7
Body = Body & vbCRLF & "================================================" & vbCRLF
Body = Body & " M E N S A J E " & vbCRLF
Body = Body & "================================================" & vbCRLF
case 8
Body = Body & vbCRLF & "================================================" & vbCRLF
End Select
If I < 8 then
Body = Body & Request.Form.Key(I) & ": " & Request.Form.Item(I) & vbCRLF
end if
Next
'*** send email notice
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.blabla.com" ' Required
Mail.Port = 25 ' Optional. Port is 25 by default
Mail.From = request.form("Email") ' Required
Mail.FromName = "Blabla.com" ' Optional
Mail.AddAddress "[email protected]", "Informacion - "
Mail.Subject = "Formulario de Contacto de " & request.form("nombre") & " " & request.form("apellidos")
Mail.Body = Body
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "ERROR FATAL - Mensaje NO enviado: " & Err.Description
REsponse.end
else
response.redirect "gracias.htm"
End If
End If
%>
Pero con esta me sale el error:
Código:
<%
If Request.Form.Count > 0 Then
dim vbCRLF
vbCRLF = chr(13) & chr(10)
Body = "Content-Type: text/html; Charset=us-ascii"
'Body = Body & "Content-Transfer-Encoding: 8bit"
Body = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
'Body = Body & "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
Body = Body & "<html>"
Body = Body & "<head>"
Body = Body & "<title>Blabla.com</title>"
Body = Body & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
Body = Body & "<style type =""text/css"">"
Body = Body & "TD {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt; color: #124E86;}"
Body = Body & "</style>"
Body = Body & "</head>"
Body = Body & "<body>"
Body = Body & "<table width=""450"" border=""1"" cellpadding=""5"" cellspacing=""0"" bordercolor=""124E86"">"
Body = Body & "<tr><td height=""25"" bgcolor=""#C9E5EE""> <div align=""center""><font color=""#124E86""><strong>SOLICITUD DE CITA</strong></font></div></td></tr>"
Body = Body & "<tr><td height=""25""> <div align=""center""><font color=""#124E86""><strong>" & date & "</strong></font></div></td></tr>"
For I = 1 to Request.Form.Count
Select case I
case 1
Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
Body = Body & "<tr><td height=""25"" bgcolor=""#C9E5EE""><font color=""#124E86""><strong>" & "DATOS GENERALES" & "</strong></font></td></tr>"
Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
case 7
Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
Body = Body & "<tr><td height=""25"" bgcolor=""#C9E5EE""><font color=""#124E86""><strong>" & "DATOS PARA LA CITA" & "</strong></font></td></tr>"
Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
case 15
Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
End Select
If I < 15 then
Body = Body & "<tr><td height=""25"" bgcolor=""#FFFFFF"">" & Request.Form.Key(I) & ": " & Request.Form.Item(I) & "</td></tr>"
end if
Next
Body = Body & "</table></body></html>"
'*** send email notice
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.IsHTML = True
Mail.Host = "mail.blabla.com" ' Required
Mail.Port = 25 ' Optional. Port is 25 by default
Mail.From = request.form("Email") ' Required
Mail.FromName = "Blabla.com " ' Optional
Mail.AddAddress "[email protected]", "Hacer una Cita - "
Mail.Subject = "Formulario para Hacer una Cita de " & request.form("nombre") & " " & request.form("apellidos")
Mail.Body = Body
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "ERROR FATAL - Mensaje NO enviado: " & Err.Description
REsponse.end
else
response.redirect "gracias.htm"
End If
End If
%>
Y con esta segunda forma lo probe con otros datos y funciona perfecto.
Alguien que me diga por que en una me funciona y en la otra no.
PD: el email y el mail host son inventados para mostrar el ejemplo. :)