***togli dal primo post il nome reale delle tua casella

codice:
Set Flds = objConfig.Fields


        Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True


        Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        
        'questo qui sotto non usarlo, serve se gestisci anche il server di posta
        'Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"


        Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"


        Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465


        Flds("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1


        Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1


        Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nomecasella@gmail.com" '<-- tua email


        Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" '<-- tua password


        Flds.Update