Fax Web Service Code Sample

Dim oSF As New interfax.InterFax() 'Reference to the Interfax Web Service Object
Dim lngResult As Long
Dim b() As Byte 'holds binary data read from a Word file
'
' Invoke the Sendfax method
'
lngResult = oSF.Sendfax("MyUsername", "MyPassword", "+1-212-3456789" , b, "DOC")
'
' Check the status
'
If lngResult > 0 Then

'
' A positive value means the message was successfully queued for transmission.
' The Interfax transaction ID is returned.
'
MessageBox ("Fax submitted properly. lngResult is: " & lngResult)

Else

'
' A negative value means an error occured.
' See documentation for error codes description.
'
MessageBox ("error submitting fax. Error=" & lngResult)

End If