Results 1 to 5 of 5

Thread: Trying to get Fax to work

  1. #1
    Join Date
    Jun 2005
    Posts
    708
    Rep Power
    0

    Default Trying to get Fax to work

    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
    Code:
        
    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
    There's no place like 127.0.0.1

  2. #2
    Join Date
    Apr 2003
    Posts
    13,144
    Rep Power
    29

    Default

    What's the error? At what line?
    "The best software is the one that fits your needs." - A_A

    Virus free since: date unknown
    Anti-virus free since: August 2009

  3. #3
    Join Date
    Jun 2005
    Posts
    708
    Rep Power
    0

    Default

    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.
    There's no place like 127.0.0.1

  4. #4
    Join Date
    Jun 2005
    Posts
    708
    Rep Power
    0

    Default

    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.
    There's no place like 127.0.0.1

  5. #5
    Join Date
    Jul 2009
    Posts
    1
    Rep Power
    0

    Default

    TwistedPair,

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

    Thanks,

    David

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •