How to get all SMTP addresses from a recipient

Hi!

I'm trying to get a list of all SMTP-addresses of a recipient. This is my code (Outlook 2000 VBA!!!):

Code:

---

Sub getAdres()
    Dim mapi As NameSpace
    Dim addressEntry As addressEntry
    Dim addressList  As addressList
   
    Set mapi = GetNamespace("MAPI")
    Set addressList = mapi.AddressLists.Item(1)
   
    For Each addressEntry In addressList.AddressEntries
                       
        If addressEntry.DisplayType = olUser Then
           
            'Print information if entry is a user
            Debug.Print addressEntry.Name
            Debug.Print addressEntry.Address
       
        End If
       
    Next a

End Sub

---

But the only address I get is something like this: /o=Company/ou=Test/cn=Recipients/cn=TT...
This user's got 3 SMTP address. I see them when I use the addressEntry.Details (0) command.

Does anyone know how to get the SMTP addresses????

Thanx!

Try debugging with these changes. It will filter for only the SMTP addresses.
Also, you didn't need the Next a since it was not being initialized in the for loop.
This works fine for me. The /o stuff was for the "EX" Types.

Code:

---

Private Sub getAdres()

    Dim mapi As NameSpace
    Dim addressEntry As addressEntry
    Dim addressList  As addressList
   
    Set mapi = GetNamespace("MAPI")
    Set addressList = mapi.AddressLists.Item(1)
   
    For Each addressEntry In addressList.AddressEntries
        If addressEntry.DisplayType = olUser And addressEntry.Type = "SMTP" Then
            'Print information if entry is a user
            Debug.Print addressEntry.Name
            Debug.Print addressEntry.Address
            Debug.Print addressEntry.Type
        End If
    Next

End Sub

---