cambiando server e passando a cdosys

il mio script che invia le e-mail mediante un ciclo nn funziona piu' restituendomi questo errore

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.


ho fatto una ricerca sul forum e ho capito che questo errore viene dato se si ha un destinatario vuoto

ho un database dove sono presenti diversi indirizzi email quindi se viene registrato un indirizzo email nn valido mi blocca lo script


volevo chiedere come posso fare in modo che se un indirizzo nn è vero di far saltare il ciclo solo per quel indirizzo?

questo è il codice che utilizzo per invio delle e-mail




While Not rs.EOF
stremail=rs("email")


Dim Mail

set Mail = server.CreateObject("CDO.Message")

html = testo da inviare

With Mail
.From = "noreply@xxx.com"
.To= rs("email")
.Subject = "inserisco il titolo della e-mail"
.HtmlBody = HTML
.Send
end With
set Mail=nothing


rs.MoveNext
Wend