Powershell/Vba 查看AddressEntry.AddressEntryUserType

Sub ResolveDisplayNameToSMTP()

Dim oRecip As Outlook.Recipient

Dim oEU As Outlook.ExchangeUser

Dim oEDL As Outlook.ExchangeDistributionList

Dim xloutlook As Outlook.Application

Set xloutlook = New Outlook.Application

Set oRecip = xloutlook.Application.Session.CreateRecipient("jtang20")

oRecip.Resolve

If oRecip.Resolved Then

    Select Case oRecip.AddressEntry.AddressEntryUserType

        Case OlAddressEntryUserType.olExchangeUserAddressEntry

            Set oEU = oRecip.AddressEntry.GetExchangeUser

            If Not (oEU Is Nothing) Then

                Debug.Print oEU.PrimarySmtpAddress

            End If

        Case OlAddressEntryUserType.olExchangeDistributionListAddressEntry

            Set oEDL = oRecip.AddressEntry.GetExchangeDistributionList

            If Not (oEDL Is Nothing) Then

                Debug.Print oEDL.PrimarySmtpAddress

            End If

    End Select

End If

End Sub