| | '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 Phone notification object |
| | Dim objPhone As New PhoneRef.Phone()
|
| | Dim PhoneNotifID As
String = sess.CreatePhoneNotification(SessionID) |
| | objPhone.Call(PhoneNotifID,"1-800-123-4567") |
| | objPhone.Say(PhoneNotifID, "Can you hear this text? If yes press 0.") |
| | Dim resp As
String = objPhone.WaitDigits(PhoneNotifID,30,1,"#") 'Get response from user |
| | objPhone.PlayDigits(PhoneNotifID,resp) 'playback user response |
| | objPhone.HangUp(PhoneNotifID) ' close connection |
| | objPhone.Release(PhoneNotifID) |
| | sess.Release(SessionID) |
| | Catch e As Exception |
| | 'Print exception message e.Message |
| | sess.Release(SessionID) |
| | End Try |