I see some post about this, but i don´t know why this don´t run fine for delete an sms
in process globals
any idea? thank you
in process globals
B4X:
Dim borra As SmsMessages
B4X:
Sub SI_MessageReceived (From As String, mensaje As String) As Boolean
If mensaje.Contains(dat.mensa) Then
envioemail
End If
tie.Enabled=True
Return True
End Sub
Sub tie_Tick
Dim listab As List
listab.Initialize
Dim fe As String
listab.Add(borra.GetBetweenDates(DateTime.Now-4000,DateTime.Now))
Dim mensaje As String
mensaje=dat.mensa
fe=listab.Get(0)
If fe.Contains (mensaje) Then
Dim n1 As Int
Dim n2 As Int
n1=fe.IndexOf("=")
n2=fe.IndexOf(",")
fe=fe.SubString2(n1+1,n2)
borra.deletesms(fe)
End If
tie.Enabled=False
End Sub