Ragazzi sapete se Aruba ha imposto dei limiti per l'invio di una mailing list?
Fino a qualche giorno fa il mio script( che vi ripropongo di seguito) funzionava tranquillamente, adesso invece non va più.
Se non sapete di qualche cambiamento, sapete dirmi se notate qualcosa che non va sullo script che utilizzo per la newsletter?
Le email prelevate dal DB sono un migliaio circa.

codice:
nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")



	'* creo gli oggetti cdosys sul server e li gestisco
	
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

	'* 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 =  "pippo@pluto.com"

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 a tutti!