Reference to the FAXCOM.DLL
Reference to
Expand|Select|Wrap|Line Numbers
- import FAXCOM
- import FAXCOMLib
After sending the fax, we need to confirm whether the fax has been sent or not. For this, we need to employ tracking for the status of faxes. In this, if the file gets transmitted in its first attempt of dialing the Faxmodem, the status of the fax Queue will be changed; otherwise it will try two more times (the exact no. of times can be modified programmatically). For this we have to create FaxJob object, which permits a fax client Visual Basic application to access the job status for incoming and outgoing fax transmissions, and to pause, resume, cancel or restart a fax job.
We can also use the object to retrieve information about fax jobs. The information includes, among other items, the fax number to which the fax server will send the transmission, job attributes, and recipient and sender information. There is one FaxJob object for each queued job associated with the server.
Prior to that, we have to call the GetJobs method of the FaxServer object to create a FaxJobs object on the connected fax server. Using the SetStatus method of Fax Status object, we can change the job status of a specified FaxJob object. We can use this method to pause, resume, cancel, or restart a specified fax job.
Expand|Select|Wrap|Line Numbers
- Dim FJ As New FaxJobs
- 'to access the job status for incoming
- 'and outgoing fax transmissions
- Dim intCount As Integer
- Dim FJ1 As New FaxJob
- Set FJ = FS.GetJobs
- intCount = FJ.Count
- For i = 1 To intCount
- Set FJ1 = FJ.Item(i)
- MsgBox "JobId=" & FJ1.JobId
- MsgBox "QueueStatus " + FJ1.QueueStatus
- Next I
- Dim FJ As New FaxJobs
- 'to access the job status for incoming
- 'and outgoing fax transmissions
- Dim intCount As Integer
- Dim FJ1 As New FaxJob
- Set FJ = FS.GetJobs
- intCount = FJ.Count
- For i = 1 To intCount
- Set FJ1 = FJ.Item(i)
- MsgBox "JobId=" & FJ1.JobId
- MsgBox "QueueStatus " + FJ1.QueueStatus
- Next I
Monitoring Port Status:
The Fax Status allows our application to keep track of each stage of a fax’s sending or receiving progress. Using Get Status method of the FaxPort object, we can create Fax Status object. The FaxStatus object permits a fax client Visual Basic application to retrieve status information for a specific port on a connected fax server.
Before that, we have to create FaxPorts object by calling the GetPorts method of the FaxServer object. Using the Receive property of Fax Status object, we can find whether the specified fax port is currently receiving a fax transmission or not. If this property is a nonzero value, the port is currently receiving a fax.
The Send property of FaxStatus object tells us whether the specified fax port is currently sending a fax transmission. If this property is a nonzero value, the port is currently sending a fax.
The sample code for monitoring Fax status as follows:
Expand|Select|Wrap|Line Numbers
- Dim FS As New FaxServer
- Dim FST As New FaxStatus
- Dim FP As New FaxPort
- Dim lReceive As Long
- Dim lSend As Long
- Set FP = FS.GetPorts
- Set FST = FP.Item(1)
- lReceive = FP1.Receive
- If lReceive Then
- MsgBox "port is enabled to receive faxes"
- Else
- MsgBox "port is not enabled to receive faxes"
- End If
- lSend = FP1.Send
- If lSend Then
- MsgBox "port is enabled to Send faxes"
- Else
- MsgBox "port is not enabled to Send faxes"
- End If
- Dim FS As New FaxServer
- Dim FST As New FaxStatus
- Dim FP As New FaxPort
- Dim lReceive As Long
- Dim lSend As Long
- Set FP = FS.GetPorts
- Set FST = FP.Item(1)
- lReceive = FP1.Receive
- If lReceive Then
- MsgBox "port is enabled to receive faxes"
- Else
- MsgBox "port is not enabled to receive faxes"
- End If
- lSend = FP1.Send
- If lSend Then
- MsgBox "port is enabled to Send faxes"
- Else
- MsgBox "port is not enabled to Send faxes"
- End If
Bharath Reddy VasiReddy
eXensys