7453
社区成员
- 主页
传真组建faxcom的返回值的问题，在线等...
请问faxcom有什么属性或方法可以得到send的结果，成功或失败？
比如：对方传真忙，之类的!
在线等...
在线等...
比如：对方传真忙，之类的!
在线等...
在线等...
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
zou19820704 2006-01-23
function xx()
Dim FS As New FAXCOMLib.FaxServer
Dim FD As New FAXCOMLib.FaxDoc
FS.Connect ("computer_name") ' My Computer's name
Set FD = FS.CreateDocument("c:\test_rtf.rtf")
FD.FileName = "c:\test_rtf.rtf"
FD.FaxNumber = "15555555555"
FD.DisplayName = "Tel-5553731181"
FD.DiscountSend = 0
FD.SendCoverpage = 0
xx= FD.Send ()
FS.Disconnect
Set FD = Nothing
Set FS = Nothing
end function
根据返回的xx来判断
我没有window2000，所以具体是怎么样我也不清楚，你试试看吧
zou19820704 2006-01-23
使用faxcom ，应该在2000下，因为他是win2000带的
在vb的project / refernes 中选种 faxcom 1.0 typelibrary
Dim FS As New FAXCOMLib.FaxServer
Dim FD As New FAXCOMLib.FaxDoc
FS.Connect ("computer_name") ' My Computer's name
Set FD = FS.CreateDocument("c:\test_rtf.rtf")
FD.FileName = "c:\test_rtf.rtf"
FD.FaxNumber = "15555555555"
FD.DisplayName = "Tel-5553731181"
FD.DiscountSend = 0
FD.SendCoverpage = 0
FD.Send
FS.Disconnect
Set FD = Nothing
Set FS = Nothing
在vb的project / refernes 中选种 faxcom 1.0 typelibrary
Dim FS As New FAXCOMLib.FaxServer
Dim FD As New FAXCOMLib.FaxDoc
FS.Connect ("computer_name") ' My Computer's name
Set FD = FS.CreateDocument("c:\test_rtf.rtf")
FD.FileName = "c:\test_rtf.rtf"
FD.FaxNumber = "15555555555"
FD.DisplayName = "Tel-5553731181"
FD.DiscountSend = 0
FD.SendCoverpage = 0
FD.Send
FS.Disconnect
Set FD = Nothing
Set FS = Nothing
