error con CDONTS

[pitxulin]

Buenas:

Tengo el siguiente código:

<%
Dim objCDO
Set objCDO = Server.CreateObject("Cdonts.NewMail")
objCDO.From = "tucorreo"
objCDO.To = "[email protected]"
objCDO.Subject = "Titulo del Correo"
strBody = "Texto del mensaje"
objCDO.Body = strBody
objCDO.Send
Set objCDO = Nothing
%>

En la línea del Send me da el siguiente error:

error '80070003'
El sistema no ha encontrado la ruta de acceso especificada.



¿Por qué puede ser?

Gracias

[mft]

mira, una puede ser que donde está el from, no le pongas el mail sino nada mas el nombre, esa puede ser una razón. ahora, te envío mi código tal cual y ami me funciona muy bien.

Pero eso si, en el "from" y el "to" tienen que ser ser a fuerzas direcciones de correo (Email) sino no te hace ningún envío.

ahi te va:



set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From = Request.Form("De")
objCDOMail.To = Request.Form("Para")
objCDOMail.Subject = Request.Form("Asunto")
objCDOMail.Body = request.form("mensaje")
objCDOMail.Send

Set objCDOMail= Nothing



Espero te sirva de algo!!

saludos

MFT