1

我有一些代码可以通过遍历Application.Session.Stores集合来定位用户可以访问的所有联系人文件夹。

这适用于用户的联系人以及所有公共联系人文件夹。它还查找用户通过工具 -> 帐户设置... 菜单命令添加的其他邮箱帐户中的所有联系人文件夹。

但是，这要求用户对其他人的帐户具有完全访问权限。当用户只能访问其他人的联系人时，该人的联系人会显示在“联系人”视图中的“联系人”组下。如何找到那些不显示在下面的联系人文件夹Session.Stores？

要查看其他用户的联系人文件夹而不添加对其完整邮箱的访问权限，请单击 Outlook 菜单中的文件 -> 打开 -> 其他用户的文件夹...。在对话框中，输入其他用户的名称并Contacts从文件夹类型下拉列表中选择。

这是我用来查找所有用户的 Outlook 联系人文件夹列表的代码（减去错误检查和日志记录）。我知道这可以（也许应该）使用对Outlook.Application类型的早期绑定来完成，但这不会影响结果。EnumerateFolders是递归的，因此它搜索所有子文件夹。

Dim folderList = New Dictionary(Of String, String)
Dim outlookApp = CreateObject(Class:="Outlook.Application")
For Each store As Object In outlookApp.Session.Stores
    EnumerateFolders(folderList, store.GetRootFolder)
Next

Private Sub EnumerateFolders(ByRef folderList As Dictionary(Of String, String), ByVal folder As Object)
    Try
        If folder.DefaultItemType = 2 Then
            folderList.Add(folder.EntryID, folder.FolderPath.Substring(2))
        End If

        For Each subFolder As Object In folder.Folders
            EnumerateFolders(folderList, subFolder)
        Next
    Catch ex As Exception

    End Try
End Sub
4

1 回答 1

2

由于我在这里没有得到任何答案，（实际上为此获得了 Tumbleweed 徽章）我在 msdn 论坛上提出了这个问题。

http://social.msdn.microsoft.com/Forums/en-US/outlookdev/thread/9edb0bdf-a7cb-451b-b1b4-99c6ec1f8214/

这是答案：

在 Outlook 2007 或更高版本中，浏览导航窗格。有关概述，请参阅http://msdn.microsoft.com/en-us/library/bb206757.aspx。http://msdn.microsoft.com/en-us/library/bb176429.aspx上的示例显示了如何迭代日历模块中的所有导航组。每个 NavigationFolder 都有一个 Folder 对象属性，该属性从其他用户的邮箱（或其他存储）返回实际的 Folder。

这将为您提供用户正在积极使用的所有文件夹。如果您想要他们理论上可以访问的所有文件夹，您可以迭代 GAL 中的条目，并为每个条目尝试执行 Namespace.GetSharedDefaultFolder。如果无法返回文件夹，则用户无权访问。

现在我已经看到了这一点，我想我将使用 ContactsModule 来查找所有联系人文件夹，而不是在商店的所有文件夹中搜索联系人文件夹。应该快得多。

于 2010-06-02T17:21:56.417 回答