如何访问每个条目的Outlook GAL属性

我正在使用Excel VBA迭代谷歌Outlook GAL。 我需要能够访问每个项目的属性

我离开了下面的代码,并尝试访问AddressEntry中的属性

我用这个代码尝试了不同的东西,但是我一直无法弄清楚如何得到每个条目的细节。

Private Sub GetAddresses() Dim o, AddressList, AddressEntry Set o = CreateObject("Outlook.Application") Set AddressList = o.Session.AddressLists("Global Address List") For Each AddressEntry In AddressList.AddressEntries . . . Next AddressEntry End Sub 

我需要到属性和提取信息,并将其传递到Excel表:

我会张贴图片,但没有代表。

如果我从GAL中select一个项目并右键单击并select属性,那就是我正在尝试检索的信息。

 Last Name, First Name, Alias, etc. 

如何使用Excel VBA访问这个?

调用AddressEntry.GetExchangeUser检索ExchangeUser对象: http : //msdn.microsoft.com/en-us/library/office/dn320297( v=office.15) .aspx