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