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>