ASPemail

ser31 · #1 (**permalink**) 17/02/2005, 03:56

Buenas amigos, esto del asp siempre me da problemillas
a ver, os cuento
he realizado un formulario para el envío de correo a través de mi web, podeis ver el formulario en la siguiente dirección:

http://www.synapsaproyec.com/contacto.html

es un formulario hecho en html que va a un asp "enviarmail.asp"

el código es el siguiente

<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.synapsaproyec.com"
Mail.From = request("From")
Mail.AddAddress = request("To")
Mail.AddCC = request("CC")
Mail.AddBCC= request("BCC")
Mail.Subject = request("Subject")
Mail.Body = request("Body")
On Error Resume Next
Mail.send
if Err><0 then
Response.write "No se ha podido enviar el mensaje."
else
response.write "Mensaje enviado, Gracias por utilizar nuestros servicios. En breves nos pondremos en contacto con usted."
end if
%>

Pero no me funciona, mi servidor viene ya con aspemail instalado, seguro que tengo fallos en el código, a ver si alguien me da sugerencias.
Muchas gracias, suerte y salud para todos

Muzztein · #2 (**permalink**) 17/02/2005, 05:02

cual es elrror que te da???

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.synapsaproyec.com"
Mail.From = request("From")
Mail.AddAddress = request("To")
Mail.AddCC = request("CC")
Mail.AddBCC= request("BCC")
Mail.Subject = request("Subject")
Mail.Body = request("Body")
On Error Resume Next
Mail.send

ESTA LINEA ME PARECE SOSPECHOSA
if Err><0 then
QUE SE SUPONE QUE DEBE DECIR???
NO SERIA
IF ERR.NUMBER <> 0 THEN
????

Response.write "No se ha podido enviar el mensaje."
else
response.write "Mensaje enviado, Gracias por utilizar nuestros servicios. En breves nos pondremos en contacto con usted."
end if

ser31 · #3 (**permalink**) 17/02/2005, 05:10

esa línea es por si se produjera un error, parece que es correcto por los tutoriales que he leido. el error que me da es error del servidor HTTP 500

sjam7 · #4 (**permalink**) 17/02/2005, 10:36

pues intenta cambiando la linea que te indican, puede ser eso o que algun campo este vacio

Zerg · #5 (**permalink**) 19/02/2005, 01:02

yo tengo funcionando un formulario web para correo electronico en

http://www.charlesdarwin.cl

lo puedes probar enviandome un correo a webmaster
desde el formulario

o bajalo de

http://linux.tecnicosenlinea.cl/down...iocontacto.zip
espero que te sirva

<html>
<head>
<title>Contacto Web</title>
</head>
<body bgcolor="#99CCFF" >
<%If request.form("enviar") = "" then
link=request.servervariables("HTTP_REFERER")%>
<FORM METHOD="POST" ACTION="contacto.asp">
<TABLE WIDTH="423" BORDER="0" CELLSPACING="1" CELLPADDING="1"
ALIGN="center" background="images/rayasgrises.gif">
<TR> <TD COLSPAN="3" width="415">
<DIV ALIGN="center">
<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<b>Contacto Web <br>
</b></font></DIV>
<DIV ALIGN="center"> </DIV>
</TD></TR>
<TR> <TD WIDTH="107"><font size="2" color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">
Nombre :</font></TD>
<TD WIDTH="4">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="292">
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="Nombre" SIZE="31">
</FONT></TD></TR> <TR> <TD WIDTH="107">
<font size="2" color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">
Email :</font></TD>
<TD WIDTH="4">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="292">
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT TYPE="text" NAME="tuemail" SIZE="31">
</FONT></TD></TR> <TR> <TD WIDTH="107">
<font color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif" size="2">
Ciudad :</font></TD>
<TD WIDTH="4" rowspan="4">
<FONT COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
</FONT></TD><TD WIDTH="292" align="left">
<input name="ciudad" type="text" id="ciudad" size="31"></TD></TR>
<TR>
<TD><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Fono y/o Fax: </font></TD>
<TD align="left"><FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT NAME="fonofax" TYPE="text" id="fonofax" SIZE="31">
</FONT></TD>
</TR>
<TR>
<TD><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Asunto : </font></TD>
<TD align="left"><FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT NAME="asunto" TYPE="text" id="asunto" value="Contacto Web" SIZE="31">
</FONT></TD>
</TR>
<TR> <TD WIDTH="107">
<font size="2" color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">
Contactos : </font></TD>
<TD WIDTH="292" align="left">
<FONT SIZE="2" COLOR="#000000" FACE="Verdana, Arial, Helvetica, sans-serif">
<select name="contactos" id="contactos">
<option value="[email protected]">Direcció n</option>
<option value="[email protected]">Webmaster</option>
</select>
</FONT></TD></TR> <TR> <TD WIDTH="107">
<font color="#0000FF">Comentarios:</font></TD>
<TD WIDTH="4"></TD><TD WIDTH="292">
<textarea rows="6" name="comentarios" cols="26"></textarea></TD></TR>
<TR> <TD COLSPAN="3" HEIGHT="50" width="415"> <DIV ALIGN="center">
<FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">
<input type="hidden" name="enviar" size="2" value="SI">
<input type="hidden" name="link" size="20" value="<%=link%>">
<INPUT TYPE="submit" NAME="sub" VALUE="Enviar">
 
</FONT></DIV></TD></TR> </TABLE>
</FORM>
<%End If%>
<p><%If request.form("enviar") = "SI" then%></p>
<P ALIGN="CENTER"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Gracias por su Contacto<br> Su Mensaje fue Enviado Correctamente <br>
</font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b></b></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></b></P>
<P ALIGN="CENTER"> 
<a href="javascript:close();">Cerrar
ventana</a></P>
<%strHost = "mail.pagina.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "[email protected]"

Mail.FromName = request.form("nombre")

Mail.AddReplyTo request.form("tuemail")

'response.write request.form("email1")

Mail.AddAddress request.form("contactos")
titulo=Request.form("asunto")&" "
Mail.Subject = titulo
Mail.IsHTML = True

mensaje="<html><head>"

mensaje=mensaje & "<title>Contacto - Charlesdarwin.cl</title>"&vbcrlf
mensaje=mensaje & " </head><body><div align=center>"&vbcrlf
mensaje=mensaje & " <center>"&vbcrlf
mensaje=mensaje & " <table border=0 width=500 cellpadding=0>"&vbcrlf
mensaje=mensaje & " <tr> <td >"&vbcrlf
mensaje=mensaje & " <p Align=center>Contacto Web </p>"&vbcrlf
mensaje=mensaje & " <p align=left>Nombre :"& Request.form("Nombre")&vbcrlf
mensaje=mensaje & " <p align=left>Email :<font color=#FF0000><a href=mailto:"&request.form("tuemail")&">"& Request.form("tuemail")&"</p></a></font>"&vbcrlf
mensaje=mensaje & " <p align=left>Ciudad :"& Request.form("ciudad")&vbcrlf
mensaje=mensaje & " <p align=left>Fono - Fax :"& Request.form("fonofax")&vbcrlf
mensaje=mensaje & " <p align=left>Asunto :"& Request.form("asunto")&vbcrlf
mensaje=mensaje & " <p align=left>Comentario :"& Request.form("comentarios")&vbcrlf
mensaje=mensaje & " <center><br>"&vbcrlf
mensaje=mensaje & " <br> Mensaje enviado desde <a href=http://www.charlesdarwin.cl>http://www.charlesdarwin.cl</a><br>"&vbcrlf
mensaje=mensaje & " Colegio Charlesdarwin.cl - Punta Arenas<br> </center</body></html>"&vbcrlf

Mail.Body = mensaje
Mail.Send %>

<%End If%>

</body>

</html>

ser31 · #6 (**permalink**) 28/02/2005, 03:51

Por fin hice funcionar mi aspemail incluido con validacionde campos
http://www.synapsaproyec.com/mail.asp

si quereis el codigo decirmelo. Gracias a todos me habeis ayudado muchisimo
Un saludo
Sergio

mathom · #7 (**permalink**) 28/02/2005, 04:00

Buenos días a todos. Resulta que tengo un problema similar y ya llevo dos días con el y no hay forma de sacarlo adelante. Mi problema viene dado por un formulario que no se me envía. La web no está colgada todavía y lo hago con un servidor virtual (utilizando el ISS 5.1). Cuando le doy a enviar formulario me aparece el siguiente error.

Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado: 'CreateObject'
/webs/marivent_local/contactar/envia.asp, línea 31

La linea 31 contiene lo siguiente:

Set objNewMail = CreateObject("CDONTS.NewMail")

Por lo que he estado averiguando creo que se trata de la configuración del IIS.

Si sois tan amables de decirme que es lo que me está ocurriendo....pues ya no se por donde echar.

Gracias

ser31 · #8 (**permalink**) 28/02/2005, 05:56

yo es que he utilizado ASPEMAIL que es otro componente para enviar email a través del servidor. Pregunta a tu proveedor de hosting si dispones de aspemail. Yo lo tengo hecho y funciona muy bien