saltare eventuale errore su email

[djjunior]

Carissimi,
in uno script dove invio email da un elenco, ho notato che utilizzando il classico script su server aruba:

Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.miosito.it" 

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 240

Flds.Update

With iMsg
Set .Configuration = iConf
.To = AMICO
.From = IO
.Subject = "Oggetto"
.TextBody = "ciao amici" 
.Send
End With

Se una mail è scritta in modo errato, tipo senza chiocciola etc oppure altra cosa particolare, se è una mail con dominio inesistente tipo info@asdasdasdfa.com, durante il ciclo manda le altre ma lo script si blocca con errore su .send e nn va + avanti.
Ora Vi chiedo è possibile e come, mettere un controllo che se la mail è inesistente o scritta male me la salti e continui con lo script di invio?
Grazie.

[cavicchiandrea]

Da una ricerca veloce in asp free non mi sembra vi sia nulla che controlla se il dominio (@serverdiposta.xxxx) esiste cosa che esiste in php demo per non avere problemi meglio verificare la mail alla registrazione inviando una mail di conferma con all'interno il link di convalida se invece vuoi una verifica formale dell'indirizzo (verifica che siano presenti @ . e minimo due lettere per l'estensione it/com/etc...) puoi usare questa funzione

<%
    Function isEmailValid(email) 
        Set regEx = New RegExp 
        regEx.Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w{2,}$" 
        isEmailValid = regEx.Test(trim(email)) 
    End Function 

%>