Niente da fare anche impostanto gli esername e password..... posto qui il codice..


' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.four14ministries.org"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/username") = "info@miosito.org"
.Fields("http://schemas.microsoft.com/cdo/configuration/passowrd") = "xxxxxxxx"
' 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

GRAZIE ANCORA