xbrowse Email|PDF

[Iris Gesser]

Good evening,
is it possible to send an Email with the data exported to TXT or PDF directly out of xbrowse?
Thank you and kind regards
Iris

[nageswaragunupudi]

You need to write your own function for this.

Here is a sample function:

Code: Select all  Expand view

function SendMail( oBrw, cPdf, cAddress )

   local oMail, cFile

   cPdf     := TrueName( cPdf )
   cFile    := cFileNoPath( cPdf )

   oBrw:Report( nil, .F., nil, nil, nil, cPDF )

   DEFINE MAIL oMail ;
      TO cAddress ;
      SUBJECT cFile ;
      TEXT "" ;
      FILES cPdf, cFile ;
      FROM USER

   ACTIVATE MAIL oMail

return nil
 

You may modify this function according to your requirements.