R
rs250
I receive error: 800710D8 when trying to fax through VB. After
searching the error
on Google, I found out that the error means that the fax printer isn't
installed on the client machine.
The network fax that is installed on my PC (Win XP Pro SP2) is the fax
modem on the server. The fax icon in "Printers and Faxes" is a MS
Shared Fax Driver and clicking on opens up Fax Console. So I should be
able to send a fax through the vb code and that fax should appear in
the Fax Console.
If I have a MS Fax Shared Driver installed then why the error?
Here is the code:
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
Thanks.
searching the error
on Google, I found out that the error means that the fax printer isn't
installed on the client machine.
The network fax that is installed on my PC (Win XP Pro SP2) is the fax
modem on the server. The fax icon in "Printers and Faxes" is a MS
Shared Fax Driver and clicking on opens up Fax Console. So I should be
able to send a fax through the vb code and that fax should appear in
the Fax Console.
If I have a MS Fax Shared Driver installed then why the error?
Here is the code:
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
Thanks.