error al enviar la info de un formulario x correo
Publicado por julian (2 intervenciones) el 03/04/2009 16:13:43
Buen dia.
les agradeceria si pueden colaborarme con el siguiente problema. estoy intentando enviar la informacion que capturo en un formulario por correo, pero me ha puesto muchos problemas y este no lo he podido solucionar. es algo urgenge.
gracias de antemano.
me dice que tengo lo siguiente:
Tipo de error:
Objeto Server, ASP 0178 (0x80070005)
Error en la llamada a Server.CreateObject al comprobar permisos. Se ha denegado el acceso a este objeto.
/mail.asp, línea 26
Este es el codigo:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title></title>
</head>
<body>
<%
'Creación de variables para almacenar los campos del formulario
Nombre= Request.Form("nom")
Empresa= Request.Form("emp")
Sugerencias= Request.Form("sug")
strTo = "[email protected]" ' Esta es una dirección que corresponda a nuestro servidor
strSubject = "Envio de sugerencias de: " & Nombre
strBody = "<html><body>"
strBody = strBody & "Este es un mensaje generado por el formulario:" & "<br><br>"
strBody = strBody & "Nombre: "& Nombre &"<br>"
strBody = strBody & "Empresa: "& Empresa &"<br>"
strBody = strBody & "Sugerencias: "& Sugerencias &"<br>"
strBody = strBody & "</body></html>"
'aca esta el error
Set objCDOMail =server.CreateObject("CDONTS.NewMail") 'Creación del objeto
objCDOMail.From = "[email protected]" 'No hay problema en que sea la misma que la anterior.
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.BodyFormat=0 'Estas dos línes
objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje
objCDOMail.Body = strBody
objCDOMail.Send 'Envía el mail
Set objCDOMail = Nothing
'Response.redirect "gracias.html"
' O bien podemos ahorrar una página y escribir algo como
Response.write "Gracias por enviarnos sus sugerencias"
%>
</body>
</html>
les agradeceria si pueden colaborarme con el siguiente problema. estoy intentando enviar la informacion que capturo en un formulario por correo, pero me ha puesto muchos problemas y este no lo he podido solucionar. es algo urgenge.
gracias de antemano.
me dice que tengo lo siguiente:
Tipo de error:
Objeto Server, ASP 0178 (0x80070005)
Error en la llamada a Server.CreateObject al comprobar permisos. Se ha denegado el acceso a este objeto.
/mail.asp, línea 26
Este es el codigo:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title></title>
</head>
<body>
<%
'Creación de variables para almacenar los campos del formulario
Nombre= Request.Form("nom")
Empresa= Request.Form("emp")
Sugerencias= Request.Form("sug")
strTo = "[email protected]" ' Esta es una dirección que corresponda a nuestro servidor
strSubject = "Envio de sugerencias de: " & Nombre
strBody = "<html><body>"
strBody = strBody & "Este es un mensaje generado por el formulario:" & "<br><br>"
strBody = strBody & "Nombre: "& Nombre &"<br>"
strBody = strBody & "Empresa: "& Empresa &"<br>"
strBody = strBody & "Sugerencias: "& Sugerencias &"<br>"
strBody = strBody & "</body></html>"
'aca esta el error
Set objCDOMail =server.CreateObject("CDONTS.NewMail") 'Creación del objeto
objCDOMail.From = "[email protected]" 'No hay problema en que sea la misma que la anterior.
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.BodyFormat=0 'Estas dos línes
objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje
objCDOMail.Body = strBody
objCDOMail.Send 'Envía el mail
Set objCDOMail = Nothing
'Response.redirect "gracias.html"
' O bien podemos ahorrar una página y escribir algo como
Response.write "Gracias por enviarnos sus sugerencias"
%>
</body>
</html>
Valora esta pregunta
0