Problema Cdont Permission denied
hola deseo realizar una pagina que mande un correo electronico y me manda el error de "Permission Denied", me hace falta algo o en el servidor me tienen que dar algun tipo de acceso?? les mando el codigo que consegui en una pagina y si algo esta mal el error me lo marca en el Send
Dim sDestintatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO
sAsunto="E-Mail de prueba desde ASP"
'Creamos el cuerpo con varias líneas para facilitar la lectura
sCuerpo = "Este es mi primer mensaje enviado desde ASP."
sDestinatario="[email protected]"
'Enviamos el email
set oMail=Server.CreateObject("CDONTS.NewMail")
'Establecemos las propiedades del objeto
oMail.From = "[email protected]" 'Pon aquí tu mombre y dirección
oMail.To = "[email protected]"
oMail.Subject = "Hola"
oMail.Body = "Esta es una prueba"
' Enviamos el email!
oMail.send
set oMail = nothing
'Response.Write ("Mensaje enviado.")
Dim sDestintatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO
sAsunto="E-Mail de prueba desde ASP"
'Creamos el cuerpo con varias líneas para facilitar la lectura
sCuerpo = "Este es mi primer mensaje enviado desde ASP."
sDestinatario="[email protected]"
'Enviamos el email
set oMail=Server.CreateObject("CDONTS.NewMail")
'Establecemos las propiedades del objeto
oMail.From = "[email protected]" 'Pon aquí tu mombre y dirección
oMail.To = "[email protected]"
oMail.Subject = "Hola"
oMail.Body = "Esta es una prueba"
' Enviamos el email!
oMail.send
set oMail = nothing
'Response.Write ("Mensaje enviado.")
Realmente, no estoy seguro de cual es el problema, pero puede radicar en el servidor.
Te cuento lo que me paso a mi.
Tengo un ASP que manda mails personalizados. Andaba bien hasta que un dia dejo de mandar los mails, si bien no me daba error.
Descubri que el problema era que yo habia cambiado la direccion de remitente que le daba al CDONT y esa direccion no existia en el servidor de mail desde el que los mandaba, asi que puse en el FROM la direccion real y se soluciono.
Te mando este codigo:
Response.flush
Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.MailFormat = 0
Mail.BodyFormat = 0
Mail.From = Request("MailFrom")
Mail.To = Request("MailTo")
Mail.CC = Request("MailCC")
Mail.BCC = Request("MailBCC")
Mail.Subject = Request("MailSubject")
Mail.Body = "<html><body>" & Request("MailBody") & "</body></html>"
Mail.Send
Set Mail = Nothing
Llamas a este codigo desde una pagina con un formulario que envia las variables que ves en los REQUEST.
El unico requisito es que el servidor donde se ejecuta el ASP pueda mandar mails (y que la direccion del FROM sea real). De hecho hice este codigo para probar en que casos los mandaba y en cuales no.
Un abrazo y espero que se solucione tu problema.
Te cuento lo que me paso a mi.
Tengo un ASP que manda mails personalizados. Andaba bien hasta que un dia dejo de mandar los mails, si bien no me daba error.
Descubri que el problema era que yo habia cambiado la direccion de remitente que le daba al CDONT y esa direccion no existia en el servidor de mail desde el que los mandaba, asi que puse en el FROM la direccion real y se soluciono.
Te mando este codigo:
Response.flush
Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.MailFormat = 0
Mail.BodyFormat = 0
Mail.From = Request("MailFrom")
Mail.To = Request("MailTo")
Mail.CC = Request("MailCC")
Mail.BCC = Request("MailBCC")
Mail.Subject = Request("MailSubject")
Mail.Body = "<html><body>" & Request("MailBody") & "</body></html>"
Mail.Send
Set Mail = Nothing
Llamas a este codigo desde una pagina con un formulario que envia las variables que ves en los REQUEST.
El unico requisito es que el servidor donde se ejecuta el ASP pueda mandar mails (y que la direccion del FROM sea real). De hecho hice este codigo para probar en que casos los mandaba y en cuales no.
Un abrazo y espero que se solucione tu problema.