Problemas para enviar formulario via mail

abigor66 · #1 (**permalink**) 03/02/2009, 07:35

Buenos días Foreros, estoy iniiando mi primera página en asp. todo iba bien hasta que intente enviar la información de un formulario a mi cuenta de correo.

heintentado solucionarlo pero aun no entiendo el funcionamiento de este sistema y según lo que leo en otros foros es que falta un archivo en el server. en fin, espero que ese no sea el problema.

el mensaje que me arroja la página cuando envío el formulario es:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/root/_mail.asp, line 58

800401f3

Nota: estoy ejecutando el formulario desde el servidor Web

el código que utilizo para esta prueba es el siguiente:

Código asp:

Ver original<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
 
<body>
<CENTER><H2>Enviar formulario por e-mail</H2></CENTER>
<%
 
'Plantilla ASP por Carlos de la Orden Dijs
Dim oMail, sDestino, sRemite, sBody, accion
 
sDestino=Trim(CStr(Request.Form("Para")))
sRemite=Trim(CStr(Request.Form("De")))
sBody=CStr(Request.Form("Cuerpo"))
 
' Si alguno de los campos está vacío es que no han enviado el formulario
if (sDestino = "" or sRemite = "") then
    Formulario
else
    MandarMail
end if
 
'========================================================================================
Sub Formulario
%>
<TABLE BORDER="1" STYLE="background-color: lightgrey; color: black" WIDTH="400" ALIGN="center">
<FORM NAME="Email" ACTION="_mail.asp" METHOD="post">
<TR>
<TD COLSPAN="2">Introduce un email para enviar un mail, y otro para que sea el remitente. 
Si quieres, puedes añadir un comentario.</TD>
<TR>
<TD><B>Para:</B></TD>
<TD><INPUT TYPE="text" NAME="Para"></TD>
<TR>
<TD><B>De:</B></TD>
<TD><INPUT TYPE="text" NAME="De"></TD>
<TR>
<TD><B>Comentario:</B></TD>
<TD><TEXTAREA NAME="Cuerpo" WRAP="virtual" ROWS="3" COLS="15"></TEXTAREA></TD>
<TR>
<TD COLSPAN="2"><CENTER>
<INPUT TYPE="submit" VALUE="Enviar Email!">
<INPUT TYPE="reset">
</CENTER>
</TD>
</FORM>
</TABLE>
<%
End Sub 'Formulario
'========================================================================================
Sub MandarMail
 
'Creamos el objeto
set oMail=Server.CreateObject("CDONTS.NewMail")
 
'Establecemos sus propiedas
oMail.To=sDestino
oMail.From=sRemite
 
'Esto lo añado yo :-)
sBody=sBody & VbCrLf & VbCrLf & _ 
"Este es una demostración de cómo enviar correo electrónico desde una página web. "
sBody=sBody & "Cualquier queja, molestia o preocupación, a [email][email protected][/email]. "
sBody=sBody & "Esta dirección de correo electrónico no queda guardada de ninguna forma. www.ASPFacil.com"
 
'Asignamos el cuerpo del mensaje
oMail.Body=sBody
'Y fuera!
oMail.Send
 
'Sacamos la basura :-)
set oMail=nothing
 
Response.Write("El correo electrónico ha sido enviado correctamente a <i>"&sDestino&"</i>.")
 
End Sub 'MandarMail
 
%>
<!--FIN DEL SCRIPT -->
</body>
</html>

Nota: he intentado con varios códigos pero siempre aparece el mismo error.

Gracias por su tiempo y espero me puedan ayudar

juanmi321 · #2 (**permalink**) 03/02/2009, 10:40

efectivamente, para hacer envios de correos, hay varios objetos ya hechos con los cuales se facilita la labor. En tu caso ocupaste CDONTS.

Es probable que tu servidor desde donde estes corriendo tu aplicacion no tenga el objeto, aqui te dejo una web para que pruebes ya que por el error que mandas, no tienes la dll necesaria:

http://www.desarrolloweb.com/faq/99.php

Espero haber sido de ayuda

abigor66 · #3 (**permalink**) 03/02/2009, 11:14

Gracias juanmi321 por tu respuesta, sin embargo no sé como instalar ese archivo en el server de mi proveedor. miraré eso de CDOSYS haber si da resultado. ojalá!

sigo buscando suluciones

juanmi321 · #4 (**permalink**) 03/02/2009, 11:18

Solo es cosa de buscar ;) http://www.webhostgear.com/204.html

abigor66 · #5 (**permalink**) 03/02/2009, 17:54

Gracias por la orientación, ya solucione el inconveniente. la respuesta está en:
http://www.chrishardy.co.uk/asp/tuto...mail-jmail.asp
y al archivo que hay para descargar se debe agregar dos lineas más

Código asp:

Ver original.Fields.Item(sConfURL & "sendusername") = "user"
.Fields.Item(sConfURL & "sendpassword") = "*******"

Lorsui · #6 (**permalink**) 05/02/2009, 12:02

Intenté utilizar el dato que dejaron, pero la verdad no me funciona, queda como trabado en la primera parte.
Necesitaría, si alguien me puede ayudar, a hacer un formulario sencillo en asp. Pero por favor, con todos los pasos o scripts que haya que poner, porque me parece que se me pierden algunas cosas.
Gracias.