NO ENVIA E-Mail
Publicado por NEURON (6 intervenciones) el 17/02/2005 19:15:10
Tengo el siguiente código que aparentemente envía el mensaje, pero nunca llega en el pero en la Carpeta Badmail aparecen unos archivos, tengo configurado IIS y S.O. es Windows XP Sp2.
El código es:
<FORM METHOD="POST" ACTION="neuron web/neuron.aspx">
Nombres: <INPUT NAME="Nombres" TYPE="text" SIZE="40" MAXLENGTH="50"><BR>
Apellidos: <INPUT NAME="Apellidos" TYPE="text" SIZE="40" MAXLENGTH="50"><BR>
Email: <INPUT NAME="Email" TYPE="text" SIZE="20" MAXLENGTH="50"><BR>
Teléfono: <INPUT NAME="Telefono" TYPE="text" SIZE="20" MAXLENGTH="50"><BR>
Celular: <INPUT NAME="Celular" TYPE="text" SIZE="20" MAXLENGTH="50"><BR>
Información Requerida:<BR> <TEXTAREA NAME="Mensaje" ROWS="4" COLS="30"></TEXTAREA><BR>
<INPUT TYPE="Submit" VALUE="Enviar Información">
</FORM>
<%
Email = Trim(Request.Form("emaildes"))
el_mensaje = "De: " & Nombres & " " & Apellidos & "comunicarse a los # : " & Telefono & ", " & Celular & " " & el_mensaje
Set Mail = Server.CreateObject ("CDONTS.Newmail")
Mail.From = Email
Mail.To = "[email protected]"
Mail.Subject = "Solicitud de Información"
Mail.Body = el_mensaje
Mail.Send
Set Mail = Nothing
%>
Lo necesito muy urgente.
De antemano muchas gracias.
El código es:
<FORM METHOD="POST" ACTION="neuron web/neuron.aspx">
Nombres: <INPUT NAME="Nombres" TYPE="text" SIZE="40" MAXLENGTH="50"><BR>
Apellidos: <INPUT NAME="Apellidos" TYPE="text" SIZE="40" MAXLENGTH="50"><BR>
Email: <INPUT NAME="Email" TYPE="text" SIZE="20" MAXLENGTH="50"><BR>
Teléfono: <INPUT NAME="Telefono" TYPE="text" SIZE="20" MAXLENGTH="50"><BR>
Celular: <INPUT NAME="Celular" TYPE="text" SIZE="20" MAXLENGTH="50"><BR>
Información Requerida:<BR> <TEXTAREA NAME="Mensaje" ROWS="4" COLS="30"></TEXTAREA><BR>
<INPUT TYPE="Submit" VALUE="Enviar Información">
</FORM>
<%
Email = Trim(Request.Form("emaildes"))
el_mensaje = "De: " & Nombres & " " & Apellidos & "comunicarse a los # : " & Telefono & ", " & Celular & " " & el_mensaje
Set Mail = Server.CreateObject ("CDONTS.Newmail")
Mail.From = Email
Mail.To = "[email protected]"
Mail.Subject = "Solicitud de Información"
Mail.Body = el_mensaje
Mail.Send
Set Mail = Nothing
%>
Lo necesito muy urgente.
De antemano muchas gracias.
Valora esta pregunta


0