VB.NET: Get Letter Metadata with GetLetterDetails()


  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 "ID" with the LetterID for which you would like to get the status
  5. Start your application. If the response is -3000, you will see the details report. If the response is any other number, check the Web Service Status Codes section.
Imports System.IO
Module Module1
    Sub Main()
        Dim objPM As New com.postalmethods.api.PostalWSSimple()
        Dim objResult As com.postalmethods.api.GetLetterDetailsResult
        ' Invoke the GetLetterDetails method
        objResult = objPM.GetLetterDetails("MyUsername", "MyPassword", ID)
        ' Check response status
        If objResult.ResultCode = -3000 Then
            ' -3000 means that the data was successfully retrieved.
            Console.WriteLine("ID: {0}", objResult.ID)
            Console.WriteLine("Submit Time: {0}", objResult.SubmitTime)
            Console.WriteLine("Completion Time: {0}", objResult.CompletionTime)
            Console.WriteLine("Envelope: {0}", objResult.Envelope)
            Console.WriteLine("International Mailing: {0}", objResult.InternationalMailing)
            Console.WriteLine("National Mailing: {0}", objResult.NationalMailing)
            Console.WriteLine("Number of sheets: {0}", objResult.NumOfSheets)
            Console.WriteLine("Orientation: {0}", objResult.Orientation)
            Console.WriteLine("Paper: {0}", objResult.Paper)
            Console.WriteLine("Price: {0}", objResult.Price)
            Console.WriteLine("Print Color: {0}", objResult.PrintColor)
            Console.WriteLine("Print Sides: {0}", objResult.PrintSides)
            ' A value less than -3000 means an error occurred.
            ' See the PostalMethods Status Codes: http://www.postalmethods.com/statuscodes.
            Console.WriteLine("Error is:" & objResult.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