FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIAlOG oDlg

    @ 1, 1 BUTTON "Send fax";
           ACTION SENDFAX()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION SENDFAX()

    LOCAL oFax := CREATEOBJECT( "WinFax.SDKSend" )

    oFax:LeaveRunning()

    oFax:SetCoverText( "This is the fax cover." )

    IF FILE( CURDRIVE() + "\" + CURDIR() + "\TEST.DOC" )
        oFax:AddAttachmentFile( CURDRIVE() + "\" + CURDIR() + "\TEST.DOC" )
    ENDIF

    oFax:SetNumber( "your fax number" )
    oFax:AddRecipient()
    oFax:Send( 0 )

    RETURN NIL