Vba 如何访问每个条目的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中选择一个项目，然后右键单击并选择properties，这就是我试图检索的信息

Last Name,
First Name, 
Alias, 
etc.

---

如何使用Excel VBA访问它？

调用AddressEntry.GetExchangeUser以检索ExchangeUser对象：