Contact.Getall Problem

[madSac]

I am using below code to get all contacts from mobile but it doesnot show all contacts.What to do ?

 Dim Contacts As Contacts
    Dim list1 As List
    list1 = Contacts.GetAll
    Dim listOfNames As List
    listOfNames.Initialize
   
    'Create a list with the contacts names
    For i = 0 To list1.Size - 1
        Dim c As Contact
        c = list1.Get(i) 'fetch the Contact from the original list
        If c.DisplayName.IndexOf("@") = -1 Then 'remove email only contacts
            listOfNames.Add(c.DisplayName)
        End If
    Next
   listOfNames.Sort(True)
    For i = 0 To listOfNames.Size - 1
    clist.AddSingleLine(listOfNames.Get(i))         
    Next

 

[melamoud]

Try contacts2 objects instead of contacts.

 

[madSac]

Try contacts2 objects instead of contacts.

Thanx .... it worked. (seem's so, i will come to know when i will try it on problematic device ).