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!

[RobDog888]

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.

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