04/03/2002, 05:23
| ||||
| ||||
| Mandar e-mail Hola, Tengo en una tabla de una base de datos un campo llamado mail en el queguardo direcciones de e-mail ¿Cómo puedo mandar 1 e-mail a cada una de esas direcciones que tenga automáticamente cuando pulse un botón o algo? ¿Tienen algun ejemplo? Saludos Laika |
|
04/03/2002, 06:01
| |||
| |||
| Re: Mandar e-mail Algo asi <% SQL="SELECT mail FROM SUSCRIPCION order by id" Set Rs = Conexion.Execute(SQL) Do while not rs.eof Correo = Rs("mail") HTML = HTML & "<html>" & chr(13) HTML = HTML & "<head>" & chr(13) HTML = HTML & "<title>Tu titulo</title>" & chr(13) HTML = HTML & "<body>" & chr(13) HTML = HTML & "Prueba" & chr(13) HTML = HTML & "</body>" & chr(13) HTML = HTML & "</html>" & chr(13 set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From ="[email protected]" objCDOMail.To =Correo objCDOMail.Subject = "Envio de mail" objCDOMail.BodyFormat=0 'Estas dos línes objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje objCDOMail.Body = HTML objCDOMail.Send 'Lo Enmvio Set objCDOMail = Nothing rs.movenext loop %> Salud ;) s |
|
04/03/2002, 06:03
| |||
| |||
| Re: Mandar e-mail ufff, perdon en vez de crear y destruir el objeto dentro del bule, hazlo solo una vez algo asi: <% SQL="SELECT mail FROM SUSCRIPCION order by id" Set Rs = Conexion.Execute(SQL) set objCDOMail = Server.CreateObject("CDONTS.NewMail") Do while not rs.eof Correo = Rs("mail") HTML = HTML & "<html>" & chr(13) HTML = HTML & "<head>" & chr(13) HTML = HTML & "<title>Tu titulo</title>" & chr(13) HTML = HTML & "<body>" & chr(13) HTML = HTML & "Prueba" & chr(13) HTML = HTML & "</body>" & chr(13) HTML = HTML & "</html>" & chr(13 objCDOMail.From ="[email protected]" objCDOMail.To =Correo objCDOMail.Subject = "Envio de mail" objCDOMail.BodyFormat=0 'Estas dos línes objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje objCDOMail.Body = HTML objCDOMail.Send 'Lo Enmvio rs.movenext loop Set objCDOMail = Nothing %>  Suerte |
|
04/03/2002, 12:29
| ||||
| ||||
| Re: Mandar e-mail Hola, Me da este error: Error de Microsoft VBScript en tiempo de ejecución error '800a01a8' Se requiere un objeto: '' /newsletter2.asp, line 12 LA LINEA 12 ES ESTA: Set Rs = Conexion.Execute(SQL) ¿Me pueden ayudar con este fallo? Gracias Laika |
|
04/03/2002, 12:30
| ||||
| ||||
| Re: Mandar e-mail Hola, Me da este error: Error de Microsoft VBScript en tiempo de ejecución error '800a01a8' Se requiere un objeto: '' /newsletter2.asp, line 12 LA LINEA 12 ES ESTA: Set Rs = Conexion.Execute(SQL) ¿Me pueden ayudar con este fallo? Gracias Laika |
|
05/03/2002, 06:00
| |||
| |||
| Re: Mandar e-mail Claro al inicio de la pagina tienes que poner como te conectas a la base de datos algo del tipo: Set Conexion = Server.CreateObject("ADODB.Connection") Conexion.Open DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Web\db\base_datos.mdb" O como tu te conectes a la base de datos. Saludos |
|
05/03/2002, 13:26
| |||
| |||
| Re: Mandar e-mail disculpen, pero quiero saber si este codigo, funciona para win98+pws? si no es asi porfavor diganme cual objeto aguanta esta configuración, sin tener un servidor de correo gracias |
