General information
Category:
Third party products
I did the following some time ago and it worked ok with single modem and DDE to WFX Pro 8. It might be useful to you as a starter. I would be interested to see an OLE control instead of DDE link.
PROCEDURE sendFromList
SELECT report_req_master
SCAN
** variables as read from reqest
selFaxNo = ALLTRIM(report_req_master.Rec_fax)
selFaxFile = ALLTRIM(report_req_master.FILE)
** Set the WinFax state to CONTROL mode.
FaxChan = DDEINITIATE("FAXMNG32","CONTROL")
** Take the modem offline.
retvar=DDEEXECUTE(FaxChan,"GoIdle")
** Set the WinFax state to TRANSMIT mode.
FaxChan = DDEINITIATE("FAXMNG32","TRANSMIT")
retvar=DDEPOKE(FaxChan,"sendfax", 'attach("&selFaxFile")')
** Set up the recipient information.
retvar=DDEPOKE(FaxChan,"sendfax",;
'recipient("&selFaxNo","","","","","","","","")')
** Set the fax resolution.
retvar=DDEPOKE(FaxChan,"Sendfax",'resolution("HIGH")') && LOW for low
** Turn the modem back on.
retvar=DDEEXECUTE(FaxChan,"GoActive")
** bypass the WinFax PRO Send dialog.
retvar=DDEPOKE(FaxChan,"sendfax",'showsendscreen("0")') && 1 for show screen
** Send the fax.
retvar=DDEPOKE(FaxChan,"sendfax","SendFaxUI")
** Close the DDE channel to release the resource.
retvar=DDETERMINATE(FaxChan)
ENDSCAN
ENDPROC && ::::::::::::::::::::::::::::::::: sendFromList
John Harriss
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only