用到 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"
用到 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"
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
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
这里的主机名应该设那一个????