Outlook 2010 VBA code to show alias of recipient - vba

Question

My company assigns each employee an ID which is stored as their 'alias' in Outlook. We use this ID often, and I am looking for an easy way to see it.
Right now I enter the recipient name in a new email, double click the name, click on more options, then Outlook properties. I am looking for a macro that where I would enter the recipient name in a new email, and then run the macro which would just pop up the recipient's alias as a message box (ideally copy it to the clipboard). I have tried (and failed) to write this on my own.
The code I have so far is below. However, this code gives /o=corpexchange/ou=exchange administrative group.....
I am trying to get it to return the alias
Sub ReadRecpDetail2()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim myRecipient As Outlook.recipient
Dim recipient As Outlook.recipient
Set myOlApp = GetObject(, "Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
For Each recipient In myItem.Recipients
recipient.Resolve
MsgBox recipient.AddressEntry
Next recipient
End Sub
To Recreate:
Open new outlook email
Enter email address and resolve
Run macro

Answer 1

Try to use the following methods:
Use the CreateRecipient method of the Namespace class to create a Recipient object.
Call the Resolve method of the Recipient class to resolve a Recipient object against the Address Book.
Get the AddressEntry property value, returns the AddressEntry object corresponding to the resolved recipient.
Call the GetExchangeUser method of the AddressEntry class, it returns an ExchangeUser object that represents the AddressEntry if the AddressEntry belongs to an Exchange AddressList object such as the Global Address List (GAL) and corresponds to an Exchange user.
The Alias property of the ExchangeUser class returns a String representing the alias for the ExchangeUser.
You may also find the Getting Started with VBA in Outlook 2010 article helpful.

Answer 2

With all your help I was able to solve this by capturing recipient address entry, adding it as a new item, showing alias, then deleting the recipient:
Sub ReadRecpDetail()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.mailItem
Dim myRecipient As Outlook.recipient
Dim recipient As Outlook.recipient
Dim SMTPaddress As String
Dim entry As Outlook.AddressEntry
Dim entrystring As String
Dim Copytoclipboard As New DataObject
Set myOlApp = GetObject(, "Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set recipient = myItem.Recipients.Item(1)
Set myRecipient = myItem.Recipients.Add(recipient.AddressEntry)
myRecipient.Resolve
entrystring = myRecipient.AddressEntry.GetExchangeUser.Alias
MsgBox (entrystring)
Copytoclipboard.SetText entrystring
Copytoclipboard.PutInClipboard
myRecipient.Delete
End Sub

Answer 3

I had a similar situation where I needed to print out all the user names of the recipients in an email so I could export them to another application. I based my solution off of your answer which is below in case it helps anyone else.
Sub PrintRecipientAliases()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim recipient As Outlook.recipient
Set myOlApp = GetObject(, "Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
For Each recipient In myItem.Recipients
With recipient
Debug.Print recipient.AddressEntry.GetExchangeUser.Alias
End With
Next
End Sub