Как открыть определенную папку 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" в списке доступных ссылок. См. скриншот:
4. После этого нажмите "ОК", чтобы закрыть диалоговое окно, и нажмите клавишу "F5", чтобы запустить этот код, и указанная папка Outlook откроется немедленно.
Лучшие инструменты для повышения продуктивности работы с Office
Срочные новости: бесплатная версия Kutools для Outlook уже доступна!
Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...
📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...
👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!
🚀 Скачайте все дополнения Office одним кликом
Рекомендуем: Kutools для Office (5-в-1)
Скачайте сразу пять установщиков одним кликом — Kutools для Excel, Outlook, Word, PowerPoint и Office Tab Pro. Нажмите, чтобы скачать прямо сейчас!
- ✅ Все просто: скачайте все пять установочных пакетов одним действием.
- 🚀 Готово для любой задачи Office: Установите нужные дополнения тогда, когда они вам понадобятся.
- 🧰 Включено: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools для PowerPoint