10/02/2005, 07:00
| ||||
| ||||
| Como enviar un boletin a una serie de emails con asp??? Hola lo que necesito hacer es lo siguiente. En mi pagina tengo una base de datos con noticias que actualizo diariamente, y a parte tengo una lista de correo con numerosos emails. Lo que deseo hacer es que cuando yo ejecute un evento (el que sea), todas las noticias que en la base de datos estan marcadas como no enviadas por un campo booleano se envien en un documento HTML a todas las direcciones de mi lista de correo, q imagino la tendre que poner en una tabla de la base de datos. No tengo ni idea de como hacer esto pero no os imaginais el trabajo que me quitaria de encima. He oido que si que se puede hacer pero no se ni por donde empezar. Si alguien sabe algo de esto y no le importa echarme un cable..... Muchas Gracias. |
|
10/02/2005, 08:20
| |||
| |||
| Buenas, Si tienes una BBDD con las direcciones de Mail y otra con las noticias, yo abriría un RecordSet en primer lugar con las direcciones de Mail y dentro de ese RecordSet, abriría otro con las noticias a enviar. Algo así: Set rst = Cnn.Execute(sentenciaSQLMails) Do while not rst.EOF Tomo el valor de la dirección de Mail Set rst2 = Cnn2.Execute(sentenciaSQLNoticias) Do while not rst2.EOF Tomo el valor de las noticias a enviar Construyo un HTML con las Noticias rst2.MoveNext Loop Envio a la direccion de mail rst("mail") el Mail rst.MoveNext Loop
__________________ El saber no es lo importante, lo verdaderamente importante, es conocer al que sabe. |
|
10/02/2005, 08:46
| ||||
| ||||
| Vale muy bien, eso se hacerlo, una consulta que me coja las noticias que necesito y otra consulta que me diga las direcciones a donde mandarlas.... lo que no se hacer es como construir un html con el contenido de las noticias y el proceso de mandarlas a esos emails...eso es lo que realmente no tengo ni idea de como hacer.... |
|
10/02/2005, 14:58
| |||
| |||
| Yo lo haría asi ojala me entiendas: <% Set rst = Cnn.Execute(sentenciaSQLMails) Do while not rst.EOF 'Tomo el valor de la dirección de Mail Set rst2 = Cnn2.Execute(sentenciaSQLNoticias) Do while not rst2.EOF 'Tomo el valor de las noticias a enviar 'Construyo un HTML con las Noticias mensaje = "<html><body><table><tr><td>" & rst2("campotitulo") & "</td></tr>" mensaje = "<tr><td>" & rst2("camponoticia") & "</td></tr>" armo_html_noticias = armo_html_noticias & mensaje rst2.MoveNext Loop noticia_final = armo_html_noticias & "</table></body><html>" 'Envio en el cuerpo del mail la variable noticia_final, a la direccion de mail rst("mail") el Mail ' En este caso ocupamos el objeto CDO para envio de mail en asp. Set oMail = Server.CreateObject("CDO.Message") ' asignamos los valores a las variables para = rst("mail") de = "[email protected]" asunto = "Boletín de Noticias" mensaje = noticia_final ' ocupamos las variables oMail.From = de oMail.To = para oMail.Subject= asunto oMail.htmlBody = mensaje oMail.Send Set oMail = Nothing rst.MoveNext Loop %> Eso deberia funcionar. el html de ejemplo es algo básico pero te puede ayudar. Suerte. |
|
10/02/2005, 15:00
| |||
| |||
| Bueno me acabo de dar cuenta en esta linea: mensaje = "<html><body><table><tr><td>" & rst2("campotitulo") & "</td></tr>" mensaje = "<tr><td>" & rst2("camponoticia") & "</td></tr>" deberia quedar asi: mensaje = "<html><body><table><tr><td>" & rst2("campotitulo") & "</td></tr>" 'ME FALTO ACA mensaje = mensaje & "<tr><td>" & rst2("camponoticia") & "</td></tr>" |
