Перейти к основному содержанию

Как объединить все почтовые ящики нескольких учетных записей, чтобы отображать все электронные письма вместе в Outlook?

Outlook поддерживает одновременную работу нескольких учетных записей электронной почты. По умолчанию каждая учетная запись электронной почты имеет собственный почтовый ящик в Outlook. Таким образом, чем больше учетных записей электронной почты вы создали в Outlook, тем больше будет почтовых ящиков. Вы должны переключаться на отдельный почтовый ящик взад и вперед, чтобы проверить электронную почту. Есть ли хороший способ создать единый почтовый ящик, который может собирать все почтовые ящики нескольких учетных записей вместе? Эта статья покажет вам способ ее достижения.

Создайте единый почтовый ящик для нескольких учетных записей электронной почты с кодом VBA


Создайте единый почтовый ящик для нескольких учетных записей электронной почты с кодом VBA

Выполните следующие действия, чтобы объединить все почтовые ящики нескольких учетных записей для отображения всех полученных писем вместе в Outlook.

1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, скопируйте ниже код VBA в Эта сессия Outlook окно кода.

Код VBA: создайте единый почтовый ящик для нескольких учетных записей электронной почты:

Sub UnifiedInbox()
'Update by Extendoffice 20180504
Dim xExplorer As Outlook.Explorer
Dim xSearch As String
On Error Resume Next
xSearch = "folderpath:Inbox"
Set xExplorer = Outlook.Application.ActiveExplorer
xExplorer.Search xSearch, olSearchScopeAllFolders
Set xApp = Nothing
End Sub

3. Затем нажмите другой + Q ключи для сохранения и закрытия Microsoft Visual Basic для приложений окно.

4. Нажмите Настройка панели быстрого доступа и нажмите Дополнительные команды из раскрывающегося меню. Смотрите скриншот:

5. в Параметры Outlook диалоговое окно, вам необходимо:

5.1 Выбрать Макрос из Выберите команды из раскрывающийся список;

5.2 Выбрать Project1.ThisOutlookSession.UnifiedInbox из окна команд;

5.3 Щелкните значок Добавить кнопка;

5.4 Продолжайте выбирать Эта сессия Outlook в правой Настройка панели быстрого доступа поле, а затем щелкните Изменить кнопка;

5.5 Выберите кнопку изменения для макроса, а затем нажмите кнопку OK кнопка;

5.6 Щелкните значок OK в Параметры Outlook диалоговое окно. Смотрите скриншот:

6. Затем на экране появится кнопка изменения. Панель быстрого доступа. Нажмите кнопку, после чего электронные письма во всех ящиках нескольких учетных записей электронной почты будут найдены и объединены вместе, как показано ниже:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This worked perfectly as a way to add capability to search for flagged items across multiple inboxes and .pst files, with a minor edit. Thank you so much for solving a major annoyance with how Outlook makes search folders.
This comment was minimized by the moderator on the site
Works fine for me on Outlook 365 Desktop Version for Windows 11 - thank you very much! I Only had to change the folder to "ordnerpfad:posteingang" due to the German version.
Do you have any ideas, how to add all junk folders to the macro, so that all emails from all Inboxes and Junk-folders are shown as result? If possible also with the German name for the folder - or maybe you know where to look it up?
Thank you very much in advance and best wishes from Germany!
This comment was minimized by the moderator on the site
This worked for me first time, but after an Office Update (the following day) it failed. I contacted Addin Technology via their 'contact us' link but was advised to post here, so here I am. In between times, I solved the issue. You need to enable macros at a suitable level. Go to File->Options-Trust Centre-Trust CentreSettings->Macro Settings and select the third option down, 'Notifications for all macros'. This is slightly more risky than the recommended level, but less so than the "Enable all" option. Clever solution, but I can't help feel that there's a way to achieve a unified inbox using Office options without a VBA macro.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations