FiveTech Support Forums

Try

     oCfg := CreateObject( "CDO.Configuration" )

      With Object oCfg:Fields
         :Item( cdoSMTPServer ):Value            := AllTrim( cMailServer ) // <!-- w --><a class="postlink" href="http://www.gmail.com">www.gmail.com</a><!-- w -->   
         :Item( cdoSMTPServerPort ):Value        := 465
         :Item( cdoSendUsing ):Value             := 2
         If lAuth
            :Item( cdoSMTPAuthenticate ):Value   := .T.
            :Item( cdoSendUserName ):Value       := naburtos
            :Item( cdoSendPassword ):Value       := AllTrim( cPass ) // mi clave
            :Item( cdoSMTPUseSSL ):Value         := .T.
         EndIf
         :Item( cdoSMTPConnectionTimeout ):Value := 30
         :Update()
      End With

      oMsg := CreateObject( "CDO.Message" )

      With Object oMsg
         :Configuration := oCfg
         :From          := AllTrim( cFrom ) // <!-- e --><a href="mailto:naburtos@gmail.com">naburtos@gmail.com</a><!-- e -->
         :To            := AllTrim( cTo ) // <!-- e --><a href="mailto:noeaburto67@hotmail.com">noeaburto67@hotmail.com</a><!-- e -->
         :Subject       := AllTrim( cSubject )
         :TextBody      := AllTrim( cBody )
         For nEle := 1 To Len( aAttach )
            if File( AllTrim( aAttach[ nEle ] ) )
              *:AddAttachment := AllTrim( aAttach[ nEle ] )
               :AddAttachment ( AllTrim ( aAttach[ nEle ] ) )
            else
               Aviso({'El archivo adjunto '+Upper(AllTrim( aAttach[ nEle ] )),;
                      'no será enviado, no existe'})
            endif
         Next
         If ! Empty( cBCC )
            :BCC := AllTrim( cBCC )
         EndIf

         :Send()
      End With

@pop.gmail.com           

smtp.gmail.com                          

<!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->     

Password

SSL := .T.  // SI.