Shoutbox

Could this code do the job, it gets each contact and adds it to sresult? In ParseCommand or maybe as a tag?

Hah

code:

---

   
On Error GoTo EH
    Dim MSNCont As IMessengerContact
   
    If (StrComp(LCase(sCommand), "/xconvppl", vbTextCompare) = 0) Then
   sResult = "Contacts: "
    For Each MSNCont In oConversationWnd.Contacts
    sResult = sResult + " " + MSNCont.SigninName
    Next
    ParseCommand = True
    Exit Function
    End If
    ParseCommand = False
    Exit Function
EH:
    MsgBox Err.Description, vbOKOnly, Err.Number
Exit Function

---