WinFax OLE

[Enrico Maria Giordano]

Dear friends, I'm searching for samples on how to drive WinFax via OLE.

Thank you.

EMG

[Enrico Maria Giordano]

I answer myself. This is a working sample:

Code: Select all  Expand view  RUN

#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

EMG

[Antonio Linares]

Enrico,

Very good, master

[Enrico Maria Giordano]

[RAMESHBABU]

Hi Mr.Enrico

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

How do I get this object. Should I link any library like WINFAX.LIB
supplied with BCC55\LIB\PSDK or any DLL ?

Regards

- Ramesh Babu P

[Taiwan]

Hello RAMESHBABU,

I think no. Because You should be install WinFax software.
It's include ActiveX DLL or OCX ....file and start itself.

Regards,

Richard

[Enrico Maria Giordano]

Hello RAMESHBABU,

I think no. Because You should be install WinFax software.
It's include ActiveX DLL or OCX ....file and start itself.

Regards,

Richard

Exactly.

EMG