la differenza era per farti vedere questa parte:

codice:
Set Mail = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Flds = Config.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update