¿Si una direccion no es correcta en ASPEMAIL ?

[almaluz]

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

[urjose]

intenta cambiar esto:

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

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



por esto:



Do While not rs.EOF
response.Write rs("email") & "<br>"
If Instr(rs("email"),"@") AND Instr(rs("email"),".") THEN
mail.AddBcc rs("email")
rs.MoveNext
Else
rs.MoveNext
Loop


Saludos

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

[almaluz]

Hola Urjose.

Estupenda la idea :P

pero lo que me ocurre ( ademas de esto que me solucionas ) es que si la direccion no existe, aunque aparentemente sea correcta, desde ahi en adelante no sigue enviando correos.

Lo he probado poniendo dos direcciones correctas, una incorrecta y luego otra correcta, y la cuarta nunca llega. pero si la tercera la sustituyo por una direccion correcta, entonces llegan todas :(

Se te ocurre algo ?

Gracias amigo.

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

[almaluz]

Vaya;

otra cosa curiosa-
Sustituyendo mail.Send por mail.SendToQueue parece que funciona, salvo que la direccion falsa pertenezca a mi propio servidor de correo. entonces Casca :roto:

Algun codigo por ahi mas efectivo que este :)

Saludos

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