Enviar E-Mail = Error 550...
Publicado por Javier (1 intervención) el 03/04/2006 16:40:17
Muy buenas. Les comento que tengo un problema al querer enviar datos de un pequeño formulario a través de ASP. Estuve mirando el foro completo y busqué información en Internet también. Me dijeron que el código que uso está correcto, paso a escribirlo:
formulario.html
<HTML>
<HEAD>
<TITLE>Formulario</TITLE>
</HEAD>
<BODY>
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="80%" ALIGN="center" BORDER="1">
<TBODY>
<TR>
<TD><BR>
<FORM METHOD="post" ACTION="envio.asp" NAME="Formulario">
<P ALIGN="center">
<B>Nombre: </B><INPUT TYPE="text" NAME="nombre" SIZE="50">
</P>
<P Align="center">
<B>Apellido: </B><INPUT TYPE="text" NAME="apellido" SIZE="10">
</P>
<P ALIGN="center">
<B>Comentarios: </B><BR>
<TEXTAREA NAME="comenta" ROWS="5" COLS="50"></TEXTAREA>
</P>
<P ALIGN="center">
<INPUT TYPE="submit" VALUE="Enviar">
<INPUT type="reset" VALUE="Borrar">
<P></P>
</FORM>
</TD>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
--------------------
envio.asp
<%
De = Request.Form("apellido")
Para = "[email protected]"
Asunto = "Asunto..."
Set jMail = Server.CreateObject("CDONTS.NewMail")
jMail.From = De
jMail.AddAddress Para
jMail.Subject= Asunto
jMail.IsHTML = True
jMail.Body = "<html><head><title>Página</title><style>body { font-size:11pt; font-family:garamond, arial;}</style></head>
<body bgcolor="#FFFFFF" text="#000000"><p><strong>Elección generada desde...</strong></p><h3><strong>Datos:</strong></h3><table border=3 cellspacing=1 cellpadding=6 bordercolor=#000000><tr><td>Apellido</td><td>" & apellido & "</td></tr><tr><td>Nombre</td><td>" & nombre & "</td></tr></table><br><br><h3><strong>Comentarios...</strong></h3><ta ble border=3 cellspacing=1 cellpadding=6 bordercolor=#000000><tr><td>" & comenta & "</td></tr></table></body></html>"
jMail.Send
Set jMail = Nothing
%>
<html>
<head>
<title>Página</title>
<meta http-equiv="Refresh" content="5; url=index.html">
</head>
<body>
<br><br>
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0">
<tbody>
<tr>
<td align="center">Datos..</td>
</tr>
</tbody>
</table>
<br>
<br>
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0">
<tbody>
<tr>
<td class="letra5" align="center">En 5 segundos regresa a la página de origen...</td>
</tr>
</tbody>
</table>
</body>
</html>
El tema es que cuando realizo el envío, el servidor me devuelve "HTTP 500 - Error interno del servidor ". Estoy probando unas páginas en ********.com y es ahí dónde me tira ese error. Consulté con la mesa de ayuda y lo único que me respondieron fue con un código que me dicen que funciona muy bien pero que no tengo idea como implementarlo a lo que yo ya tengo:
<%@LANGUAGE="VBSCRIPT" %>
<%
'on error resume next
'Envia el mail.
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'Local service (dont change)
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /sendus
ing") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /smtpse
rver") = "http://127.0.0.1"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /smtpco
nnectiontimeout") = 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /smtpse
rverport") = 25
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /sendus
ername") = "" 'usuario smtp
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /sendpa
ssword") = "" 'password para STMP
iConf.Fields.Update
Set oMail.Configuration = iConf
oMail.To = recipients
oMail.From = "" 'mail desde donde envia
oMail.Subject = subject
oMail.TextBody = Body
oMail.Send
Set iConf = Nothing
Set Flds = Nothing
%>
Gracias desde ya...
formulario.html
<HTML>
<HEAD>
<TITLE>Formulario</TITLE>
</HEAD>
<BODY>
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="80%" ALIGN="center" BORDER="1">
<TBODY>
<TR>
<TD><BR>
<FORM METHOD="post" ACTION="envio.asp" NAME="Formulario">
<P ALIGN="center">
<B>Nombre: </B><INPUT TYPE="text" NAME="nombre" SIZE="50">
</P>
<P Align="center">
<B>Apellido: </B><INPUT TYPE="text" NAME="apellido" SIZE="10">
</P>
<P ALIGN="center">
<B>Comentarios: </B><BR>
<TEXTAREA NAME="comenta" ROWS="5" COLS="50"></TEXTAREA>
</P>
<P ALIGN="center">
<INPUT TYPE="submit" VALUE="Enviar">
<INPUT type="reset" VALUE="Borrar">
<P></P>
</FORM>
</TD>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
--------------------
envio.asp
<%
De = Request.Form("apellido")
Para = "[email protected]"
Asunto = "Asunto..."
Set jMail = Server.CreateObject("CDONTS.NewMail")
jMail.From = De
jMail.AddAddress Para
jMail.Subject= Asunto
jMail.IsHTML = True
jMail.Body = "<html><head><title>Página</title><style>body { font-size:11pt; font-family:garamond, arial;}</style></head>
<body bgcolor="#FFFFFF" text="#000000"><p><strong>Elección generada desde...</strong></p><h3><strong>Datos:</strong></h3><table border=3 cellspacing=1 cellpadding=6 bordercolor=#000000><tr><td>Apellido</td><td>" & apellido & "</td></tr><tr><td>Nombre</td><td>" & nombre & "</td></tr></table><br><br><h3><strong>Comentarios...</strong></h3><ta ble border=3 cellspacing=1 cellpadding=6 bordercolor=#000000><tr><td>" & comenta & "</td></tr></table></body></html>"
jMail.Send
Set jMail = Nothing
%>
<html>
<head>
<title>Página</title>
<meta http-equiv="Refresh" content="5; url=index.html">
</head>
<body>
<br><br>
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0">
<tbody>
<tr>
<td align="center">Datos..</td>
</tr>
</tbody>
</table>
<br>
<br>
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0">
<tbody>
<tr>
<td class="letra5" align="center">En 5 segundos regresa a la página de origen...</td>
</tr>
</tbody>
</table>
</body>
</html>
El tema es que cuando realizo el envío, el servidor me devuelve "HTTP 500 - Error interno del servidor ". Estoy probando unas páginas en ********.com y es ahí dónde me tira ese error. Consulté con la mesa de ayuda y lo único que me respondieron fue con un código que me dicen que funciona muy bien pero que no tengo idea como implementarlo a lo que yo ya tengo:
<%@LANGUAGE="VBSCRIPT" %>
<%
'on error resume next
'Envia el mail.
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'Local service (dont change)
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /sendus
ing") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /smtpse
rver") = "http://127.0.0.1"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /smtpco
nnectiontimeout") = 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /smtpse
rverport") = 25
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /sendus
ername") = "" 'usuario smtp
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration /sendpa
ssword") = "" 'password para STMP
iConf.Fields.Update
Set oMail.Configuration = iConf
oMail.To = recipients
oMail.From = "" 'mail desde donde envia
oMail.Subject = subject
oMail.TextBody = Body
oMail.Send
Set iConf = Nothing
Set Flds = Nothing
%>
Gracias desde ya...
Valora esta pregunta
0