Fax Utility in Visual Foxpro 6.0

[Chirag Thakkar]

Hi Everybody,
I need to integrate fax utility in my visual foxpro 6.0
application. I want to send a report generated from visual
foxpro application to the vendors. The Fax nos. are
already there in the database. How do I do that ? Is there
any ready utility which can I use to achieve my purpose ?
Kindly give the solution if you know.
Thanks
-Chirag Thakkar

[Mike Gagnon]

I believe with Winfax you can achieve this. When you install WinFax, it also
give you an additional printer. just SET PRINTER TO the Winfax printer.

http://www.symantec.com/winfax/

"Chirag Thakkar" <chira...@yahoo.com> wrote in message
news:c93c01c20e54$54015390$39ef2ecf@TKMSFTNGXA08...

[DP]

if you got winfax10 you also can access the api directly
following is a quick example out of a print class that I did that also faxes
WITH THIS
.lo_fax = CREATEOBJECT("Winfax.sdksend8.0")

WITH .lo_fax

IF EMPTY(.parent.edt_msg.value)
.setusecover = 0
ELSE
.setusecover = 1
.setcovertext = .parent.edt_msg.value && cover text message

IF !EMPTY(.parent.txt_ent3.value)
.setto = ALLTRIM(.parent.txt_ent3.value) && to
ENDIF

IF !EMPTY(.parent.txt_ent2.value)
.setcompany = ALLTRIM(.parent.txt_ent2.value) &&company
ENDIF

ENDIF

.setnumber(THIS.parent.txt_ent1.VALUE) && fax number
.showcallprogress(1) && pops up
the winfax call progress window

IF !EMPTY(THIS.parent.faxcompany)
.setcompany(THIS.parent.faxcompany) &&fax to company
ENDIF

IF !EMPTY(THIS.parent.faxsubject)
.setsubject(THIS.parent.faxsubject) &&Subject on cover
page
ENDIF

.addrecipient &&open
the task in the fax list
.setprintfromapp(1)
.SEND(0) && Send
fax after spooling complete
SET PRINTER TO NAME (THIS.parent.PRINTER) &&printer is set to
the winfax printer

IF THIS.parent.SUMMARY && now spool the report
to winfax
REPORT FORM (THIS.parent.creport) TO PRINTER NOCONSOLE SUMMARY
ELSE
REPORT FORM (THIS.parent.creport) TO PRINTER NOCONSOLE
ENDIF

SET PRINTER TO NAME (lc_oldprinter) &&reset the printer to the
previously selected
.done() && tell
winfax that job is done and to send as soon as possible
ENDWITH
ENDWITH

HTH

"Mike Gagnon" <mike....@slpcanada.com> wrote in message
news:eHJOyatDCHA.2576@tkmsftngp04...