谢谢两位: 上面的资料我有搜过,但我觉得有些问题。例如,FaxServer.Connect ("\\" & FaxMachine) , 要连接什么呢?电信提供的? Public Function SendFax(FileName As Variant, FaxMachine As Variant, FaxNumber As Variant)
Set FaxServer = CreateObject("FaxServer.FaxServer") FaxServer.Connect ("\\" & FaxMachine) Set FaxDoc = FaxServer.CreateDocument(FileName) With FaxDoc .FaxNumber = FaxNumber .Send End With
http://www.qlzlw.com/zhuanli/patent_ziliao_xinxi_jishu_3242.html
上面的资料我有搜过,但我觉得有些问题。例如,FaxServer.Connect ("\\" & FaxMachine) , 要连接什么呢?电信提供的?
Public Function SendFax(FileName As Variant, FaxMachine As Variant, FaxNumber As Variant)
Set FaxServer = CreateObject("FaxServer.FaxServer")
FaxServer.Connect ("\\" & FaxMachine)
Set FaxDoc = FaxServer.CreateDocument(FileName)
With FaxDoc
.FaxNumber = FaxNumber
.Send
End With
Set FaxDoc = Nothing
Set FaxServer = Nothing
End Function
例如发邮件的话,也要提供个smtp发送帐号(这个可以随便申请个邮箱就有)。
发短信的发,需要移动的短信网关,也有相关的网关IP与帐号密码什么的.
而发网络传真,需要什么支持?