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

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

在线等...
在线等...
...全文
77 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧