Fax Web Service Code Sample

Dim oSF As New interfax.InterFax() 'Reference to Interfax object
Dim List(9) As interfax.FaxItem 'Data structure (array) to hold results - max 10 items
Dim intTotalCount As Integer 'Total number of messages available for the user
Dim intListSize 'Actual size of list returned (Number of items in List()
Dim strOut As String = "" 'Build display here
Dim i As Integer
Dim lngRet As Long
'
' Invoke Interfax FaxStatus method
'
List = oSF.FaxStatus("MyUsername", "MyPassword", 99999999, 10, intTotalCount, intListSize, lngRet)
If lngRet <> 0 Then

'
' An error occured - see documentation
'
MessageBox("Error !!!" & lngRet)

Else

'
' A normal response returned from Interfax server
' Start build display
' strOut = "Total received: " & intListSize & " of " & intTotalCount & " showing TIDs: " & vbCrLf
strOut = strOut & "TransactionID" & " : " & "Status" & " : " & "RemoteCSID" & vbCrLf

For i = 0 To intListSize - 1

strOut = strOut & List(i).TransactionID & " : " & List(i).Status & " : " & List(i).RemoteCSID & vbCrLf

Next
MessageBox(strOut)

End If
End Sub