Try

myRecipient = oMail.Recipients.Item(1).AddressEntry.GetExchangeUser.Firstname
Note: Your code was incomplete. It is missing GetCurrentItem()