invio email cdosys a indirizzo di libero

[zetaweb]

Ciao ragazzi,
scusate da un paio di giorni ho notato che restano nel server nella cartella Queue le email con indirizzo di libero.
Il codice è sempre lo stesso e lo scrivo di seguito, per caso sapete di qualche problema con libero o notate qualche errore nel codice?
grazie mille

invioA =  emmail
		
	invioDA =  "info@miosito.com"
		
	DIM iMsg, Flds, iConf
	
	Set iMsg = CreateObject("CDO.Message")
	Set iConf = CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	
	'Flds(cdoSendUsingMethod) = cdoSendUsingPort
	Flds(cdoSendUsingMethod) = cdoSendUsingPickup
	Flds(cdoSMTPServer) = "127.0.0.1" 
	Flds(cdoSMTPServerPort) = 25
	Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
	Flds.Update
	
	
	With iMsg
	   Set .Configuration = iConf
	   .To = invioA
	   .From = invioDA
	   .Sender = invioDA
	   .Subject = "Convalida indirizzo e-mail miosito" 
	   '.HTMLBody = corpoMessaggio
	   .HTMLBody =  "testo del messaggio"
	   .Send
	End With

[zetaweb]

ciao ragazzi, scusate se uppo ma continuo ad avere questo strano problema...
sapete come posso risolvere?

grazie mille