我有一个函数,它接受一个名称并在Outlook中解析它以返回所选名称的别名.如果通讯录中的所选名称有多个条目,则会失败.例如"Smith,Bob"和"Smith,Bob X".如果我试图解析的名称是"Smith,Bob X",则代码工作正常,但简单的"Smith,Bob"失败.
我假设当找到多个条目时,Outlook会打开"检查名称"对话框(当我手动解析名称时会出现这种情况).
当我的代码找到多个条目时,如何选择第一个条目？
Function GETTPX(ByVal UserName As String) As String
Dim objOL As Object
Dim oRecip As Outlook.Recipient
Dim oEU As Outlook.ExchangeUser
Dim oEDL As Outlook.ExchangeDistributionList
Set objOL = CreateObject("Outlook.Application")
Set oRecip = objOL.Session.CreateRecipient(UserName)
oRecip.Resolve
If oRecip.Resolved Then
Set oEU = oRecip.AddressEntry.GetExchangeUser
End If
GETTPX = oEU.Alias
Set oRecip = Nothing
Set objOL = Nothing
End Function