>*-------------------------------------------------------- >* 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.