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