How to send a fax from VFP via WinfaxPro

TheMSsForum.com: The Microsoft Software Forum

Hi,

Would someone be able to guide me to sample code in VFP to send a fax via
Winfaxpro SDK. I tried some of the examples on the web and the fax gets
sent to the Winfax Printer driver but Winfax never dials out.

Thanks much,

Zoom
Top

Re: How to send a fax from VFP via WinfaxPro by swdev2

swdev2
Mon Apr 02 21:22:12 CDT 2007

Run through this code - see if you can make it work -
http://fox.wikis.com/wc.dll?Wiki~WinFaxAutomation~SoftwareEng

Mondo Regards [Bill]
--
===================
William Sanders / EFG VFP / mySql / MS-SQL
www.efgroup.net/vfpwebhosting
www.terrafox.net www.viasqlserver.net

"Zoom" <keashdoc@hotmail.com> wrote in message
news:P_OdnXEn66KROYzbnZ2dnUVZ_rylnZ2d@comcast.com...
> Hi,
>
> Would someone be able to guide me to sample code in VFP to send a fax via
> Winfaxpro SDK. I tried some of the examples on the web and the fax gets
> sent to the Winfax Printer driver but Winfax never dials out.
>
> Thanks much,
>
> Zoom
>
>


Top

Re: How to send a fax from VFP via WinfaxPro by Jan

Jan
Tue Apr 03 10:59:03 CDT 2007

Here is a snippet of my code I used years ago to send faxes from MS WORD:


WITH oWord
.DisplayAlerts=.F.
.Visible=.F.
xcDefaultPrinter=.ActivePrinter
.ActivePrinter = "WinFax" && changes default printer!!!
.Documents.Open(xcTmpDoc) && open document to fax
ENDWITH


oFax=NewObject('WinFax.SDKSend8.0')
WITH oFax
.LeaveRunning() && do not close WinFax controller
* .SetDeleteAfterSend(0) && 0-no, 1-yes
* .SetResolution(1) && 1 fine, 0 standard
* .ShowSendScreen(0)
* .SetPreviewFax(0)
* .ShowCallProgess(0)
* .SetSubject('')
* .SetPriority(2) && 3 high, 2 normal, 1 low
* .SetUseCreditCard(0)
* .SetBillingCode(0)
xcD=TtoC(tSendDateTime, 1)
xcDD=substr(xcD,5,2)+[/]+substr(xcD,7,2)+[/]+substr(xcD,3,2)
.SetDate(xcDD)
.SetTime(TtoC(tSendDateTime, 2))
.SetPrintFromApp(1) && 0-no, 1-yes
* .AddAttachmentFile(xcTmpDoc)
.AddAttachmentFile([])
.SetTo(xcAnrede) && AdresseeName
.SetCompany(xcAnschrift) && Firma Name
.SetAreaCode([])
.SetCountryCode([])
.SetNumber(xcFaxNr) && mandatory
.AddRecipient() && mandatory
.Send(1)
ENDWITH

WITH oWord
.Application.PrintOut()
.ActiveDocument.Close(wdDoNotSaveChanges) && close dokument
.ActivePrinter=xcDefaultPrinter
.Visible=.F.
ENDWITH


Zoom napsal(a):
> Hi,
>
> Would someone be able to guide me to sample code in VFP to send a fax via
> Winfaxpro SDK. I tried some of the examples on the web and the fax gets
> sent to the Winfax Printer driver but Winfax never dials out.
>
> Thanks much,
>
> Zoom
>
>
Top