VBA展望打開新窗口，只顯示文件夾窗格

因此，我正在設置一個宏，以在Outlook中打開一個新窗口，並只顯示我的收件箱中的子文件夾。我有大量的文件夾，需要彈出一個單獨的窗口來幫助將電子郵件拖放到這些其他文件夾。VBA展望打開新窗口，只顯示文件夾窗格

這是我目前設置的代碼。我只是不知道如何關閉主電子郵件列表（成功關閉預覽窗格）。

對不起，如果我的代碼是sl。。我一直試圖讓這個問題得到解決。

Sub anothertesttoopen() 
Dim oFolder As Outlook.Folder 


For Each oaccount In Application.Session.Accounts 
    If oaccount = "[email protected]" 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

來源

2017-02-13 jason

爲什麼你有Excel標籤？ – 0m3r

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。

來源

2017-02-13 20:18:31

這是一個很酷的想法，但我不完全確定如何將它應用於我的特定目標。最終，即時通訊試圖讓Outlook打開一個新窗口，只有導航窗格顯示.....如果可以將其打開並滾動到列表中的特定文件夾（例如「項目2017「）。 – jason

VBA展望打開新窗口，只顯示文件夾窗格

回答

相關問題