Hola a todos.
Estoy probando una pequeña aplicación para enviar emails a toda una base de datos, y haciendo pruebas he descubierto que si una direccion es erronea no envia ningun correo. os dejo el codigo que utilizo por si me podeis echar una mano.
Código:
<%
SET Mail=Server.CreateObject("Persits.MailSender")
mail.Host = "mail.servidor.com"
mail.From = "[email protected]"
mail.FromName= "www.servidor.com"
mail.AddAddress "[email protected]"
mail.Subject = "Novedades"
mail.AppendBodyFromFile Server.MapPath("news.htm")
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.Send
If Err <> 0 Then
Response.Write "Ha ocurrido el siguiente error " & Err.description
End If
%>
Tambien me gustaria que me aconsejarais sobre los fallos o mal diseño de este codigo. ;)
Un Saludo amigos :P