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
El comentario de Myakire me recordó algo de hace algunos años...resulta que trabajabamos en un sistema para el ya extinto RENAVE en México y uno de los becarios que trabajaba con nosotros dice de repente: En VB es muy fácil depurar tu código, ponle un on error antes y después del código que puede tirar error y con eso jala todo perfecto, no necesitas ni siquiera depurarlo

, si lees con cuidado te pedí el mensaje de error para ayudarte a solucionar el mismo, pero ahora, puedes conservarlo, bye

