Salve ragazzi

Ho bisogno di ottenere la lista degli indirizzi e-mail degli utenti
di Exchange da vb.
Utilizzo Windows 2000 PRO ed Exchange 5.5 (installato su W2k Server).
Ho provato ad utilizzare gli oggetti:
  • Outlook.AddressLists
  • Outlook.AddressList
  • Outlook.AddressEntries
  • Outlook.AddressEntry

ma pur riuscendo a visualizzare la lista completa, in essi non compare l'idirizzo di posta ma solo una stringa di valori che non riesco ad interpretare ...
ES: /o=Prima organizzazione/ou=Primo gruppoamministrativo/cn=Recipients/cn=pippo

Vi posto il codice che ho utilizzato:
codice:
Private Sub tbOlk_Click()
    Dim strMsg As String
    strMsg = ""

    Dim olkLists As Outlook.AddressLists
    Dim olkList As Outlook.AddressList
    Dim olkAddressLists As Outlook.AddressEntries
    Dim olkAddressList As Outlook.AddressEntry

    Dim strNominativo As String
    Dim strMail As String
    Dim blnEsiste As Boolean
    blnEsiste = False

    'ITA: Elenco indirizzi globale; ENG: Global Address List
    Set olkList = olkSpace.AddressLists("Elenco indirizzi globale")
    Set olkAddressLists = olkList.AddressEntries

    strNominativo = Trim(txtNome.Text & " " & txtCognome.Text)
    ' cicla l'insieme dei contatti
    For Each olkAddressList In olkAddressLists
        If olkAddressList.Name = strNominativo Then
            ' legge l'email
            strMail = olkAddressList.Address
            blnEsiste = True
            Exit For
        End If
    Next

    ' se il nominativo non esiste 
    '   informa l'utente con una msgbox 
    '   altrimenti inserisce l'email trovata
    If Not blnEsiste Then
        strMsg = "'" & strNominativo & "'"
        strMsg = strMsg & " non è presente nella rubrica di Oulook"
        MsgBox strMsg, vbOKOnly + vbInformation, cstStrTitMsgBox
    Else
        txtEMail = strMail
    End If

    Set olkLists = Nothing
    Set olkList = Nothing
    Set olkAddressLists = Nothing
    Set olkAddressList = Nothing

End Sub
Grazie a tutti