Android Question delete sms

fanfalveto

Active Member
Licensed User
Longtime User
I see some post about this, but i don´t know why this don´t run fine for delete an sms

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
any idea? thank you
 

sirjo66

Well-Known Member
Licensed User
Longtime User
Wow, this is a great problem !!

I have an APP that send and receive SMS message for to automate same works, and it works fine because the customer have OS 2.2, but if he change the phone, how can the program works ??

Sergio
 
Upvote 0
Top