15/05/2003, 03:29
| |||
| |||
| Enviar email a la vez que introducir datos en Base de Datos Muy buenas!! Estoy desarrollando una web en la que quiero que desde un mismo formulario, esto es, al hacer click en el botón 'Enviar', introduzca los datos del formulario en una base de datos y a la vez, mande una mensaje de correo electrónico. ¿Puedo hacer las dos cosas a la vez?¿Cómo? Al intentar enviar una mensaje con CDONTS, me sale el mensaje de error: Error de Microsoft VBScript en tiempo de ejecución error '800a0046' . ¿Cómo lo puedo solucionar? Muchas gracias. |
|
15/05/2003, 03:53
| |||
| |||
| Perdona que nome haya explicado bien. Lo que cuento en el mensaje anterior es lo que quiero hacer, pero el error de arriba me da cuando mando una mail desde una página en blanco, en la que hago la prueba: esto es, creo una página en la que al cargar quiero que me envíe un men saje de prueba, nada especial. El código de envío de error es el siguiente: <%@LANGUAGE="VBSCRIPT"%> <% Dim OBJ_EMAIL 'Creación del objeto para enviar el correo Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail") 'OJO: También puedes colocar variables en correoDestino, correoOrigen, titulo y cuerpo. OBJ_EMAIL.From = "email" cambio por una dir OBJ_EMAIL.To = "email" cambio por una dir OBJ_EMAIL.Subject = "titulo" OBJ_EMAIL.Body ="cuerpo" ' Cuerpo del mensaje OBJ_EMAIL.Send 'Envia el mail 'Cierra el Objeto Set OBJ_EMAIL = Nothing %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <% Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail") %> </body> </html> Muchas gracias!! |
|
15/05/2003, 04:47
| ||||
| ||||
| si este es exactamente el codigo con el que está probando tienes un problema con estas dos lineas OBJ_EMAIL.From = "email" cambio por una dir OBJ_EMAIL.To = "email" cambio por una dir ya que les falta el apostrofe ( ' ) del comentario. |
|
15/05/2003, 05:06
| ||||
| ||||
| Por lo que he leido este error se puede producir si el usuario "ANONIMO" no tiene permisos de escritura en la carpetas que usa el servicio smtp. mas informacion (en inglés) en http://support.microsoft.com/support...NoWebContent=1 ez dago zergaitik... jeje |
|
15/05/2003, 06:43
| |||
| |||
| Pues no sé, prueba así: <%@LANGUAGE="VBSCRIPT"%> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> 'Aquí recoges tus datos del formulario y los guardas en la BDs 'Una vez guardados envias el correo <% Dim OBJ_EMAIL,sCuerpo set OBJ_EMAIL= Server.CreateObject("CDONTS.NewMail") sCuerpo = "yo aquí pongo el código html"& VbCrLf sCuerpo = sCuerpo & "archivos guardados"& Nombre &"."& VbCrLf sCuerpo = sCuerpo & VbCrlf & VbCrLf & "Aquí el final del html, para que quede más bonito el correo, jeje" mailObj.BodyFormat = 0 mailObj.MailFormat = 0 mailObj.From = "[email protected]" mailObj.To = "[email protected]" mailObj.Subject = "Datos introducidos correctamente" mailObj.Body = sCuerpo mailObj.Send %> 'Aquí o bien pones lo que quieras que aparezca después 'o bien un response.redirect </body> </html> Espero que te sirva de algo. Un saludo |
|
15/05/2003, 09:08
| |||
| |||
| Muchas gracias por vuestra ayuda, pero el fallo que me da es el siguiente: Error de Microsoft VBScript en tiempo de ejecución error '800a0046' Permiso denegado /intranet/Emaill1.asp, line 27 ¿cómo puedo hacer que me permita enviar el mail? Muchisimas gracias. |
|
15/05/2003, 09:56
| |||
| |||
| Si, pero no me entero porque voy a la carpeta Pickup (selecciono y doy botón derecho como viene en los pasos) y no hay ninguna opción Security, ni por lo tanto, de Permissions en Security (punto 3), hay cuatro opciones de las cuales dos son: Compartir y Uso Compartido del Web, entonces me quedo 'bloquedo' sin saber lo que hacer. Las otras dos son: Generaly Personalizar. ¿Qué podría hacer? Gracias y eskerrik asko!!! |
