Trying to get Fax to work

[TwistedPair]

I have been trying to get this piece of code to work for days now. It throws an error whenever you try to attach the file you want to fax to the coverpage. I'm hoping someone may be able to help solve this one.

Thanks

    
Imports FAXCOMEXLib


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
        Dim objFaxServer As New FAXCOMEXLib.FaxServer
        Dim objSender As FaxSender
        Dim JobID As Object

        'Error handling 
        On Error GoTo Error_Handler

        'Connect to the fax server 
        objFaxServer.Connect("Server")

        'Set the fax body 
        objFaxDocument.Body = "Fax00000020.tif"

        'Name the document 
        objFaxDocument.DocumentName = "My First Fax"

        'Set the fax priority 
        objFaxDocument.Priority = fptHIGH

        'Add the recipient with the fax number 12225550100 
        objFaxDocument.Recipients.Add("555-1234", "Test")

        'Choose to attach the fax to the fax receipt 
        objFaxDocument.AttachFaxToReceipt = True

        'Set the cover page type and the path to the cover page 
        objFaxDocument.CoverPageType = FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
        objFaxDocument.CoverPage = "generic"

        'Provide the cover page note 
        objFaxDocument.Note = "Here is the info you requested"

        'Provide the address for the fax receipt 
        objFaxDocument.ReceiptAddress = "someone@example.com"

        'Set the receipt type to email 
        objFaxDocument.ReceiptType = FAX_RECEIPT_TYPE_ENUM.frtMAIL

        'Specify that the fax is to be sent at a particular time 
        'objFaxDocument.ScheduleType = fstSPECIFIC_TIME 
        ''CDate converts the time to the Date data type 
        'objFaxDocument.ScheduleTime = CDate("4:35:47 PM") 

        objFaxDocument.Subject = "Today's fax"

        'Set the sender properties. 
        objFaxDocument.Sender.Title = "Mr."
        objFaxDocument.Sender.Name = "Bob"
        objFaxDocument.Sender.City = "Cleveland Heights"
        objFaxDocument.Sender.State = "Ohio"
        objFaxDocument.Sender.Company = "Microsoft"
        objFaxDocument.Sender.Country = "USA"
        objFaxDocument.Sender.Email = "someone@microsoft.com"
        objFaxDocument.Sender.FaxNumber = "12165555554"
        objFaxDocument.Sender.HomePhone = "12165555555"
        objFaxDocument.Sender.OfficeLocation = "Downtown"
        objFaxDocument.Sender.OfficePhone = "12165555553"
        objFaxDocument.Sender.StreetAddress = "123 Main Street"
        objFaxDocument.Sender.TSID = "Office fax machine"
        objFaxDocument.Sender.ZipCode = "44118"
        objFaxDocument.Sender.BillingCode = "23A54"
        objFaxDocument.Sender.Department = "Accts Payable"

        'Save sender information as default 
        objFaxDocument.Sender.SaveDefaultSender()

        'Submit the document to the connected fax server 
        'and get back the job ID. 

        JobID = objFaxDocument.ConnectedSubmit(objFaxServer)

        MsgBox("The Job ID is :" & JobID(0))

        objFaxServer.Disconnect()

        Exit Sub

Error_Handler:
        'Implement error handling at the end of your subroutine. This 
        ' implementation is for demonstration purposes 
        MsgBox("Error number: " & Hex(Err.Number) & ", " & Err.Description)

    End Sub

[Arch_Angel]

What's the error? At what line?

[TwistedPair]

The error is thrown at this line
"JobID = objFaxDocument.ConnectedSubmit(objFaxServer)" I think the message is operation failed, Have to check it agin when I go back to work.

If I don't attach a file it works fine, the cover page is sent successfully. Once I attach a file however, it throws the error and I have tried several file formats.

[TwistedPair]

The error is operation failed
The code accesses the fax server and sends the fax to it. The fax server in turn faxes the document. I uninstalled and reinstalled the fax service on the server today. Not sure if the problem is in the code or in the configuration. Either way the error message isn't helpful.

[dkroll]

TwistedPair,

Have you found the solution yet? I'm having the same error using Delphi.

Thanks,

David