Ciao a tutti

Ho un problema che mi sta facendo diventare pazzo.. Ho un sistema che invia un email in fase di registrazione agli utenti che si registrano sul mio sito per confermare la registrazione, funziona tutto perfettamente
ma quando un utente ha una delle seguenti email con estensione @libero , @inwind, @hotmail, e chissà quante altre l'email non viene ricevuta dal destinatario..

E' un giorno che ci sbatto la testa ma non riesco a trovare una soluzione.. vi posto lo script che invia l'email magari il problema è qui..ma non penso..

codice:
      Dim objMail, objConfig 
	
	Set objMail = Server.createObject("CDO.Message") 
	Set objConfig = Server.createObject("CDO.Configuration") 
	
	' Imposta le configurazioni 
	With objConfig 
	
	' Server SMTP di uscita 
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miodominio.it"
	
	' Porta SMTP 
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
	
	' Porta CDO 
	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
	
	' Timeout 
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
	
	.Fields.update 
	End With 
	
	' Assegna le configurazioni 
	Set objMail.Configuration = objConfig 
	
	' Valore di priorità 
	objMail.Fields("urn:schemas:httpmail:importance").Value = 1 'priorita alta =2
	objMail.Fields.update() 
		
			
      objMail.From ="Attivazione Account <"&rsConfig("email")&">" 
      objMail.To = request.form("email")
	  objMail.Bcc = ""
      objMail.Subject = "Conferma iscrizione"
      objMail.TextBody = "Salve, la Sua registrazione è andata a buon fine."& vbCrLf & vbCrLf
      objMail.TextBody = objMail.TextBody  & "Le ricordiamo che deve cliccare sul seguente link per attivare la registrazione"& vbCrLf & vbCrLf
	  objMail.TextBody = objMail.TextBody  & ""&url&"/activate.asp?active="& strusername &"&code="& sOtherId &""& vbCrLf & vbCrLf
	  objMail.TextBody = objMail.TextBody  & "Le comunichiamo qui di seguito le informazioni di accesso al sito:"& vbCrLf & vbCrLf
	  objMail.TextBody = objMail.TextBody  & "Username : " & strusername & ""& vbCrLf
	  objMail.TextBody = objMail.TextBody  & "Password : " & strpassword & ""& vbCrLf & vbCrLf
	  objMail.TextBody = objMail.TextBody  & "Se la registrazione non verrà attivata entro 48 ore, verrà eliminata automaticamente."& vbCrLf & vbCrLf
	  objMail.TextBody = objMail.TextBody  & "Cordiali Saluti"& vbCrLf

	objMail.Send() 
	Set objMail = Nothing