VB.NET: Get The Status Of Letters And Postcards with GetStatus()


  1. Create a new Console Application project and add a web reference
  2. Copy the entire code below, delete anything written in your application and paste the code there
  3. Replace "MyUsername" and "MyPassword" with your PostalMethods user details
  4. Replace "IDs" with a single ID of one of your sent mail items, multiple IDs (ID1,ID2,ID3) or a range of IDs (ID1-ID2)
  5. Start your application. If the response is -3000, you will see the status report. If the response is any other number, check the Web Service Status Codes section.
Imports System.IO
Module Module1
    Sub Main()
        Const MyUsername As String = "MyUsername"
        Const MyPassword As String = "MyPassword"
        Const IDs As String = "0"       'To query a single mail item
        'Const IDs As String = "0,0,0"  'To query multiple mail items
        'Const IDs As String = "0-0"    'To query a range of mail items
        Dim objPM As New com.postalmethods.api.PostalWS()
        Dim WSResult As com.postalmethods.api.GetStatusResult
        ' Invoke the GetStatus method
        WSResult = objPM.GetStatus( _
                    MyUsername, _
                    MyPassword, _
        ' Check response status
        If WSResult.ResultCode = -3000 Then
            ' -3000 means that the data was successfully retrieved.
            For i As Integer = 0 To WSResult.Statuses.Length - 1
                With WSResult.Statuses(i)
                    Console.WriteLine("ID: {0}", .ID)
                    Console.WriteLine("Status: {0}", .Status)
                    Console.WriteLine("Description: {0}", .Description)
                End With
            ' A value less than -3000 means an error occurred.
            ' See the PostalMethods Status Codes: http://www.postalmethods.com/statuscodes.
            Console.WriteLine("Error is:" & WSResult.ResultCode)
        End If
        ' In debug mode, the following lines prevent your console application from closing automatically upon termination
        Console.WriteLine("Hit ENTER to terminate application")
    End Sub
End Module