如何关闭视图|阅读窗格的Outlook文件夹？

Question

我有这段代码在Excel中创建Outlook中的文件夹。如何将View | Reading pane设置为“关闭”？

Set olFolders = olSourcefolder.Parent.Folders 
olFolders.Add "Audits-Actuals"'how do i set the reading pane to off? 

Answer 1

你想要什么是可能的，但你需要做的事情第一

1. 打开Outlook
2. 创建一个视图（让我们把它称为 “RPO”）
3. 然后运行该代码

截图创建视图

Public Sub CreateAndApplyView() 
    Dim ol As New Outlook.Application 
    Dim CurrentFolder As Outlook.MAPIFolder 
    Dim NewFolder As Outlook.Folder 

    Set CurrentFolder = ol.ActiveExplorer.CurrentFolder 
    Set NewFolder = CurrentFolder.Folders.Add("Audits-Actuals") 

    '~~> What you need is from here. You need to activate the folder 
    '~~> before you activate the view 
    Set CurrentFolder = NewFolder 
    ol.ActiveExplorer.SelectFolder CurrentFolder 
    ol.ActiveExplorer.CurrentView = "RPO" 
End Sub 

这是我运行的代码后得到的。