CDOSYS: non invia email allo stesso dominio

[giulioferri]

Utilizzo il seguente script per l'invio delle email:

Sub InviaEmail(mittente, email_mittente, email_dest, oggetto, testo)
	Dim Mail 
	set Mail = server.CreateObject("CDO.Message") 
	Set iConf = CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	Flds(cdoSendUsingMethod) = cdoSendUsingPort
	Flds(cdoSMTPServer) = "localhost"
	Flds(cdoSMTPServerPort) = 25
	Flds(cdoSMTPAuthenticate) = cdoAnonymous
	Flds.Update
	Set Mail.Configuration = iConf
	
	With Mail 
		.From = mittente & "<" & email_mittente & ">" 
		.Sender = email_mittente
		.To = email_dest 
		.Subject = oggetto 
		.HTMLBody  = testo 
		.Send 
	end With 
	
	set Mail=nothing 
end sub

ma le email inviate ad indirizzo dello stesso dominio non arrivano a destinazione (o non partono proprio?).

Invece l'invio delle email a qualsiasi altro tipo di indirizzo (esterno al dominio di partenza) funziona correttamente.

Qualcuno ha avuto lo stesso problema o sa come risolverlo? Grazie 1000!

Giulio