Hola, tengo un codigo para enviar un boletin a una serie de e-mails sacados de una base de datos, el problema que me surge es el siguiente, cuando uno de estos emails es erroneo me da un error y se me corta el proceso, por lo que no envia el boletin a todos los destinatarios, solo hasta donde se produjo el error...
Me han dicho que con un On Error Resume Next se soluciona, ya que saltaria al siguiente registro.... pero lo he probado y no me va...ya no da el error, pero no envia el boletin al resto. Este es el codigo...
Código HTML:
If Registros <> 0 then
SQL="SELECT * FROM emails order by nombre asc;"
Set Snap=Server.CreateObject("ADODB.Recordset")
Snap.Open SQL, Session("Conn")
IF Not Snap.Eof And Not Snap.Bof Then
Do
If Snap.EOF Then Exit Do
If IsEmail(Snap.Fields("email")) then
StrEmail=Snap.Fields("Email")
objCDOSYSMail.From = StrFrom
objCDOSYSMail.To = StrEmail
objCDOSYSMail.Subject = StrSubject
objCDOSYSMail.HTMLBody = strcuerpo
' Aqui en el Send es donde se produce el error al pillar un email invalido.
[COLOR="Red"]objCDOSYSMail.Send[/COLOR]
End If
Snap.MoveNext
Loop
End If
Snap.Close: Set Snap=Nothing
End If