[VB6] Leggere lista Indirizzi Exchange

[ladyBlu]

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:

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

[twister_has_you]

dà anche a me lo stesso problema con questo codice

Option Explicit

Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olAL As Outlook.AddressList
Dim olAE As Outlook.AddressEntry
Dim olMail As Outlook.MailItem

Private Sub Form_Load()
  Set olApp = New Outlook.Application
  Set olNS = olApp.GetNamespace("MAPI")
  For Each olAL In olNS.AddressLists
    For Each olAE In olAL.AddressEntries
      lvw.ListItems.Add , , olAE.Name
      lvw.ListItems(lvw.ListItems.Count).SubItems(1) = olAE.Address
      lvw.ListItems(lvw.ListItems.Count).SubItems(2) = olAE.ID
      lvw.ListItems(lvw.ListItems.Count).Tag = olAE.ID
    Next
  Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
  olApp.Quit
  Set olApp = Nothing
End Sub

Private Sub lvw_DblClick()
  Set olMail = olApp.CreateItem(olMailItem)
  olMail.Recipients.Add lvw.SelectedItem.Text
  olMail.Subject = "Test"
  olMail.Body = "Test"
  olMail.Send
End Sub