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 FAXCOMEXLib.FaxSender
        Dim JobID As Object

        'Error handling
        On Error GoTo Error_Handler

        'Connect to the fax server
        objFaxServer.Connect("\\2003SERVER")	'	Not the printer name, just the machine name -- must have the "\\"

        'Set the fax body
        '	Only last one will be used
        'objFaxDocument.Body = "c:\Docs\ascii.doc"
        'objFaxDocument.Body = "c:\Docs\body.txt "
        objFaxDocument.Body = "c:\Docs\test.htm"

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

        'Set the fax priority
        objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH

        'Add the recipient fax number
        objFaxDocument.Recipients.Add("742-9769", "JimG")

        '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 = FAXCOMEXLib.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 none
        objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtNONE

        'Specify that the fax is to be sent now
        objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstNOW


        'CDate converts the time to the Date data type
        '        objFaxDocument.ScheduleTime = CDate("4:35:47 PM")

        objFaxDocument.Subject = "Today's fax"
        '       'Load  sender information as default
        'objFaxDocument.Sender.LoadDefaultSender()

        '       '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.Submit("\\2003server") ' .ConnectedSubmit(objFaxServer)
        JobID = objFaxDocument.ConnectedSubmit(objFaxServer)
        MsgBox("The Job ID is :" & JobID(0))

        objFaxServer.Disconnect()

        Exit Sub


        '	The error code 0x80070483 is a standard HRESULT value. The value of 7 in the
        '	first half indicates that is a Win32 error code. The second half is the
        '	actual code, 0x483 which is 1155. Typing 'net helpmsg 1155' on a
        '	command-line displays the following message
        '	
        '	"No application is associated with the specified file for this operation."
        '	
        '	So your problem is in fact with some file association. You can try restoring
        '	the file association for TIFF to the standard 'Windows Picture & Fax Viewer'
        '	in Windows Explorer > Folder Options. File Types. For most users the command
        '	line should read:
        '	"rundll32.exe <drive>:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscree n %1"




        '	How we have done it is setup a web service on the server with the fax card / fax console, installed
        '	Acrobat Reader 4, created a file assoication to .pdf4 extension (which we generate out of our app),
        '	ie. Under the "File Type" for PDF4, we have created a "printto" action, and the program is
        '	C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe /t %1 %2 %3 %4
        '	
        '	Use DDE, Application = AcroRd32 and Topic = System


        '	But if you look at File Associations for HTML files, isn't there a printto
        '	verb already defined for your OS?
        '	Mine has one:
        '	rundll32.exe c:\windows\System32\mshtml.dll,PrintHTML "%1" "%2" "%3" "%4"
        '   see-- http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnie55/html/wb_print.asp
        '   better -- no dialog
        '   "C:\Program Files\Microsoft Office\Office10\msohtmed.exe" /pt %1


        '   For text files:
        '   "%SystemRoot%\system32\notepad.exe" /pt "%1" "%2" "%3" "%4"

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
End Class