Grazie per la risposta GudFella.
Quindi ti trovi con il mio ragionamento.

Come posso impostare un ritardo tra un invio e un altro?
Il codice è questo:

codice:
DIM iMsg, Flds, iConf

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

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

	'* voce da modificare con il proprio indirizzo email

do while not rs.eof
email = rs("email")
destinatari = email


invioA =  destinatari

	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "zseven@zseven.it"

With iMsg
   Set .Configuration = iConf
   .To = ""
   .From = invioDA
   .Bcc = destinatari
   .Sender = invioDa
   .Subject = titolo
   .TextBody = messaggio 
   .HTMLbody = html
   .Send
End With

rs.movenext
loop
Grazie?