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