首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

.NET发送传真

Posted on 2005-03-18 03:07  delphi  阅读(1328)  评论(5)    收藏  举报
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()