Ayuda con error al enviar formulario
Publicado por Sebas (3 intervenciones) el 11/04/2010 21:10:01
Llevo miradas centenares de páginas para saber cómo enviar los datos de un formulario por correo sin utilizar el cliente. Por lo que he podido leer se utiliza CDO y el código es (aparentemente) sencillo... pero no me funciona: SIEMPRE me da error en la línea de envío. El código que tengo es:
Set ObjetoMail = Server.CreateObject("CDO.Message")
Set ObjetoConf = SErver.CreateObject("CDO.Configuration")
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailhost.terra.es"
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpcconnectiontimeout") = 60
ObjetoConf.Fields.Update
Set ObjetoMail.Configuration = ObjetoConf
ObjetoMail.From = "[email protected]"
ObjetoMail.TO = "[email protected]"
ObjetoMail.Subject = "Formulario"
ObjetoMail.HTMLBody = Cadena
ObjetoMail.Send
Set ObjetoMail = Nothing
Set ObjetoConf = Nothing
La variable Cadena es una línea confeccionada a partir de los datos del form y como digo, SIEMPRE me sale el error "8004020e" en la linea de ObjetoMail.send. He probado con códigos muy parecidos y el error es el mismo. Añadiendo las líneas
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxx"
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
sucede exactamente igual: siempre error en la línea de envío y obviamente el formulario no se envía. Ya no se por donde meterle mano... a ver si alguien puede proporcionarme algo de luz.
Gracias anticipadas
Set ObjetoMail = Server.CreateObject("CDO.Message")
Set ObjetoConf = SErver.CreateObject("CDO.Configuration")
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailhost.terra.es"
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpcconnectiontimeout") = 60
ObjetoConf.Fields.Update
Set ObjetoMail.Configuration = ObjetoConf
ObjetoMail.From = "[email protected]"
ObjetoMail.TO = "[email protected]"
ObjetoMail.Subject = "Formulario"
ObjetoMail.HTMLBody = Cadena
ObjetoMail.Send
Set ObjetoMail = Nothing
Set ObjetoConf = Nothing
La variable Cadena es una línea confeccionada a partir de los datos del form y como digo, SIEMPRE me sale el error "8004020e" en la linea de ObjetoMail.send. He probado con códigos muy parecidos y el error es el mismo. Añadiendo las líneas
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxx"
ObjetoConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
sucede exactamente igual: siempre error en la línea de envío y obviamente el formulario no se envía. Ya no se por donde meterle mano... a ver si alguien puede proporcionarme algo de luz.
Gracias anticipadas
Valora esta pregunta


0