Ошибка выполнения 91: экспорт глобального списка контактов в outlook 2016

Question

Теперь я экспортирую глобальный список контактов в outlook 2016. в файл Excel. Это мой код:

 Sub ExportOutlookAddressBook()
 Application.ScreenUpdating = False
 Dim olApp As Outlook.Application
 Dim olNS As Outlook.Namespace
 Dim olAL As Outlook.AddressList
 Dim olEntry As Outlook.AddressEntry

 Set olApp = Outlook.Application
 Set olNS = olApp.GetNamespace("MAPI")
 Set olAL = olNS.AddressLists("Global Address List") 'Change name if different contacts list name
 ActiveWorkbook.ActiveSheet.Range("a1").Select
 For Each olEntry In olAL.AddressEntries
 'ActiveCell.Value = olEntry.GetContact.FullName 
 ActiveCell.Offset(0, 0).Value = olEntry.Name
 ActiveCell.Offset(1, 0).Select
 Next olEntry
 Set olApp = Nothing
 Set olNS = Nothing
 Set olAL = Nothing
 Application.ScreenUpdating = True
 End Sub

Ошибка выполнения 91. Как я могу исправить эту ошибку? > / \ <</p>

Answer 1

Использование GetExchangeUser вместо GetContact .

Например:

    Dim olExUser As Outlook.ExchangeUser

    Set olExUser = Nothing
    Set olExUser = olEntry.GetExchangeUser
    If Not olExUser Is Nothing Then
        With olExUser
            ActiveCell.Value = .FirstName & " " & .LastName
        End With
    End If