Sub EnumSMSmessages(PersonID As Int) As List
Dim SmsMessages1 As SmsMessages, List1 As List
If PersonID=-1 Then
List1 = SmsMessages1.GetUnreadMessages
Else
List1 = SmsMessages1.GetByPersonId(PersonID)
End If
'debug
Log(List1.Size & " messages found for person " & PersonID)
For i = 0 To List1.Size - 1
Dim theSms As Sms
theSms = List1.Get(i)
Log(theSms.Body)
Next
Return List1
End Sub