Dim objSession As MAPI.Session
Dim objAddrList As MAPI.AddressList
Dim objAddrEntries As MAPI.AddressEntries
Dim objAddrEntry As MAPI.AddressEntry
Set objSession = CreateObject("MAPI.Session")
'In a real app, read the default profile from the registry
'and pass it to the Logon method so the logon dialog isn't displayed
objSession.Logon
Set objAddrList = objSession.AddressLists("Global Address List")
Set objAddrEntries = objAddrList.AddressEntries
Set objAddrEntry = objAddrEntries.GetFirst
Do Until objAddrEntry Is Nothing
If objAddrEntry.DisplayType = CdoUser Then
'Just list users, exclude distribution lists etc
Debug.Print objAddrEntry.Name
End If
Set objAddrEntry = objAddrEntries.GetNext
Loop
Set objAddrEntry = Nothing
Set objAddrEntries = Nothing
Set objAddrList = Nothing
Set objAddrSession = Nothing
