I am using VBA to open the Outlook/Exchange global address list Dialog, select one or more people, then do some processing with each person. The following is an example of the code:
Dim objApp As New Outlook.Application
Dim objDialog As SelectNamesDialog
Dim objGAL As AddressList
Dim objAddrEntry As AddressEntry
Dim objExchUser As Outlook.ExchangeUser
Dim strAliasName As String
Set objDialog = objApp.Session.GetSelectNamesDialog
Set objGAL = objApp.GetNamespace("MAPI").AddressLists("Global Address List")
With objDialog
.AllowMultipleSelection = True
.InitialAddressList = objGAL
.ShowOnlyInitialAddressList = True
If .Display Then
Dim objSelection As Outlook.Recipient
For Each objSelection In .Recipients
strAliasName = objSelection.AddressEntry
Set objAddrEntry = objGAL.AddressEntries(strAliasName)
Set objExchUser = objAddrEntry.GetExchangeUser
If Not objExchUser Is Nothing Then
'Do some processing with exchange user information
Debug.Print objExchUser.PrimarySmtpAddress
End If
Next
End If
End With
The problem: If there is more than one person with the same Exchange alias (this is for a large company where duplicate aliases are common) - e.g. 3 people with the alias of "Doe, John" - the GetSelectNamesDialog returns Exchange information for the FIRST person in the group and not necessarily the person who was selected.
I have tried looking at the different properties available for .Recipients, .AddressEntry, etc. and cannot find any others that return something besides .AddressEntry and .Name. And therein lies the problem.
There is absolutely no reason to retrieve address entry by its name if you already have a perfectly good AddressEntry object.
The lines
strAliasName = objSelection.AddressEntry
set objAddrEntry = objGAL.AddressEntries(strAliasName)
need to be replaced with
Set objAddrEntry = objSelection.AddressEntry