Outlook VBA -检索电子邮件地址显示名称的功能

Sub GetDisplayNameByEmail()
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress As String
    Dim strDisplayName As String

    ' 输入要检索的电子邮件地址
    strEmailAddress = "example@example.com"

    Set objMail = Application.CreateItem(olMailItem)

    ' 添加收件人
    Set objRecipient = objMail.Recipients.Add(strEmailAddress)

    ' 解析收件人
    objRecipient.Resolve

    ' 获取显示名称
    If objRecipient.Resolved Then
        strDisplayName = objRecipient.Name
        MsgBox "The display name for " & strEmailAddress & " is: " & strDisplayName
    Else
        MsgBox "Unable to resolve the email address."
    End If

    ' 清除对象
    Set objMail = Nothing
    Set objRecipient = Nothing
End Sub