Как открыть определенную папку Outlook из Excel?

Author: Xiaoyang Last Modified: 2025-08-07

Пробовали ли вы когда-нибудь открыть определенную папку 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" в списке доступных ссылок. См. скриншот:

check Microsoft Outlook Object Library option in References dialog box

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