http://expert.csdn.net/Expert/topic/2091/2091583.xml?temp=8.073062E-02
http://expert.csdn.net/Expert/topic/1501/1501558.xml?temp=4.478091E-02

解决方案 »

  1.   

    用到 FAXCOMLib.dll组件。 Public objFaxSev As New FAXCOMLib.FaxServer()    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim objFaxDoc As FAXCOMLib.FaxDoc
            objFaxSev.Connect("google")                ''主机名 
            Dim strFile As String = "d:\test.doc"               ''fax.txt"
            objFaxDoc = CType(objFaxSev.CreateDocument(strFile), FAXCOMLib.FaxDoc)                
            objFaxDoc.FaxNumber = "9,61246606"  '' "505"          '' "9,87597252"
            
            objFaxDoc.SenderName = "tom"                  '''' 是否有封面()
            objFaxDoc.SendCoverpage = 1           '' 0,1。是否需要封面
            objFaxDoc.ServerCoverpage = 1          ''0,1,是否使用自定义封面
            objFaxDoc.CoverpageName = "一般1.cov"        '’strFile1
            ''-------------------------------------
            objFaxDoc.RecipientName = "张三"   '’"张三"
            objFaxDoc.SenderAddress = "广州太平洋电脑市场9楼"           objFaxDoc.SenderCompany = "广州红帆电脑公司"              objFaxDoc.SenderDepartment = "技术部"         '’ "技术部"
            objFaxDoc.SenderFax = "87588875,517"               objFaxDoc.SenderHomePhone = "020-87654321"   
            objFaxDoc.SenderOffice = "太平洋2-905"           objFaxDoc.SenderOfficePhone = "020-87654321"  
            objFaxDoc.SenderTitle = "程序员"        
            objFaxDoc.CoverpageNote = "请各位到会,讨论相关事宜 abcdefghijklmnopqrstuvwxyz"   
            objFaxDoc.CoverpageSubject = "iOffice传真管理测试通知"  '’"iOffice传真管理测试通知"
            Dim b As Long = objFaxDoc.Send()
        End Sub
      

  2.   

    用到 FAXCOMLib.dll组件。 Public objFaxSev As New FAXCOMLib.FaxServer()    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim objFaxDoc As FAXCOMLib.FaxDoc
            objFaxSev.Connect("google")                ''主机名 
            Dim strFile As String = "d:\test.doc"               ''fax.txt"
            objFaxDoc = CType(objFaxSev.CreateDocument(strFile), FAXCOMLib.FaxDoc)                
            objFaxDoc.FaxNumber = "9,61246606"  '' "505"          '' "9,87597252"
            
            objFaxDoc.SenderName = "tom"                  '''' 是否有封面()
            objFaxDoc.SendCoverpage = 1           '' 0,1。是否需要封面
            objFaxDoc.ServerCoverpage = 1          ''0,1,是否使用自定义封面
            objFaxDoc.CoverpageName = "一般1.cov"        '’strFile1
            ''-------------------------------------
            objFaxDoc.RecipientName = "张三"   '’"张三"
            objFaxDoc.SenderAddress = "广州太平洋电脑市场9楼"           objFaxDoc.SenderCompany = "广州红帆电脑公司"              objFaxDoc.SenderDepartment = "技术部"         '’ "技术部"
            objFaxDoc.SenderFax = "87588875,517"               objFaxDoc.SenderHomePhone = "020-87654321"   
            objFaxDoc.SenderOffice = "太平洋2-905"           objFaxDoc.SenderOfficePhone = "020-87654321"  
            objFaxDoc.SenderTitle = "程序员"        
            objFaxDoc.CoverpageNote = "请各位到会,讨论相关事宜 abcdefghijklmnopqrstuvwxyz"   
            objFaxDoc.CoverpageSubject = "iOffice传真管理测试通知"  '’"iOffice传真管理测试通知"
            Dim b As Long = objFaxDoc.Send()
        End Sub
      

  3.   

    objFaxSev.Connect("google")                ''主机名 
    这里的主机名应该设那一个????