Sub Globals
Dim ThisPhoneSms As SendSmsWithExtraData
Dim PhoneId As PhoneId
Dim PE As PhoneEvents
End Sub
Sub Activity_Create(FirstTime As Boolean)
PE.InitializeWithPhoneState("PE", PhoneId)
Dim id As String
Dim Extra As Map
id = "123"
Log("Sending SMS with id: " & id)
Extra.Initialize
Extra.Put("id", id)
ThisPhoneSms.Send3("+000000000000", "Test", Extra, True, True)
id = "456"
Log("Sending SMS with id: " & id)
Extra.Initialize
Extra.Put("id", id)
ThisPhoneSms.Send3("+000000000000", "Test", Extra, True, True)
End Sub
Sub PE_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
Log("PE_SmsSentStatus:")
Log("- PhoneNumber: " & PhoneNumber)
Log("- Success: " & Success)
Log("- id: " & Intent.GetExtra("id"))
End Sub
Sub PE_SmsDelivered (PhoneNumber As String, Intent As Intent)
Log("PE_SmsDelivered:")
Log("- PhoneNumber: " & PhoneNumber)
Log("- id: " & Intent.GetExtra("id"))
End Sub