FiveTech Software tech support forums

Code: Select all

   Local oWPpal
   Local cMailServer := PadR( alltrim('smtp.gmail.com'), 60 ), ;             // servidor de correo
         cFrom       := PadR( alltrim('xxxxxxx@gmail.com'), 60 ), ;        // remitente
         cTo         := PadR( alltrim('xxxxxxxx@gmail.com'), 180 ), ; // destinatario (uno o varios separados con comas)
         cBCC        := PadR( ""   , 180 ), ; // copias ocultas a (uno o varios separados con comas)
         cAttach     := PadR( ""   , 180 ), ;// archivo anexo (uno o varios separados con comas)
         cSubject    := PadR( "Prueba")  , ;                              // asunto
         cBody       := "email de Prueba... Puede eliminarlo !!", ;                             // cuerpo del mensaje
         nPort       := 465, ;                                      // puerto usado por el servidor de correo
         cUser       := 'xxxxxxxx@gmail.com' , ;
         cPass       := 'xxxxxxxxx'
   Local oCfg, oMsg, oError, nEle, cToken,aAttach  := {}, lAuth    := ! Empty( cUser ) .and. ! Empty( cPass ), nSendOpt := 2   // send using: 1 = pickup folder  2 = port

   While ! Empty( cToken := StrToken( cAttach, nEle++, "," ) )
      AAdd( aAttach, cToken )
   EndDo
   Try
      oCfg := CreateObject( "CDO.Configuration" )
      With Object oCfg:Fields
         :Item( cdoSMTPServer ):Value     := Trim( cMailServer )
         :Item( cdoSMTPServerPort ):Value := nPort
         :Item( cdoSendUsing ):Value      := nSendOpt
         If lAuth
            :Item( cdoSMTPAuthenticate ):Value := 1
            :Item( cdoSendUserName ):Value     := Trim( cUser )
            :Item( cdoSendPassword ):Value     := Trim( cPass )
            :Item( cdoSMTPUseSSL ):Value := 1
         EndIf
         :Update()
      End With
      oMsg := CreateObject( "CDO.Message" )
      With Object oMsg
         :Configuration := oCfg
         :From          := Trim( cFrom )
         :To            := Trim( cTo )
         :Subject       := Trim( cSubject )
         :TextBody      := Trim( cBody )
         :Send()
      End With