Как открыть нужную папку Outlook прямо из Excel?

Пробовали ли вы когда-нибудь открывать определённую папку Outlook — например «Входящие», «Контакты» или любую другую — прямо из файла Excel? В этой статье я покажу, как открыть нужную папку Outlook из рабочей книги Excel.

Открытие определённой папки Outlook из файла Excel с помощью кода VBA

---

Открытие определённой папки Outlook из файла Excel с помощью кода VBA

Следующий код VBA позволит вам открыть нужную папку Outlook прямо из листа Excel. Выполните следующие действия:

1. В Excel нажмите и удерживайте клавиши «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите «Вставка» > «Модуль» и вставьте приведённый ниже макрос в окно модуля.

Код VBA: открытие определённой папки Outlook из файла Excel:

Sub OpenOutlookFolder()
    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim xFolderType As OlDefaultFolders
    On Error Resume Next
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
    xFolder.Display
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
    Exit Sub
End Sub

Примечание. В приведённом выше коде вы можете заменить «Входящие» в строке «Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)» на имя любой другой папки, которую хотите открыть.

3. Затем в окне «Microsoft Visual Basic для приложений» выберите «Сервис» → «Ссылки». В открывшемся диалоговом окне «Ссылки – Project1» установите флажок рядом с пунктом «Microsoft Outlook Object Library» в списке «Доступные ссылки». См. снимок экрана:

4. После этого нажмите «ОК», чтобы закрыть диалоговое окно, и клавишу «F5» — чтобы запустить код и немедленно открыть указанную папку Outlook.