是否有一個宏切換到Outlook中的特定文件夾？

Question

我經常（使用鼠標）在收件箱中的3個收藏夾中的1個之間切換。我正在尋找寫一個宏來切換這些文件夾。我看到很多關於代碼的電子郵件，以便將特定的電子郵件移動到文件夾，但有沒有辦法將注意力集中在特定的文件夾上？

Answer 1

當然，您可以將CurrentFolder值更改爲其中一個收件箱文件夾。下面是一個從任何地方將視圖更改爲收件箱中名爲「T1」的文件夾的示例。

Sub ChangeViewtoFolderT1() 

    Dim ns As Outlook.NameSpace 
    Set ns = Application.GetNamespace("MAPI") 

    Dim Exp As Outlook.Explorer 
    Set Exp = Application.ActiveExplorer 

    Dim myInbox As Folder 
    Set myInbox = ns.GetDefaultFolder(olFolderInbox) 

    Dim folder1 As Folder 
    Set folder1 = myInbox.Folders.Item("T1") 

    Set Exp.CurrentFolder = folder1 

End Sub 

詳情請參閱http://msdn.microsoft.com/en-us/library/bb220039.aspx。