Pickup alias of a recipient

[xtraterrestrial]

I want to pickup an alias of a recipient from an address book object that I used.
This is the code that I have so far

Set objCDO = Application.CreateObject("MAPI.Session&quot
objCDO.Logon "", "", False, False, 0
Set Recips = objCDO.AddressBook(Nothing, _
strDialogCaption, False, True, 1, strShortName, "", "", 0)
Msgbox Recips(i).Name ' This returns the name

I want to return the alias, or something that can uniquely identify the person's email address. I want to do this because many times two people will have the exact same name and the program cannot resolve two the correct recipient.
Any help would be appreciated