访问Outlook中的代表访问权限的人员列表＃

Question

我想列出在Outlook 2013中具有委托访问权限的所有人员。我需要在Visual Studio 2013中创建的Outlook AddIn中。是否可以列出这些人员？

Answer 1

使用Namespace.AutodisoverXml属性 - 它将列出委托邮箱。您可以在OutlookSpy中看到自动发现XML - 单击名称空间按钮，选择AutodisoverXml属性。

  ... 
      <AlternativeMailbox> 
       <Type>Delegate</Type> 
       <DisplayName>Test user</DisplayName> 
       <SmtpAddress>user@domain.com</SmtpAddress> 
       <OwnerSmtpAddress>user@domain.com</OwnerSmtpAddress> 
      </AlternativeMailbox> 

如果使用Redemption是一个选项，你可以获取委托列表以及背部名单（谁拥有特定用户作为代理用户）：

set Session = CreateObject("Redemption.RDOSession") 
    Session.MAPIOBJECT = Application.Session.MAPIOBJECT 
    set AddressEntry = Session.CurrentUser 
    Debug.Print "-- Delegates (who can send of behalf of " & AddressEntry.Name & ")" 
    for each AE in AddressEntry.Delegates 
    Debug.Print AE.Name 
    next 
    Debug.Print "-- Is delegate for (can send on behalf of these users)" 
    for each AE in AddressEntry.IsDelegateFor 
    Debug.Print AE.Name 
    next 
    Debug.Print "-- Is member of the following Dist Lists:" 
    for each AE in AddressEntry.IsMemberOfDL 
    Debug.Print AE.Name 
    next 
    Debug.Print "-- The following users report to " & AddressEntry.Name 
    for each AE in AddressEntry.Reports 
    Debug.Print AE.Name 
    next