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。

是否有一个宏切换到Outlook中的特定文件夹？

1 个答案: