Information générale
Catégorie:
Produits tierce partie
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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement