R
rs250
Fax Services is installed on Win 2k3 Standard Edition. These are the
steps that I use in the Fax Console to send a fax:
1) Click Send Fax under File Menu
2) Click Next, To: Test, Location: US (1), Enter Fax Number, Check Use
Dialing Rules
3) Subjet Line: Test
4) Send fax: Now, Priority: Normal
5) Click Finish
In the Fax Console window, the Extended Status has "No answer" after 4
tries. I'm not sure why the fax doesn't get sent.
Some background info:
There are 3 Comtrol RocketModem III devices in the Fax Service Manager
that are setup to send and receive faxes. All of these 3 devices are
checked in the "Configure Fax". In Fax Service Manager the order of
priority is given to the third device.
What I'm trying to accomplish is to send a fax through Vb6 by using the
FaxComEx Library. Here is the code that I wrote on a Win XP Pro SP2 OS:
Private Sub SetupFax()
Dim objFaxServer As FAXCOMEXLib.FaxServer
Dim objFaxDocument As FAXCOMEXLib.FaxDocument
Dim objFaxDevice As FAXCOMEXLib.FaxDevice
Dim jobid As Variant
On Error GoTo Error_Handler
Set objFaxServer = New FAXCOMEXLib.FaxServer
Set objFaxDocument = New FAXCOMEXLib.FaxDocument
objFaxServer.Connect "svrimage.centurysd.com"
Set objFaxDevice = objFaxServer.GetDevices.Item(3)
objFaxDevice.SendEnabled = True 'Not sure if I need this proprety
objFaxDevice.Save 'Not sure if I need this proprety
objFaxDocument.Body = "C:Test.txt"
objFaxDocument.Recipients.Add "fax #", "Test"
jobid = objFaxDocument.ConnectedSubmit(objFaxServer)
MsgBox "The jobid is " & jobid
Set objFaxServer = Nothing
Set objFaxDocument = Nothing
Set objFaxDevice = Nothing
Error_Handler:
MsgBox "Error number: " & Hex(Err.Number) & ", " & Err.Description
End Sub
I am able to use the Connect property and connect to the third device
(Comtrol RocketModem III 3rd device), but when I try to use the
ConnectedSubmit property I get the error: Run time error
'-2147024894(80070002)': Operation Failed
Am I getting the error above because I cannot send a fax through fax
console?
Sorry for the Loong message.
Thanks for the help!
steps that I use in the Fax Console to send a fax:
1) Click Send Fax under File Menu
2) Click Next, To: Test, Location: US (1), Enter Fax Number, Check Use
Dialing Rules
3) Subjet Line: Test
4) Send fax: Now, Priority: Normal
5) Click Finish
In the Fax Console window, the Extended Status has "No answer" after 4
tries. I'm not sure why the fax doesn't get sent.
Some background info:
There are 3 Comtrol RocketModem III devices in the Fax Service Manager
that are setup to send and receive faxes. All of these 3 devices are
checked in the "Configure Fax". In Fax Service Manager the order of
priority is given to the third device.
What I'm trying to accomplish is to send a fax through Vb6 by using the
FaxComEx Library. Here is the code that I wrote on a Win XP Pro SP2 OS:
Private Sub SetupFax()
Dim objFaxServer As FAXCOMEXLib.FaxServer
Dim objFaxDocument As FAXCOMEXLib.FaxDocument
Dim objFaxDevice As FAXCOMEXLib.FaxDevice
Dim jobid As Variant
On Error GoTo Error_Handler
Set objFaxServer = New FAXCOMEXLib.FaxServer
Set objFaxDocument = New FAXCOMEXLib.FaxDocument
objFaxServer.Connect "svrimage.centurysd.com"
Set objFaxDevice = objFaxServer.GetDevices.Item(3)
objFaxDevice.SendEnabled = True 'Not sure if I need this proprety
objFaxDevice.Save 'Not sure if I need this proprety
objFaxDocument.Body = "C:Test.txt"
objFaxDocument.Recipients.Add "fax #", "Test"
jobid = objFaxDocument.ConnectedSubmit(objFaxServer)
MsgBox "The jobid is " & jobid
Set objFaxServer = Nothing
Set objFaxDocument = Nothing
Set objFaxDevice = Nothing
Error_Handler:
MsgBox "Error number: " & Hex(Err.Number) & ", " & Err.Description
End Sub
I am able to use the Connect property and connect to the third device
(Comtrol RocketModem III 3rd device), but when I try to use the
ConnectedSubmit property I get the error: Run time error
'-2147024894(80070002)': Operation Failed
Am I getting the error above because I cannot send a fax through fax
console?
Sorry for the Loong message.
Thanks for the help!