Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Launching WinFax Pro from VP6

Status
Not open for further replies.

Irwin

IS-IT--Management
Jan 21, 2002
25
US
I have a client that wants to intergrate WinFax into my application. Does anyone have a running sample of source code that I could look at?

Thank you in advance for your help.
 
Hope this is what you are looking for

set printer to name winfax
x_no = fax_no
x_time = time()
x_date = left(dtoc(date()),6)+right(dtoc(date()),2)
FaxChan = DDEInitiate("FAXMNG32","CONTROL")
retvar = DDEExecute(FaxChan,"GoIdle")
FaxChan = DDEInitiate("FAXMNG32","TRANSMIT")
retvar=DDEPoke(FaxChan,"sendfax", ;
'recipient("&x_no","&x_time","&x_date"," "," "," "," "," "," ")')

Your code to generate report

set printer to
retvar=DDEExecute(FaxChan,"GoActive")
retvar=DDEPoke(FaxChan,"sendfax","SendFaxUI")
retvar=DDETerminate(FaxChan)


We use this to generate our customers monthly statement.
Input a range of customers and the damned fax line will
be jammed all night.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top