Dears I face an issue while inserting the sms into sms catalog nigher inbox nor outbox the below is the code I used
Sub InsertSMS (Number As String,Body As String)
Dim resolver As ContentResolver
resolver.Initialize("res")
Dim values As ContentValues
values.Initialize
values.PutString("address",Number)
values.PutString("body",Body)
values.PutString("read", "1")
values.PutString("subject", "subject")
values.PutInteger("date",DateTime.Now)
Dim Uri1 As Uri
Uri1.parse("content://sms/inbox")
Try
resolver.Insert(Uri1,values).ParseId
Catch
Msgbox(LastException,"")
End Try
End Sub
thank you in advance.
Sub InsertSMS (Number As String,Body As String)
Dim resolver As ContentResolver
resolver.Initialize("res")
Dim values As ContentValues
values.Initialize
values.PutString("address",Number)
values.PutString("body",Body)
values.PutString("read", "1")
values.PutString("subject", "subject")
values.PutInteger("date",DateTime.Now)
Dim Uri1 As Uri
Uri1.parse("content://sms/inbox")
Try
resolver.Insert(Uri1,values).ParseId
Catch
Msgbox(LastException,"")
End Try
End Sub
thank you in advance.