Originariamente inviato da Roby_72
Controlla lo script...
Roby
Sei sempre il solito....
Controllato e risolto !!!! Più facile di quanto pensassi, è stato sufficiente sostituire:
codice:
'Out going SMTP server
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strOutgoingMailServer
'SMTP port
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'CDO Port
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
con
codice:
.Fields("cdoSendUsingMethod") = cdoSendUsingPort
.Fields("cdoSMTPServer") = "smtp.aruba.it"
.Fields("cdoSMTPServerPort") = 25
.Fields("cdoSMTPAuthenticate") = cdoAnonymous ' 0
funziona alla grande... Grazie Roby !!!!