VB.NET Queue Sample
1. Create Project
Open Visual Studio .NET IDE
Open "File->New->Project...
Find on the left panel "Visual Basic Projects" and on the right panel icon "Console Application" and click it
Enter the name of poject, for example ACApp in "Name" field
Enter proper location of the new project
Click "OK" button

2. Add Web Service References
Open menu Project->Add Web Reference...
Enter Across Communications' web server in Address field, for example:
http://ws.AcrossCommunications.com/Personalizer.asmx

If it's OK click Add Reference button at the bottom of form
Open menu View->Solution Exporer
Open ACApp project and Web References folder
Click on AcrossCommunication Web reference and press F2 key.
Rename it to "PersonalizerRef"
Add other web references as "Session" and "Queue" to your project in such manner.

3. Add functional Code

Open source code of "Module1.vb" and add folowing code lines into the Main subroutine:

  'Create personalizer object and Session object
  Dim pers As New PersonalizerRef.Personalizer()
  Dim sess As New SessionRef.Session()
  Dim SessionID As String = ""
  Try
      SessionID = pers.CreateSession("LogonName", "Password")
      'Create Fax notification object
      Dim objFax As New FaxRef.Fax()
      ' Create server notification object
      'Let suppose you have put fax document in the queue and got queue item ID
      Dim sQueueItemId As String = "18d7f93b476fa98726"
      'Retrieve Status of enqueued fax document
      Dim oQueue As New QueueRef.Queue()
      Dim sQueueId As String = sess.GetQueue(SessionID)
      If oQueue.GetItemStatus(sQueueId, sQueueItemId) ="Waiting" Then
          '--- if document still in Waiting status then remove it form the queue ---
          If oQueue.RemoveItem(sQueueId, sQueueItemId) Then
              'Do something if item is successfully removed
          Else
              'Do something if item removing failed
          End If
      End If
      objFax.Release(FaxNotifID)
      sess.Release(SessionID)
  Catch e As Exception
      'Print exception message e.Message
      sess.Release(SessionID)
  End Try

Enter correct values instead of LogonName and Password

4. Run application
Run menu Build->Build ACApp
Press F5 to run application.