Faxinng from FWH

[Jeff Barnes]

If it possible to fax a PDF file from within FWH ?

[driessen]

Jeff,

I use this code to print a PDF from my application :

Code: Select all  Expand view

WAITRUN("SumatraPDF.exe -Print-to-default -exit-on-print " + dNameDoc,1)

dNameDoc is my PDF-file I want to print.

You can download SumatraPDF.exe from http://www.sumatrapdfreader.org.

It is the portable version I use.

[Jeff Barnes]

Thanks Michel, but I'm looking for something that will Fax without any user intervention.

[Enrico Maria Giordano]

Try these two samples. Honestly I don't know if they still work in the current Windows versions.

Code: Select all  Expand view

FUNCTION MAIN( cTel )

    LOCAL oFax := CREATEOBJECT( "FaxComEx.FaxServer" )

    LOCAL oDoc := CREATEOBJECT( "FaxComEx.FaxDocument" )

    IF EMPTY( cTel ); cTel = "0639728261"; ENDIF

    oFax:Connect( "" )

    oDoc:Body = CURDRIVE() + ":\" + CURDIR() + "\TEST.DOC"

    oDoc:DocumentName = "Fax test"

    oDoc:Recipients:Add( cTel )

    oDoc:Recipients( 0 ):Name = "Enrico Maria Giordano"

    oDoc:ConnectedSubmit( oFax )

    oFax:Disconnect()

    RETURN NIL

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL oFax := CREATEOBJECT( "FaxServer.FaxServer" )

    LOCAL oDoc

    oFax:Connect( "COM1" )

    oDoc = oFax:CreateDocument( "E:\XHARBOUR\FAX.TXT" )

    oDoc:FaxNumber = "0639728261"

    oDoc:FileName = "E:\XHARBOUR\FAX.TXT"

    oDoc:Send()

    oDoc:Disconnect()

    RETURN NIL

EMG

[Jeff Barnes]

Sadly no, with either example I get a "member not found" error.
I do have the window fax service enabled. Is there anything else I need to have for this to work?

First example give the error for:
oDoc:Recipients:Add( cTel )
oDoc:Recipients( 0 ):Name = "Enrico Maria Giordano"

Second example gives error for:
oFax:Connect( "COM1" )

[Enrico Maria Giordano]

This seems to work:

Code: Select all  Expand view

FUNCTION MAIN( cTel )

    LOCAL oFax := CREATEOBJECT( "FaxComEx.FaxServer" )

    LOCAL oDoc := CREATEOBJECT( "FaxComEx.FaxDocument" )

    IF EMPTY( cTel ); cTel = "0639728261"; ENDIF

    oFax:Connect( "" )

    oDoc:Body = CURDRIVE() + ":\" + CURDIR() + "\TEST.DOC"

    oDoc:DocumentName = "Fax test"

    oDoc:Recipients:Add( cTel )

    oDoc:Recipients[ 1 ]:Name = "Enrico Maria Giordano"

    oDoc:ConnectedSubmit( oFax )

    oFax:Disconnect()

    RETURN NIL

Please note the difference here:

Code: Select all  Expand view

oDoc:Recipients[ 1 ]:Name = "Enrico Maria Giordano"

EMG

[Jeff Barnes]

Thanks Enrico. Looks like it might work ... suffering some modem issues but your code will connect, dial and try to send. I might need a new modem with updated drivers

[driessen]

Enrico,

What do you do if your fax is the same as your networkprinter?

[Enrico Maria Giordano]

It shoudn't make any difference. What do you get? Any error message?

EMG

[Jeff Barnes]

I get this error: "The fax can't be sent because of an unexpected error"

[Enrico Maria Giordano]

Try to send the fax manually and check if you get this error either.

EMG

[Jeff Barnes]

Sending manually gives me the same error

Must be something with the Windows Fax software.
The first fax modem I tried was an external usb type.
Then I tried with an internal fax modem.
Both do the exact same thing.

[Jeff Barnes]

Problem solved....

I went into Add/Remove Program Features and removed windows fax/scan. Rebooted. Added it back then rebooted again.
Now it works perfectly

[Enrico Maria Giordano]

Great! Thank you for the feedback.

EMG