essaye comme cela


If x.AddressEntryUserType = olExchangeUserAddressEntry Then

Email = x.GetExchangeUser.PrimarySmtpAddress

end if