Foros del Web » Programando para Internet » ASP Clásico »

No Llega Formulario Por Email

Estas en el tema de No Llega Formulario Por Email en el foro de ASP Clásico en Foros del Web. HOLA TENGO ESTE CODIGO: <html> <head> <title>enviaemail.asp</title> <%@language="vbscript"%> </head> <body> <% Dim Nombres, Apellidos, Telefono, Email, Comentarios, OBJ_EMAIL Nombres = Request.Form("Nombres") Apellidos = Request.Form("Comentarios") Telefono ...
  #1 (permalink)  
Antiguo 23/12/2004, 12:05
 
Fecha de Ingreso: noviembre-2004
Mensajes: 496
Antigüedad: 20 años, 6 meses
Puntos: 0
Exclamación No Llega Formulario Por Email

HOLA TENGO ESTE CODIGO:
<html>
<head>
<title>enviaemail.asp</title>
<%@language="vbscript"%>
</head>
<body>
<%

Dim Nombres, Apellidos, Telefono, Email, Comentarios, OBJ_EMAIL


Nombres = Request.Form("Nombres")
Apellidos = Request.Form("Comentarios")
Telefono = Request.Form("Telefono")
Email = Request.Form("Email")
Comentarios = Request.Form("Comentarios")

Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")

OBJ_EMAIL.From = "[email protected]"
OBJ_EMAIL.To = "[email protected]"
OBJ_EMAIL.Subject = "Matricula"
OBJ_EMAIL.Body = Nombres & ":" & Apellidos & ":" & Telefono & ":" & Email & ":" & Comentarios
OBJ_EMAIL.Send 'Envia el mail


Set OBJ_EMAIL = Nothing


Response.Write "Gracias por Preferencia"
%>

</BODY>
</HTML>
PERO NO LLEGA EL EMAIL AL DESTINATARIO.
CUAL SERA EL ERROR
  #2 (permalink)  
Antiguo 23/12/2004, 12:22
 
Fecha de Ingreso: diciembre-2004
Ubicación: Bs. As. - Argentina
Mensajes: 200
Antigüedad: 20 años, 5 meses
Puntos: 0
Hasta donde yo se, para que funcione el cdonts, precisas tenr un smtp en la maquina donde esta corriendo el IIS. Asegurate que exista.
Si no podes habilitarlo, podes usar CDO que te permite indicar un SMTP fuera de la misma maquina.
Otra cosa que te puede pasar es que tu proveedor de hosting no te permita enviar mails con un remitente distinto al de sisito (he visto que usas hotmail)

Espero se entienda.......
__________________
Javo.
www.thesitewatcher.com
Monitoreo y Auditoría de Sitios de Internet
  #3 (permalink)  
Antiguo 24/12/2004, 05:32
 
Fecha de Ingreso: diciembre-2004
Mensajes: 15
Antigüedad: 20 años, 4 meses
Puntos: 0
Hola,
Javo tiene razón con lo del servidor. Deberia probar con CDO.

Prueba con esto: 2 paginas, 1 html y otras asp:

HTML:
Código:
<form method="post" action="envia.asp" name="Formulario">
<table>
<tr>
<tdwidth="48%">De</td>
<tdwidth="52%"> <input type="text" name= "De"size="20"></td>
</tr>
<tr>
<tdwidth="48%">Para</td>
<tdwidth="52%"><input type="text" name= "Para"size="20"></td>
</tr>
<tr>
<tdwidth="48%">Asunto</td>
<tdwidth="52%"><input type="text" name= "Asunto"size="20"></td>
</tr>
<tr>
<tdwidth="48%">Mensaje</td>
<tdwidth="52%"><input type="text" name= "Mensaje"size="20"></td>
</tr>
<tr>
<tdwidth="48%"><input type="submit" value="Evniar" name="B1">
<input type="reset" value="Borrar" name="B2">
</td>
<tdwidth="52%"> </td>
</tr>
</table>
</form>
ASP:
'Primero declaramos las variables
<%
Dim strDe
Dim strPara
Dim strAsunto
Dim strMensaje
Dim objCDOMail 'El objecto CDO

'Primero leemos los datos del formulario y los asignamos a las variables
strDe = Request.Form("De")
strPara = Request.Form("Para")
strAsunto = Request.Form("Asunto")
strMensaje = Request.Form("Mensaje") < /FONT>

'Creamos una instancia del objeto NewMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail") < /FONT>

'Asignamos las propiedades al objeto
objCDOMail.From = StrDe 'Pudiera ser tambien "[email protected]"
objCDOMail.To = strPara
objCDOMail.Subject = strAsunto
objCDOMail.Body = strMensaje< /FONT > < /FONT>

'Existen otras propiedades del objeto
'Se puede enviar HTML, Adjuntar archivos, etc..
'Tambien se pueden modificar otros aspectos del mensaje
'como importancia, encabezados personalizados.......
'he aqui algunos de los mas importantes:
'objCDOMail.Cc = "[email protected];[email protected]" Notese que se esta enviando a mas de una persona
'objCDOMail.Bcc = "[email protected];[email protected]"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) Importancia
'objCDOMail.AttachFile "c:\path\archivo.txt", "Archivo.txt" Archivo Adjunto


'Finalmente enviamos el mensaje
objCDOMail.Send

'Tenemos que poner la propiedad Nothing al objeto ya que inmediatamente se vuelve invalido
'y libera la memoria del servidor
Set objCDOMail= Nothing
[/code]

Esto está sacado de un post de otro foro y a mí me funciona.
Eso sí, tengo un servicio SMTP corriendo del lado del SErvidor.

Espero que sirva.

Gracias, y FELIZ NAVIDAD
  #4 (permalink)  
Antiguo 24/12/2004, 08:30
 
Fecha de Ingreso: noviembre-2004
Mensajes: 496
Antigüedad: 20 años, 6 meses
Puntos: 0
Cita:
Iniciado por leoninono2
Hola,
Javo tiene razón con lo del servidor. Deberia probar con CDO.

Prueba con esto: 2 paginas, 1 html y otras asp:

HTML:
Código:
<form method="post" action="envia.asp" name="Formulario">
<table>
<tr>
<tdwidth="48%">De</td>
<tdwidth="52%"> <input type="text" name= "De"size="20"></td>
</tr>
<tr>
<tdwidth="48%">Para</td>
<tdwidth="52%"><input type="text" name= "Para"size="20"></td>
</tr>
<tr>
<tdwidth="48%">Asunto</td>
<tdwidth="52%"><input type="text" name= "Asunto"size="20"></td>
</tr>
<tr>
<tdwidth="48%">Mensaje</td>
<tdwidth="52%"><input type="text" name= "Mensaje"size="20"></td>
</tr>
<tr>
<tdwidth="48%"><input type="submit" value="Evniar" name="B1">
<input type="reset" value="Borrar" name="B2">
</td>
<tdwidth="52%"> </td>
</tr>
</table>
</form>
ASP:
'Primero declaramos las variables
<%
Dim strDe
Dim strPara
Dim strAsunto
Dim strMensaje
Dim objCDOMail 'El objecto CDO

'Primero leemos los datos del formulario y los asignamos a las variables
strDe = Request.Form("De")
strPara = Request.Form("Para")
strAsunto = Request.Form("Asunto")
strMensaje = Request.Form("Mensaje") < /FONT>

'Creamos una instancia del objeto NewMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail") < /FONT>

'Asignamos las propiedades al objeto
objCDOMail.From = StrDe 'Pudiera ser tambien "[email protected]"
objCDOMail.To = strPara
objCDOMail.Subject = strAsunto
objCDOMail.Body = strMensaje< /FONT > < /FONT>

'Existen otras propiedades del objeto
'Se puede enviar HTML, Adjuntar archivos, etc..
'Tambien se pueden modificar otros aspectos del mensaje
'como importancia, encabezados personalizados.......
'he aqui algunos de los mas importantes:
'objCDOMail.Cc = "[email protected];[email protected]" Notese que se esta enviando a mas de una persona
'objCDOMail.Bcc = "[email protected];[email protected]"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) Importancia
'objCDOMail.AttachFile "c:\path\archivo.txt", "Archivo.txt" Archivo Adjunto


'Finalmente enviamos el mensaje
objCDOMail.Send

'Tenemos que poner la propiedad Nothing al objeto ya que inmediatamente se vuelve invalido
'y libera la memoria del servidor
Set objCDOMail= Nothing
[/code]

Esto está sacado de un post de otro foro y a mí me funciona.
Eso sí, tengo un servicio SMTP corriendo del lado del SErvidor.

Espero que sirva.

Gracias, y FELIZ NAVIDAD
gracias por la ayuda, pero si tengo un formulario con los campos nombre, apellido, telefono, comentarios como haria para que estos aparesca en el body del mensaje
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:50.