topic-26965

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Envío de correo electrónico
Posted: Mon Aug 12, 2013 04:50 PM

Porfa, que estoy haciendo errado ?

      DEFINE MAIL oMail                   ;
             SUBJECT cSubject             ;
             TEXT cNoteText               ;
             TYPE cMsgType                ;
             DATE dDate                   ;
             TIME cTime                   ;
             CONVERSATION cConversationID ;
             RECEIPT lReceipt             ;
             FROM USER lFromUser          ;
             FILES aFiles                 ;
             ORIGIN aOrigin               ;
             TO aRecipients

      ACTIVATE MAIL oMail

Gracias, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Envío de correo electrónico
Posted: Mon Aug 12, 2013 06:00 PM

Resuelto,

Code (fw): Select all Collapse

   LOCAL aTo := {}

      EmailCliente    := LOWER(ALLTRIM( CADCLIEN->EMAILNFE ) )

      cCC             := LOWER(ALLTRIM( CADTRANS->EMAIL ) )

      aRecipients     := { EmailCliente, cCC } //-> Email final para enviar

      AADD( aTo, aRecipients )

      DEFINE MAIL oMail                   ;
             SUBJECT cSubject             ;
             TEXT cNoteText               ;
             TYPE cMsgType                ;
             DATE dDate                   ;
             TIME cTime                   ;
             CONVERSATION cConversationID ;
             RECEIPT lReceipt             ;
             FROM USER lFromUser          ;
             FILES aFiles                 ;
             ORIGIN aOrigin

             oMail:aRecipients := aTo

      ACTIVATE MAIL oMail

      oMail:End()

Gracias.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion