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 не предоставляет никаких методов или свойств для скрытия сетки. Вместо этого вы можете отобразить на нем любую веб-страницу. Свойство WebViewOn класса Folder позволяет установить логическое значение, указывающее состояние веб-представления для папки. Он возвращает значение True для отображения веб-страницы, заданной свойством WebViewURL объекта Folder. 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 для получения дополнительной информации.