VBA调用Outlook全局地址簿返回首个条目问题

问题分析 #

当前代码通过objGAL.AddressEntries(strAliasName)从全局地址簿（GAL）中查找用户，但当存在多个别名相同的用户时，这个方法只会返回GAL中第一个匹配的条目，而非实际选中的用户。核心问题在于错误地通过别名字符串重新查询GAL，忽略了Recipient对象本身已关联选中的AddressEntry实例。

修正后的代码 #

Dim objApp As New Outlook.Application
Dim objDialog As SelectNamesDialog
Dim objGAL As AddressList
Dim objAddrEntry As AddressEntry
Dim objExchUser As Outlook.ExchangeUser

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
            ' 直接使用Recipient关联的AddressEntry，无需重新从GAL查询
            Set objAddrEntry = objSelection.AddressEntry
            Set objExchUser = objAddrEntry.GetExchangeUser
            If Not objExchUser Is Nothing Then
                ' 处理Exchange用户信息
                Debug.Print objExchUser.PrimarySmtpAddress
                Debug.Print objExchUser.Name & " - " & objExchUser.Alias
            End If
        Next
    End If
End With

关键修改点 #

• 移除了strAliasName变量，不再通过别名字符串去GAL中查找条目
• 直接使用objSelection.AddressEntry获取选中用户对应的AddressEntry实例，该实例就是对话框中选中的具体用户，不会出现同名匹配错误

内容的提问来源于stack exchange，提问作者Yabett