Есть ли макрос для переключения в определенную папку в Outlook? - PullRequest
Новая
       16

Есть ли макрос для переключения в определенную папку в Outlook?

1 голос
/ 02 марта 2010

Я часто (с помощью мыши) переключаюсь между 1 из 3 избранных папок в папке входящих сообщений. Я ищу написать макрос для переключения между этими папками. Я вижу много писем в коде для перемещения определенных писем в папки, но есть ли способ переместить фокус на определенную папку?

1 Ответ

3 голосов
/ 06 марта 2010

Конечно, вы можете просто изменить значение 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.

...