MySelectedSender = lstEmailItem.Column(2, lstEmailItem.ListIndex)
' The "MySelectedSender" above is the name of a person off of an email
Dim myAddressList As AddressList
Set myAddressList = Application.Session.AddressLists("Global Address List")
myAddressList.AddressEntries.Item(MySelectedSender).Details