Invio mail dal sito aruba con iis 7.5

[Ramboexp]

Salve a tutti.
Da tempo utilizzo un metodo per l'invio delle mail dai miei siti nel modo seguente

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "Amministratore del sito<xxxxx@xxxxxxxx.it>"
destinatario = "xxxxxxx@xxxxxx.it"

messaggio =  "Richiesta inoltrata da: " & nome 
messaggio = messaggio & vbCrLf & " Ecco i dati inseriti nel modulo: " & vbCrLf
messaggio = messaggio & "Nome Cognome o Ragione sociale : " & Nome & vbCrLf
messaggio = messaggio & "Luogo e data di nascita : " & luogonascita & " - " & datanascita & vbCrLf
messaggio = messaggio & "Nazione : " & nazione

With iMsg

Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = "Richiesta di iscrizione xxxxxxxx"

.TextBody = messaggio
.Send() 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>

Ha sempre funzionato benissimo sui domini attualmente attivi (hosting windows aruba)

Ho acquistato un altro dominio windows
questo dominio ha l'IIS 7.5
non mi da nessun errore ma la mail non la invia.
ho provato anche questa alternativa

Set myMail=CreateObject("CDO.Message")

Set myConfig = Server.createObject("CDO.Configuration") 

' Imposta le configurazioni 
With myConfig 
' Server SMTP di uscita 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.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 

Set myMail.Configuration = myConfig 



myMail.From = mittente
myMail.To = destinatario
myMail.Subject = "Messaggio inviato dal sito www.miodominio.it"

myMail.TextBody = messaggio
myMail.Send() 


set myMail=nothing

stesso risultato
Nessun errore ma nessun invio.
Chiedo lumi a voi che in tante occasioni mi avete salvato
Roberto

[Roby_72]

Dovresti chiedere all'assistenza se con Windows Server 2008 devi effettuare qualche cambiamento.
Verifica nel loro vademecum.

Roby