Read details from Global Address Book in Outlook into Excel

I use the following code to read information from the Global Address Book in Outlook, and it works. Do any of you know how I can read the Email-address and alias-Name as well? By other word more information from each record. The code below will give me the name only.

Sub GetOutlookAddress()
    Dim outApp As Object, outNS As Outlook.Namespace
    Dim myAddressList As Outlook.AddressList
     
    Set outApp = CreateObject("Outlook.Application")
    Set outNS = outApp.GetNamespace("MAPI")
    Set myAddressList = outNS.Session.AddressLists("Global Address List")
     
    For Each AddressEntries In myAddressList.AddressEntries
        i = i + 1
        Debug.Print myAddressList.AddressEntries(i)
    Next AddressEntries
     
    Set outApp = Nothing
     
End Sub