VBA Outlook 打开新窗口，仅显示文件夹窗格

Question

所以我正在设置一个宏以在 Outlook 中打开一个新窗口，并且只显示我的收件箱中的子文件夹。我有大量文件夹，需要弹出一个单独的窗口来帮助将电子邮件拖放到这些其他文件夹。

这是我当前设置的代码。我只是不知道如何关闭主电子邮件列表（成功关闭预览窗格）。

对不起，如果我的代码草率。我一直在努力解决这个问题。

Sub anothertesttoopen()
Dim oFolder As Outlook.Folder


For Each oaccount In Application.Session.Accounts
  If oaccount = "email@myemail.com" Then
    Set Store = oaccount.DeliveryStore
    Set oFolder = Store.GetDefaultFolder(olFolderInbox).Folders.Item("Projects 2017") 'here it selects the inbox folder of account.


End If
Next

oFolder.Display


Dim myOlExp As Outlook.Explorer
Set myOlExp = Application.ActiveExplorer
myOlExp.ShowPane olPreview, Not myOlExp.IsPaneVisible(olPreview)


End Sub

Answer 1

Outlook 对象模型不提供任何隐藏网格的方法或属性。相反，您可以在那里显示任何网页。 Folder 类的WebViewOn 属性允许设置一个布尔值，指示文件夹的Web 视图状态。它返回 True 以显示由 Folder 对象的WebViewURL 属性指定的网页。 Microsoft Outlook 使用客户端计算机上安装的 Windows Internet Explorer 版本的渲染引擎来显示网页。如果客户端计算机上未安装 Internet Explorer，Outlook 将不会显示该网页。例如：

Sub SetupFolderHomePage()  
 Dim nsp As Outlook.NameSpace  
 Dim mpfInbox As Outlook.Folder  
 Dim mpfNew As Outlook.Folder 

 Set nsp = Application.GetNamespace("MAPI") 
 Set mpfInbox = nsp.GetDefaultFolder(olFolderInbox)  
 Set mpfNew = mpfInbox.Folders.Add("MyFolderHomePage")  
 mpfNew.WebViewURL = "http://www.microsoft.com"  
 mpfNew.WebViewOn = True  
End Sub

您也可以考虑创建一个解决方案模块。有关详细信息，请参阅 Adding Solution-Specific Folders to the Solutions Module in Outlook 和 Programming the Outlook 2010 Solutions Module。