rfresh Well-Known Member Licensed User Longtime User Mar 24, 2012 #2 How are you storing the message? Upvote 0
P pzhliaoyang Banned Mar 24, 2012 #3 Sub MyDelSms() Dim mysms As SmsMessages Dim myList As List Dim I As Long myList = mysms.GetByType(mysms.TYPE_SENT) For I = 0 To myList.Size - 1 Dim onesms As Sms onesms = myList.Get(I) If onesms.Address.Trim().CompareTo("10001") = 0 Then 'delete sms message ' End If Next End Sub Upvote 0
Sub MyDelSms() Dim mysms As SmsMessages Dim myList As List Dim I As Long myList = mysms.GetByType(mysms.TYPE_SENT) For I = 0 To myList.Size - 1 Dim onesms As Sms onesms = myList.Get(I) If onesms.Address.Trim().CompareTo("10001") = 0 Then 'delete sms message ' End If Next End Sub
Erel B4X founder Staff member Licensed User Longtime User Mar 24, 2012 #4 SmsMessages gives you read only access to the stored messages. You will not be able to delete messages with this object. Upvote 0
SmsMessages gives you read only access to the stored messages. You will not be able to delete messages with this object.
