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:
codice:
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