我的代码如下:Private Sub FaxPic(PicName As String, Optional FaxNo As String = "") Dim lngSend As Long Dim strComputer As String Dim oFaxServer As FAXCOMLib.FaxServer Dim oFaxDoc As FAXCOMLib.FaxDoc
If FaxNo = "" Then FaxNo = InputBox("传真号码:", GG.MSGTITLE) If FaxNo = "" Then Exit Sub
strComputer = mComputerName Set oFaxServer = New FAXCOMLib.FaxServer oFaxServer.Connect strComputer oFaxServer.ServerCoverpage = 0 Set oFaxDoc = oFaxServer.CreateDocument(PicName) With oFaxDoc .FaxNumber = FaxNo .DisplayName = "Fax Server" lngSend = .Send End With Set oFaxDoc = Nothing
oFaxServer.Disconnect Set oFaxServer = Nothing End Sub
可以参考:
http://expert.csdn.net/Expert/topic/2751/2751231.xml?temp=.112652
如果你只是想收发传真的话,当然还有其他办法
可能是发送时机不当。
启动Faxcomlib时.用一个定时器 FINDWINDOW查找窗该窗体.如果发现.则向该窗口发送关闭消息.然后.停止定时器.
你说还有别的办法能提示一下吗?
Dim lngSend As Long
Dim strComputer As String
Dim oFaxServer As FAXCOMLib.FaxServer
Dim oFaxDoc As FAXCOMLib.FaxDoc
If FaxNo = "" Then FaxNo = InputBox("传真号码:", GG.MSGTITLE)
If FaxNo = "" Then Exit Sub
strComputer = mComputerName
Set oFaxServer = New FAXCOMLib.FaxServer
oFaxServer.Connect strComputer
oFaxServer.ServerCoverpage = 0 Set oFaxDoc = oFaxServer.CreateDocument(PicName)
With oFaxDoc
.FaxNumber = FaxNo
.DisplayName = "Fax Server"
lngSend = .Send
End With
Set oFaxDoc = Nothing
oFaxServer.Disconnect
Set oFaxServer = Nothing
End Sub
你说还有别的办法能提示一下吗?
你可以用mapi试试
你的没有?你的环境是什么? 研究研究啊。
或者另做一FORM隐藏,放上定时器,FINDWINDOW查找打印确认对话框,然后让它确认。