How to get all SMTP addresses from a recipient

[mmans]

Hi!

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

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!