从“其他联系人”中的文件夹获取联系人

Question

我有一个可行的代码片段。

Dim Session As Outlook.NameSpace
Dim ContactFolder As Outlook.Folder
Set Session = Application.Session

Set ContactFolder = Session.GetDefaultFolder(olFolderContacts)

它将ContactFolder设置为Outlook.Folder类型，但它通过使用一些默认框架olFolderContacts来实现。

我想将自定义文件夹设置为ContactFolder变量。具体来说，他们在其他联系人。我在MSDN上看到了一些涉及 entryID 的方法，但我无法获取自定义联系人文件夹的entryID。

Answer 1

如果该文件夹是“联系人”文件夹的子文件夹：

set subFolder = ContactFolder.Folders("My other contacts") 

如果它与“联系人”文件夹位于同一级别：

set subFolder = ContactFolder.Parent.Folders("My other contacts")