FiveTech Support Forums

TPreview():bSaveToPDF := { |oPreview, cPDF, lView| MySaveAsPDF( oPreview, cPDF, lView ) }

METHOD SendEmail() CLASS TPreview

   local oMail, cName, cFile, cSendTo, aInfo

   IF lUseOldXP
    PrevEmail( ::oDevice:aMeta )
   ELSE
       cSendTo := IIF( ! EMPTY( cDefEml), cDefEml, SPACE(100) )
       cName := If( ::oReport != nil, ::oReport:cName, ::oDevice:cDocument )
    
       cFile := cFilePath( ::oDevice:aMeta[ 1 ] ) + StrTran( cName, '.', '' ) + ;
                Left( HB_TToS( HB_DateTime() ), 14 ) + ".pdf"
    
       CursorWait()
       cFile := ::SaveAs( .t., cFile, .f. )   // This is the problem area
       CursorArrow()
    
       if ! File( cFile )
          MsgInfo( FWString( "PDF not saved to send Email" ), FWString( "Information" ) )
       elseif ::bEmail != nil
          Eval( ::bEmail, Self, cName, cFile )
       else
        ASWemail( cSendTo, cFile, cName )
          /*
          DEFINE MAIL oMail ;
             SUBJECT cName ;
             TEXT "" ;
             FILES cFile, cFile ;
             FROM USER
    
          ACTIVATE MAIL oMail
          // MsgInfo( oMail:nRetCode )  check the returned code!
          */
       endif
   ENDIF
   
   ::oMeta1:SetFocus()
   SysRefresh( )
   */
return nil

FUNCTION PrevEmail( aFiles )

    LOCAL cWhoTo := SPACE(255), cFileToSend

    // Create the PDF to attach to the file
    cFileToSend := BuildPDF( aFiles )
    cSubject := "Your requested report"

    // Now do the transmission
    ASWemail( cWhoto, cFileToSend, cSubject )

RETURN NIL

if lUsingImage2PDF
   TPreview():bSaveToPDF := { |oPreview, cPDF, lView| MySaveAsPDF( oPreview, cPDF, lView ) }
endif
TPreview():bMail := { |oPreview, cName, cPDF| MySendMail( oPreview, cName, cPDF )

function MySaveAsPDF( oPreview, cPDF, lView )

/*
  cPDF:  Repreview provices a file name. You may override if you like.
  Create cPDF with your favourite tool from oPreview:aMeta
  
  lView: If .t., display the PDF. If .f. do nothing. If nil, you decide whether or not to display. When rpreview calls this function from method SendMail(), this is always false.

  Return: cPDF ( file name with path created by this function ) // IMPORTANT
              If the function fails, please return nil

*/

return cPDF  // Important: Please return here the PDF file name with path created
                   // returning nil indicates failure

function MySendMail( oPreview, cName, cPDF )
/*

  oPreview: you may ignore.
  cName: Subject of the email suggested by Rpreview. You may ignore and have your own subject if you like.
  cPDF:  This is the PDF file name with path to attach. This is the same file name returned by MySaveAsPDF() function.

  Use your mail program to send  the mail attaching cPDF


*/


return lSuccess // rpreview does not use this return value

if lUsingImage2PDF
   TPreview():bSaveToPDF := { |oPreview, cPDF, lView| BuildPDF( oPreview:aMeta ) }
endif
TPreview():bMail := { |oPreview, cName, cPDF| ASWemail( Space(255), cPDF, "Your Requested Report" ) }