Excel vba, получить контактную информацию из Outlook, не удается получить местоположение столбца

Question

Я не могу получить часть местоположения в списке контактов, он просто отображается пустым.

Sub GetOutlookAddressBook()
    Dim objOutlook As Outlook.Application, objAddressList As Outlook.AddressList
    Dim oItem As Outlook.AddressEntry, i As Long
    Application.ScreenUpdating = False
    Set objOutlook = CreateObject("Outlook.Application")
    Set objAddressList = objOutlook.Session.AddressLists("Global Address List")
    Sheets("Sheet1").Range("A:C").ClearContents
    i = 2
    For Each oItem In objAddressList.AddressEntries

        If oItem.Address <> "" Then
          Cells(i, "A") = oItem.Name
          Cells(i, "B") = oItem.GetExchangeUser.ALIAS
          Cells(i, "C") = oItem.GetExchangeUser.PrimarySmtpAddress
          Cells(i, "D") = oItem.GetExchangeUser.Department
          Cells(i, "E") = oItem.GetExchangeUser.Location 'cannot get location

            i = i + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Answer 1

Location не является собственностью объекта ExchangeUser. Вы можете использовать свойства Address или OfficeLocation

. Вот список свойств, взятых из объектной модели в документации Microsoft

Address
AddressEntryUserType
Alias
Application
AssistantName
BusinessTelephoneNumber
City
Class
Comments
CompanyName
Department
DisplayType
FirstName
ID
JobTitle
LastName
MobileTelephoneNumber
Name
OfficeLocation
Parent
PostalCode
PrimarySmtpAddress
PropertyAccessor
Session
StateOrProvince
StreetAddress
Type
YomiCompanyName
YomiDepartment
YomiDisplayName
YomiFirstName
YomiLastName