Sub Process_Globals
...
Dim PE As PhoneEvents
Dim PhoneId As PhoneId
...
End Sub
Sub Service_Create
...
PE.InitializeWithPhoneState("PhEvents", PhoneId)[/INDENT]
End Sub
Sub <ForDemonstrationOnly>
...
Dim Ph As PhoneSms
Ph.Send2(strCellNumber,strMessage,True,True)
...
End Sub
Sub PhEvents_SmsSentStatus(Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
'LogStatus("----Send")
If(Success) Then
LogStatus("SMS Sent successfully")[/INDENT]
Else
LogStatus("SMS Send error. Phone # '" & PhoneNumber & "', Error message: '" & ErrorMessage & "'")
ProcessSMSResponse(PhoneNumber,ErrorMessage,True)[/INDENT]
End If
End Sub
Sub PhEvents_SmsDelivered (PhoneNumber As String, Intent As Intent)
LogStatus("----Delivered")
LogStatus("SMS delivered to Phone # '" & PhoneNumber & "'")
CallSub2(Main,"AddProgress","SMS delivered to Phone # '" & PhoneNumber & "'")
End Sub
Sub PhEvents_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
LogStatus("PhoneStateChanged to '" & State & "'")
CallSub2(Main,"AddProgress","PhoneStateChanged to '" & State & "'")[/INDENT]
End Sub