Add the reference to the FaxCom.dll. This dll is usually located in C:\WINNT\system32 folder.
'------------------------------------------------------------------
Dim fs As New FAXCOMLib.FaxServerClass
fs.Connect("grand")
Dim obj As Object
obj = fs.CreateDocument(tbFileName.Text) '要发送文档的文件名
Dim fd As FAXCOMLib.FaxDoc
fd = CType(obj, FAXCOMLib.FaxDoc)
fd.FaxNumber = tbNumber.Text '接收方传真号
fd.RecipientName = "TESTER"
Dim I As Integer
I = fd.Send
MessageBox.Show(I.ToString)
fs.Disconnect()
'------------------------------------------------------------------
Dim fs As New FAXCOMLib.FaxServerClass
fs.Connect("grand")
Dim obj As Object
obj = fs.CreateDocument(tbFileName.Text) '要发送文档的文件名
Dim fd As FAXCOMLib.FaxDoc
fd = CType(obj, FAXCOMLib.FaxDoc)
fd.FaxNumber = tbNumber.Text '接收方传真号
fd.RecipientName = "TESTER"
Dim I As Integer
I = fd.Send
MessageBox.Show(I.ToString)
fs.Disconnect()
浙公网安备 33010602011771号