VB Fax – Cancel a Pending Fax in VB6

Download the VB fax (VB6) code samples.

To cancel a previously-submitted VB fax, use the CancelFax method. CancelFax only affects faxes waiting to be sent (with the status codes: -1 Preprocessing, -2 Ready, or -3 Pending Retry), and not faxes that are currently being transmitted.

The following VB6 fax snippet cancels a fax and checks if the cancellation succeeded:


Attribute VB_Name = "CancelFax"
'
' This method submits a 'Cancel' request for a pending VB fax
' To cancel an entire broadcast (batch), use the CancelBatch() method
'
Option Explicit

Const TransactionID As Long = 129040055

Public Sub Invoke()

Dim Result As Long

Dim objEnv As PocketSOAP.CoEnvelope
Dim objHttp As PocketSOAP.HTTPTransport

Set objEnv = New PocketSOAP.CoEnvelope

objEnv.EncodingStyle = ""

objEnv.SetMethod "CancelFax", "http://www.interfax.cc"
objEnv.Parameters.Create "Username", Main.Username, objEnv.URI
objEnv.Parameters.Create "Password", Main.Password, objEnv.URI
objEnv.Parameters.Create "TransactionID", TransactionID, objEnv.URI

Set objHttp = New PocketSOAP.HTTPTransport
objHttp.SoapAction = "http://www.interfax.cc/CancelFax"
objHttp.Send "https://ws.interfax.net/DFS.asmx", objEnv.Serialize
objEnv.parse objHttp

Result = objEnv.Parameters.Item(0).Value
    
If Result < 0 Then
    MsgBox ("Bad status=" & Result)
Else
    MsgBox ("TransactionID: " & TransactionID & " cancel request has been queued")
End If

Set objEnv = Nothing
Set objHttp = Nothing
End Sub