Risolto!
Non ho capito il perchè (se qualcuno è così gentile da spiegarmelo) ma è bastato sostituire
codice:
.To = utenti_mailing
con

codice:
.To = rsListaUtenti.fields("EMAIL")
Non capisco proprio cosa cambia però ora invia!