Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sending/Receiving faxes
Message
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows Server 2003
Network:
Windows 2003 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01044886
Message ID:
01045031
Views:
41
Hi Roy,

>1) I would like to implement a fax server.

Do you have Windows XP or Windows Server 2003? In this case, you can use the Microsoft Fax Services for sending faxes like this:
*--------------------------------------------------------
* We send the fax from this machine
*--------------------------------------------------------
Local loFaxServer
loFaxServer = CreateObject("FAXCOMEX.FaxServer")
loFaxServer.Connect( "" )

*--------------------------------------------------------
* Create a fax new document and attach a Word document
*--------------------------------------------------------
Local loFaxDocument
loFaxDocument = CreateObject("FAXCOMEX.FaxDocument")
loFaxDocument.Body = FullPath("MyFax.doc")
loFaxDocument.DocumentName = "Special offer"
loFaxDocument.Priority = 2 && fptHIGH
loFaxDocument.ReceiptType = 0 && frtNONE
loFaxDocument.ScheduleType = 0 && fstNOW

*--------------------------------------------------------
* Specify information for the cover page
*--------------------------------------------------------
loFaxDocument.CoverPageType = 2 && fcptSERVER
loFaxDocument.CoverPage = "generic"
loFaxDocument.Note = "Text on the cover page"
loFaxDocument.Subject = "Hello World fax"

*--------------------------------------------------------
* Add a recipient
*--------------------------------------------------------
loFaxDocument.Recipients.Add( "68267082", "Christof" )

*--------------------------------------------------------
* Specify the sender. Use the default sender here.
*--------------------------------------------------------
loFaxDocument.Sender.LoadDefaultSender()

*--------------------------------------------------------
* Submit the document to the fax server
*--------------------------------------------------------
Local lcJobID
lcJobID = loFaxDocument.ConnectedSubmit(loFaxServer)
With the job ID you can later query the status of the fax. Check out the documentation on http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxusing_7p2r.asp for more details.
--
Christof
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform