How delete a sms message ?

[pzhliaoyang]

:BangHead:

 

[rfresh]

How are you storing the message?

 

[pzhliaoyang]

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]

SmsMessages gives you read only access to the stored messages. You will not be able to delete messages with this object.