Shoutbox

quote:

---

Originally posted by Zick
Hello, I'm currently conding a program in Visual Basic and I've got a little problem. In fact, I want to retrieve the names of all contacts on my msn, and I proceed by groups like this :

code:

---

Public Contacts As MessengerAPI.IMessengerContacts
Public Contact As MessengerAPI.IMessengerContact
Public Groups As MessengerAPI.IMessengerGroups
Public Group As MessengerAPI.IMessengerGroup
Public mProperty As MCONTACTPROPERTY
Public mPhone As MPHONE_TYPE
Public msn As MessengerAPI.Messenger

---

Private Sub Command1_Click()
    Set msn = New MessengerAPI.Messenger
    Dim i, j, k As Long
    Dim tGroup, tPhone, tProperty As String
    i = 0
    j = 0
    k = 0
    List4.Clear
    List5.Clear
    List6.Clear
    List7.Clear
    Set Groups = msn.MyGroups
    For k = 0 To Groups.Count - 1
        Set Group = Groups(k)
        tGroup = Group.Name
        Set Contacts = Group.Contacts
        For j = 0 To Contacts.Count - 1
            i = j + 1
            Set Contact = Contacts(j)
            mPhone = MPHONE_TYPE_MOBILE
            mProperty = MCONTACTPROP_EMAIL
            tkey = "item" & k & "-" & i
            List4.AddItem Contact.FriendlyName
            List5.AddItem Contact.SigninName
            List6.AddItem Contact.Status
            List7.AddItem Group.Name
        Next
    Next

End Sub

---

But if I hadn't sorted my contacts in group display but rather by online/offline, no contacts appear in the list.

So how can I see the contacts when sorted in Online/Offline ?

---