Sending Fax with Microsoft Fax Service

[Gary Woodley]

Hi,
I am trying to automate sending a fax using the fxscomex.dll. and the following code but i get the error MEMBERNOTFOUND: CONNECTEDSUBMIT. Is there a FiveWin equivalent of #import "fxscomex.dll" that I should be using?

Code: Select all  Expand view

   oFaxServer  := CREATEOBJECT( "FaxComEx.FaxServer" )  
   oFaxDoc := CREATEOBJECT( "FaxComEx.FaxDocument" )

  oFaxServer :Connect( "fax" )
   
    oFaxDoc:Body = "c:\gary\sql.txt"
    oFaxDoc:DocumentName = "Fax test"
    oFaxDoc:Recipients:Add( "01865847491" )

    cJobID=oFaxDoc:ConnectedSubmit( oFaxServer  )
    oFaxServer :Disconnect()
 

Thanks
Gary

[Enrico Maria Giordano]

This is a working sample:

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

[Gary Woodley]

Hi,

Thanks, just tried that but unfortunately get the error - MEMBERNOTFOUND: SEND. Looking through other coding examples it seems I may have to reference Microsoft Fax Service Extended COM Type Library. How do I go about doing that in fiveWin?

Regards

Gary

[Enrico Maria Giordano]

Try this, works fine here:

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

EMG

[Gary Woodley]

Hi,

Tried new code, now back to original error - MEMBERNOTFOUND: CONNECTEDSUBMIT.

Gary

[Enrico Maria Giordano]

Did you install fax support in Windows? I forgot to mention that I'm using XP.

EMG

[Gary Woodley]

Hi,

Am using XP SP3. Have checked and I do have fax services installed in windows components.

If I send a print to fax from a document in word it works fine, and can monitor with fax console, so I assume the fax services are functioning corretly. Is there something I should add to the compile?

Gary

[Enrico Maria Giordano]

Did you have TEST.DOC in the current directory? It has to be a Word document.

EMG

[Enrico Maria Giordano]

And you must have Office installed.

EMG

[Gary Woodley]

Yes, a small word test.doc was in the current directory.

Gary

[Enrico Maria Giordano]

Sorry, I run out of ideas.

EMG