Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Faxing Reports AND Coverpages With WinFax
Message
From
07/12/1998 11:16:54
 
 
To
16/11/1998 00:38:23
Paul Harker
Harker Enterprises, Inc.
Idaho Falls, Idaho, United States
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00157093
Message ID:
00164793
Views:
18
Hi Paul and All,

Mind if I jump in here with a related question. I am trying to send faxes thru WFP 9.0 from VFP 5 and 6. I appear to be able to successfully insert faxes into WFP from Fox using code almost exactly like your example only I'm adding attachments (all 0's are returned). However, the faxes never show up in the fax queues. This is happening on both my test (Win98) machine and the production (NTServer 4) machine. I recently installed WFP explicitly for this purpose. Anyone have any clues as to why? TIA.

Here's my test code:

oFax=CreateObject('WinFax.SDKSend8.0')
oFax.LeaveRunning

? "SetTo:",oFax.SetTo('SetTo field')
? "SetCompany:",oFax.SetCompany('SetCompany field')
? "SetSubject:",oFax.SetSubject('SetSubject field')
? "SetNumber:",oFax.SetNumber('555-1212')
? "SetAreaCode:", oFax.SetAreaCode('405')
? "AddAttachmentFile:",oFax.AddAttachmentFile('d:\wc\report.htm')
oFax.SetQuickCover(1)

? "SetCoverText:",oFax.SetCoverText('SetCoverText field')
? "SetPrintFromApp:",oFax.SetPrintFromApp(1)

? "AddRecipient:",oFax.AddRecipient
? "Send?:",oFax.Send(0)
? "GetLastError:",oFax.GetLastError()

oFax=.NULL.

>>>Keith,
>>>There is an option to control this. I had implemented a winfax DDE link a few years ago that successfully did this, so I know it is possible. If you can't find the option, let me know and I'll dig out the code and look it up.
>>>
>>>FYI, I believe WF 8+ is OLE, whereas 7- was only DDE. The object approach may give more control, but I haven't had time to look into it.
>>>
>>>-Ed
>>
>> I haven't used DDE, but here's what I've got via OLE (with some help from another thread here):
>>
>>oWinFax = CreateObject("WinFax.SDKSend")
>>oWinFax.SetSubject("Test Fax")
>>oWinFax.SetNumber("1234567")
>>oWinFax.SetAreaCode("555")
>>oWinFax.SetCompany("Some Company")
>>oWinFax.AddRecipient() && Required
>>oWinFax.SetPrintFromApp(1)
>>oWinFax.AddAttachmentFile("")
>>oWinFax.Send()
>>
>>SET PRINTER TO NAME winfax
>>REPORT FORM MyReport TO PRINT NOCONSOLE
>>
>>RELEASE oWinFax
>>
>>Hope it helps.
>
>Hey, nice to see my code. I recently modified my app to add cover sheets if the customer wants. You can have a pointer to a filename of the cover sheet. This way you can have users create their own cover sheet and include it with their faxes. I have also worked complex dialing issues (10 digit local vs 7 diget local vs 10 diget diatance and 7 diget distance numbers). Let me know if you have any other WinFax questions.
Later...
/< /-/
Previous
Reply
Map
View

Click here to load this message in the networking platform