SMTP Server in CDO

[marius_pol]

Try this one, it works for me:

With Flds
          .Item(cdoSendUsingMethod) = 2 'cdoSendUsingPort 'remote server
          .Item(cdoSMTPServer) = "smtp.gmail.com"
          .Item(cdoSMTPServerPort) = 465
          .Item(cdoSMTPUseSSL) = True
          .Item(cdoSMTPConnectionTimeout) = 30 'timeout
          .Item(cdoSMTPAuthenticate) = cdoBasic
          .Item(cdoSendUserName) = "" 'user
          .Item(cdoSendPassword) = "" 'password
          .Item(cdoURLGetLatestVersion) = True
          .Update
    End With
        
    With iMsg
            Set .Configuration = iConf
            .To = txtTo.Text
            .From = txtFrom.Text
            .Subject = txtSubject.Text
            .TextBody = txtMain.Text
            Me.MousePointer = 11
            .Send
            Me.MousePointer = 0
    End With

Hope this helps.