如何在Outlook中切换视图

Question

我正在尝试为Microsoft Outlook创建一个加载项。我正处于编写外接程序的开始，而我希望发生的事情是，当用户单击我创建的按钮时，视图会从他们正在查看的内容（收件箱，日历，任务等）添加到他们的联系人列表中。

经过反复尝试，这是我所知。但是我知道我还有路要走。

Dim myNameSpace As Outlook.NameSpace = Nothing
myNameSpace.GetDefaultFolder(OlDefaultFolders.olFolderContacts).Display()

Answer 1

将Application.ActiveExplorer.CurrentFolder属性设置为相关文件夹（例如GetDefaultFolder返回的文件夹）。

Answer 2

在这里：

Dim contactsFolder as Outlook.Folder = Nothing
Dim myNameSpace As Outlook.NameSpace = Nothing

myNameSpace = Application.GetNamespace("MAPI")
contactsFolder = myNameSpace.GetDefaultFolder(OlDefaultFolders.olFolderContacts)

Application.ActiveExplorer.CurrentFolder = contactsFolder 

CurrentFolder属性设置一个Folder对象，该对象表示资源管理器中显示的当前文件夹。