Error con el objeto CDONTS

[goizgoiz]

Buenos días,

ME da error en la línea de codigo de
Set mailobj = Server.CreateObject("CDONTS.NewMail")
ME dice que es "Cadena clase no válida " No se, ¿me podeis ayudar?

Gracias


if vdepartamento="comercial" then
strBody="Tipo: "&vtipo&""
strBody=strBody & "<br>"
strBody=strBody & "<br>"
strBody=strBody & "Departamento: "&vdepartamento&""
strBody=strBody & "<br>"
strBody=strBody & "Tema: "&vtema&""
strBody=strBody & "<br>"
strBody=strBody & "Nombre: "&vnombre&""
strBody=strBody & "<br>"
strBody=strBody & "Email: "&vmail&""
strBody=strBody & "<br>"
strBody=strBody & "Telefono: "&vtel&""
strBody=strBody & "<br>"
strBody=strBody & "Fax: "&vfax&""
strBody=strBody & "<br>"
strBody=strBody & "Respuesta: "&vrespuesta&""
Set mailobj = Server.CreateObject("CDONTS.NewMail") ' Es aqui donde me da el error.
mailobj.from = "Hermanos Jimenez Gomez"
mailobj.to = "[email protected]"
mailobj.subject = "Hermanos Jimenez Gomez"
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body = strBody
mailobj.Send
set mailobj=nothing
Set mailobj=Server.CreateObject("CDONTS.NewMail")
mailobj.from = "[email protected]"
mailobj.to = vemail
mailobj.subject ="nombre: "&vnombre&""
mailobj.mailFormat = 0
mailobj.bodyFormat = 0
mailobj.body= "Hemos recibido su formulario correctamente. Gracias"
mailobj.Send
set mailobj=nothing

[David]

Lo más probable es q' tu Servidor no esté soportando el CDONTS...

[polaco83]

Y Como Puedo Ver Si El Servidor Soporta Cdonts, Hay Q Instalar Algo , Alguna Dll (cual Seria???)

[monkyta]

CDONTS.DLL debe de estar en : c:\windows\system32

[u_goldman]

Ademas, en sistemas superiores a Win2k, ya no se encuentra esta dll, en su lugar, deberias investigar sobre CDO.
Creo que por ahi hay post de Lexus en el que instala el CDONTS en un XP, pero si la descontinuaron fue principalemente por cuestiones de seguridad, ademas no encontraras ningun otro server con OS superior a 2k, con CDONTS, creo que son razones suficientes para ir con CDO.

Salu2,