Set oNS = Outlook.Application.GetNamespace("MAPI")
Set oAL = oNS.GetGlobalAddressList
Dim user As ExchangeUserSet user = oAL.AddressEntries.item(CST).GetExchangeUser
这个问题比较冷门。