invio automatico mail saltando indirizzi non validi

[Partisan75]

Salve, per cortesia mi aiutate a capire come posso fare per inviare delle mail ad indirizzi del db ma salatando degli indirizzi non validi o comunque andare avanti.
Mi spiego meglio, ho inviato delle mail ma al primo indirizzo che non gli è piaciuto si è fermato...
C'è modo di fargli saltare quelli che non vanno?

Il metodo usato è:
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Grazie in anticipo
F

[Vincent.Zeno]

fai una verifica del formato delle mail prima di inviare

http://www.mrwebmaster.it/asp/verifi...sion_6454.html

Function ControlloEmail(email)
    Dim ObjRegexp
    Dim risultato
    Set ObjRegexp = New RegExp
    ObjRegexp.Global = True
    ObjRegexp.IgnoreCase = True
    ObjRegexp.Pattern = "^[_a-z0-9+-]+(\.[_a-z0-9+-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)+$"
    risultato = ObjRegexp.Test(email)
    Set ObjRegexp = Nothing
    ControlloEmail = risultato
End Function

prima di metterlo in produzione fai una verifica su tutti gli indirizzi per vedere che non ci sia il pattern da modificare

sull'argomento ci sono molti esempi in rete