Mailing list con CDOSYS

[fabiosh75]

Ciao a tutti,
sto cercando di configurare CDOSYS per l'invio di una mailing list, non mi dà nessun errore mi dice che ha inviato tutte le mail, ma invece niente non arriva nulla... il codice che ho usato è il seguente:

invioDa =  "info@miosito.it"
utenti_mailing = rsListaUtenti.fields("EMAIL")
do while not rsListaUtenti.EOF 
	
DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = utenti_mailing
   .From = invioDa
   .Sender = invioDa
   .Subject = titolo
   .HTMLBody = strBody
   .Send
End With
rsListaUtenti.MoveNext 

Set iMsg = nothing
Set iConf = nothing

Loop

Dove sbaglio? Forse nel ciclo do while not rsListaUtenti.EOF (che ho visto su un 3d del forum).
Ciao e grazie

Fabio

[fabiosh75]

Risolto!
Non ho capito il perchè (se qualcuno è così gentile da spiegarmelo) ma è bastato sostituire

.To = utenti_mailing

con

.To = rsListaUtenti.fields("EMAIL")

Non capisco proprio cosa cambia però ora invia!