Shoutbox

i can't remember exactly, but i think you want something like:

code:

---

Set MSN = New oMessenger
    Dim iContact As MessengerAPI.IMessengerContact
    Dim iConv As MessengerAPI.IMessengerConversationWnd
   
    For Each iContact In iConv.Contacts
        MsgBox iContact.SigninName
    Next

---