varios email en mi base, como respondo a todos?

[malex6]

Hola,
gracias por pinchar mi mensaje, mi problema esta en que ya tengo una considerable lista de usuarios registrados en mi BOLETIN, y quisiera inaugurar el primero pero ¿COMO LE HAGO PARA ENVIAR A TODOS LOS INSCRITOS EN LA BASE?


ya tengo declarado aspemail y de hecho en mi pagina ya tengo el codigo de "RECOMENDAR MI PAGINA", les digo esto para que me entiendan con claridad que mi problema no es aprender a enviar un email sino que enviar un mismo email por montones...


Espero me hayan entendido
desde ya gracias... ;)

[urjose]

<a href='ir.asp?http://www.forosdelweb.com/mensaje.asp?id=63898&amp;r=4' target='_blank'>http://www.forosdelweb.com/mensaje.asp?i...</a>

La idea es la misma pero utiliza CDONTS

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>

[almaluz]

Haber con esto

Código:

 
<%


SET Mail=Server.CreateObject("Persits.MailSender")

mail.Host = "mail.tuservidor.com"
mail.From = "tu email"
mail.FromName= "tu nombre"
mail.AddAddress "direccion de email"
mail.Subject = "Nuevas tarifas y promociones (distribuidores)"

mail.AppendBodyFromFile Server.MapPath("news.htm")' archivo que será el cuerpo del mensaje
mail.IsHTML = true


Set con = Server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

sql = "SELECT * FROM email ;"

con.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("email.mdb")&""
Rs.Open "email", con

Do While  not rs.EOF
response.Write rs("email") & "<br>"

mail.AddBcc rs("email")
rs.MoveNext
Loop

On Error Resume Next

mail.SendToQueue

If Err <> 0 Then
Response.Write "Ha ocurrido el siguiente error " & Err.description

End If

rs.Close
Set rs=Nothing
con.Close
Set con=Nothing

%>

Creo que te servirá.

Juan

<a href="http://www.almaluz.com"><Img src="http://www.almaluz.com/banners/B_almaluz.gif"></a>