Como se que CDONTS funciona????

8461277 · #1 (**permalink**) 24/11/2003, 06:55

Amigo hice un formulario en donde recogo datos de mis usuarios que quieren mandarme sus comentarios, y la recojo en una pagina asp, con esta caracteristica:

<%
'Recupero los datos del formulario
nombre=Request.Form("nombre")
response.write (nombre)
email=Request.Form("email")
response.write (email)
asunto=Request.Form("asunto")
response.write (asunto)
mensaje=Request.Form("mensaje")
response.write (mensaje)

'Creo el objeto que envia el correo
Set NewMail=server.CreateObject("CDONTS.Newmail")
NewMail.From=email
NewMail.To="[email protected]"
NewMail.Subject=asunto
NewMail.Body=mensaje
NewMail.Send
Set NewMail=nothing
%>
<html><head><title>Titulo</title></head>
<body>
Muchas gracias por su mensaje
</body>
</html>

Al finalizar me dice: Muchas gracias por su mensaje, y creo que se ha enviado, PERO NO ME LLEGA AL CORREO Y LO QUE QUIERTO SABER SI EL CDONTS FUNCIONA, tengo win xp profesional (yo baje el cdonts lo instale y registre, ya que se que este win no lo trae)

Estoy haciendo algo mal, o hay otra manera de que mis usuarios me mande mensaje a mi correo

Miguel

bakanzipp · #2 (**permalink**) 24/11/2003, 08:37

coloca estas lineas antes de enviar tu correo

On Error resume Next
NewMail.Send

If err.number<>0 then
response.write err.description
response.end
else%>
<html><head><title>Titulo</title></head>
<body>
Muchas gracias por su mensaje
</body>
</html>
<%Set NewMail=nothing%>

es posible que tus correos se esten encolando si no tienes un servidor de correo activo en tu pc.

saludos

8461277 · #3 (**permalink**) 24/11/2003, 08:46

Segui tu consejo y lo coloque asi:

<%
'Recupero los datos del formulario
nombre=Request.Form("nombre")
response.write (nombre)
email=Request.Form("email")
response.write (email)
asunto=Request.Form("asunto")
response.write (asunto)
mensaje=Request.Form("mensaje")
response.write (mensaje)

'Creo el objeto que envia el correo
Set NewMail=server.CreateObject("CDONTS.Newmail")
NewMail.From=email
NewMail.To="[email protected]"
NewMail.Subject=asunto
NewMail.Body=mensaje
'NewMail.Send
On Error resume Next
NewMail.Send

If err.number<>0 then
response.write err.description
response.end
else%>
<html><head><title>Titulo</title></head>
<body>
Muchas gracias por su mensaje
</body>
</html>
<%Set NewMail=nothing%>

Y me dice esto:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03F6)
Se esperaba 'End'
/asp/envio_e_mail-2.asp, línea 31

sera que no lo coloque bien, me puedes explicar lo que sucede

Miguel

Mike1304 · #4 (**permalink**) 24/11/2003, 08:46

tienes activo el servicio de smtp en tu maquina donde tienes tus .asp?

bakanzipp · #5 (**permalink**) 24/11/2003, 08:51

jajaja...me falto un end

If err.number<>0 then
response.write err.description
response.end
else%>
<html><head><title>Titulo</title></head>
<body>
Muchas gracias por su mensaje
</body>
</html>
<%end%>
<%Set NewMail=nothing%>

8461277 · #6 (**permalink**) 24/11/2003, 09:01

bakanzipp, tambien te faltaba end if, pero ya lo coloque y me dice que se ha enviado, es decir:

[email protected]ruebaLo logre Muchas gracias por su mensaje

Es igual cuando lo tenia como al principio de estos mensajes en el foro.

La pregunta es que llegaran???? al correo especificado dentro de la pgina asp que redirige la informacion a mi correo??????

Tambien quiero saber lo que me pregunta mike1304:

tienes activo el servicio de smtp en tu maquina donde tienes tus .asp?

Mis paginas esta en mi servidor local 127.0.0.1, pero que quiere decir con que mi servicio smtp esta activo????

Miguel

bakanzipp · #7 (**permalink**) 24/11/2003, 09:07

bueno eso.

Para que tus correos salgan fuera de tu pc debes tener un servicio SMTP activo, sino quedaran encolados en tu maquina y nunca saldran.

para probar cdont debes tener habilitado tu servidor de correos y tener internet activo.

sino puedes colgarte al servidor de tu proveedor (con internet habilitado tb para ver el servidor de correos de tu provevedor).

el codigo que te puse era para reafirmar que el cdont esta OK.

saludos

8461277 · #8 (**permalink**) 24/11/2003, 09:29

Ya esta llego, gracias por la ayuda, espero contar siempre contigo y los demas del foro.

Miguel