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