outlook-2007 - 是否有宏可以切换到 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 。