使用VBA從Outlook聯繫人獲取管理器

Question

我有以下代碼從Outlook中檢索全局地址列表，然後使用名稱和部門創建一個數組。

我想獲得用戶的經理 - 但是在屬性列表中找不到它，oUser.GetExchangeUserManager不起作用

Dim appOL As Outlook.Application ' Object 
    Dim oGAL As Outlook.AddressEntries ' .NameSpace Object 
    Dim oContact As Outlook.AddressEntry ' Object 
    Dim oUser As ExchangeUser ' Object 
    Dim arrUsers(1 To 65000, 1 To 4) As String 
    Dim UserIndex As Long 
    Dim i As Long 

    Set appOL = New Outlook.Application ' CreateObject("Outlook.Application") 
    Set oGAL = appOL.GetNameSpace("MAPI").AddressLists("Global Address List").AddressEntries 

    For i = 1 To oGAL.Count 
     Set oContact = oGAL.Item(i) 
     If oContact.AddressEntryUserType = 0 Then 
      Set oUser = oContact.GetExchangeUser 
      If Len(oUser.lastname) > 0 Then 
       UserIndex = UserIndex + 1 
       arrUsers(UserIndex, 1) = oUser.Name 
       arrUsers(UserIndex, 2) = oUser.Department 
       arrUsers(UserIndex, 3) = oUser.JobTitle ' Blank 
       'arrUsers(UserIndex, 4) = oUser.GetExchangeUserManager ' ERROR   
      End If 
     End If 
    Next i 

    appOL.Quit 

    If UserIndex > 0 Then 
     Range("A2").Resize(UserIndex, UBound(arrUsers, 2)).Value = arrUsers 
    End If 

    Set appOL = Nothing 
    Set oGAL = Nothing 
    Set oContact = Nothing 
    Set oUser = Nothing 
    Erase arrUsers 

End Sub 

如何讓管理者信息的任何想法？

Answer 1

使用AddressEntry.Manager - 它會返回另一個AddressEntry代表管理器的對象。準備好處理Null s。