Managing the Fax Device Collection
The following Microsoft Visual Basic code example demonstrates how to manage a collection of fax devices.
Private Sub Form_Load()
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim collFaxDevices As FAXCOMEXLib.FaxDevices
Dim objFaxDevice As FAXCOMEXLib.FaxDevice
'Error handling
On Error GoTo Error_Handler
'Connect to the fax server
objFaxServer.Connect("")
collFaxDevices = objFaxServer.GetDevices
MsgBox("This server has " & collFaxDevices.Count & " fax devices.")
Dim I As Object
For I = 1 To collFaxDevices.Count
objFaxDevice = collFaxDevices.Item(I)
MsgBox("Device ID for device number " & I & " is: " & objFaxDevice.ID)
Next
Dim ID As Long
ID = InputBox("Input a device ID to get information about that device")
objFaxDevice = collFaxDevices.ItemById(ID)
'Refresh the device information
objFaxDevice.Refresh()
MsgBox("Device name: " & objFaxDevice.DeviceName & _
vbCrLf & "Device ID: " & objFaxDevice.Id & _
vbCrLf & "Provider unique name: " & objFaxDevice.ProviderUniqueName & _
vbCrLf & "Powered off: " & objFaxDevice.PoweredOff & _
vbCrLf & "Receiving now: " & objFaxDevice.ReceivingNow & _
vbCrLf & "Ringing now: " & objFaxDevice.RingingNow & _
vbCrLf & "Sending now: " & objFaxDevice.SendingNow)
'Display the routing methods for the device
Dim RoutingMethods() As String
RoutingMethods = objFaxDevice.UsedRoutingMethods
'UBound finds the size of the array
For j = 0 To UBound(RoutingMethods)
MsgBox("Method number " & j & _
vbCrLf & RoutingMethods(j))
Next
'Stop using the first routing method
objFaxDevice.UseRoutingMethod(RoutingMethods(0), False)
'Save the change
objFaxDevice.Save()
Exit Sub
Error_Handler:
'Implement error handling at the end of your subroutine. This
' implementation is for demonstration purposes
MsgBox("Error number: " & Hex(Err.Number) & ", " & Err.Description)
End Sub