'this is sending code: Private Sub Buttonsend_Click(sender As Object, e As EventArgs) Handles Buttonsend.Click Try Dim objFaxDocument As New FAXCOMEXLib.FaxDocument Dim objFaxServer As New FAXCOMEXLib.FaxServer Dim objSender As FAXCOMEXLib.FaxSender = Nothing Dim JobID As Object 'Connect to the local fax machine objFaxServer.Connect("") 'Change to //ComputerName if access a fax sever 'Set high priority for bigger files objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH 'Set the body text of the fax to a file objFaxDocument.Body = "c:\New Microsoft Office Word Document.docx" 'The Faxes document name objFaxDocument.DocumentName = "My First Fax" 'Set the recipient of the fax objFaxDocument.Recipients.Add("1111111", "the") objFaxDocument.AttachFaxToReceipt = True 'Any notes for the fax objFaxDocument.Note = "first text fax of the day in vb" 'Fax Subject objFaxDocument.Subject = "testing fax system in vb" 'Provide the address for the fax receipt objFaxDocument.ReceiptAddress = "*********@yahoo.com" JobID = objFaxDocument.ConnectedSubmit(objFaxServer) MsgBox("The Job ID is :" & JobID(0)) Catch ex As Exception MsgBox("Error number: " & Hex(Err.Number) & ", " & Err.Description) End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)