Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sending/Receiving faxes
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows Server 2003
Network:
Windows 2003 Server
Database:
MS SQL Server
Divers
Thread ID:
01044886
Message ID:
01045031
Vues:
40
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform