传真组建faxcom的返回值的问题,在线等...

石头子 2006-01-23 05:50:43
请问faxcom有什么属性或方法可以得到send的结果,成功或失败?
比如:对方传真忙,之类的!

在线等...
在线等...
...全文
48 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过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基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告