Hello, I'm currently condig a programm in Visual Basic and I've a little problem. In fact, I want to retrieves all name of all contact of the 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 put contact in groupe et display my contact by online/offline, no contact appears in list.
So how can I do for see the contact in the group ONline/Offline ?