Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Per.CheckAndRequest(Per.PERMISSION_SEND_SMS)
' at XXXXXXXXXX id my phone number
mySms.Send("XXXXXXXXXX","test") ' THIS line send the test sms
Activity.Title="Send Sms from list"
Activity.LoadLayout("View_1")
myList.Initialize
myStatus.Initialize("myStatus")
Label2.Text="0" 'poses eggrafes exei
Label4.Text="0"
Label6.Text="0"
Text1.Text="here is the text that I want to send" & CRLF & " kalarakis Michalis"
Dim a As Int
' gia na balei ta dikaiomata sth karta
If File.Exists(File.DirRootExternal ,"test.txt") =False Then a=a+1
'mt.Initialize2(File.OpenInput(File.DirRootExternal ,"pelaths.csv"),"ISO-8859-7")
' myList=mt.ReadList
myList.Add ("Kalarakis;YYYYYYYYYYY")
myList.Add("mhnas;XXXXXXXX")
myList.Add("rena;GGGGGGGGGG")
Label2.Text=myList.Size
End Sub
Sub Button1_Click
' stelnv ta mhnhmata
Dim Result As Int
If Text1.Text.Trim="" Then
Msgbox("No text message","insert text message;")
Else
Result=Msgbox2("Send sms?","Send sms sms","yes","No","",Null)
If Result=DialogResponse.POSITIVE Then
Dim myText As String=Text1.Text:Dim AriumosThl As String
Dim Nr As Int:Nr=0
Dim Geniko As String:Dim Uesh As Int
Dim Tr As Int
For Tr=0 To 1' myList.Size-1
Geniko=myList.Get(Tr)
Uesh=Geniko.IndexOf(";")+1
AriumosThl=Geniko.substring(Uesh)
If AriumosThl.Trim<>"" Then
mySms.Send(AriumosThl,myText) ' here is the problem
Log(AriumosThl)
Nr=Nr+1
End If
Next
End If
End If
End Sub
