| '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 NumPager notification object |
| Dim objNumPager As New NumPagerRef.NumPager()
|
| ' Create server notification object |
| Dim NumPagerNotifID As
String = sess.CreateNumPagerNotification(SessionID) |
| objNumPager.Send(NumPagerNotifID, "11005118196", "123456", "000111222") |
| objNumPager.Release(NumPagerNotifID) |
| sess.Release(SessionID) |
| Catch e As Exception |
| 'Print exception message e.Message |
| sess.Release(SessionID) |
| End Try |