Как сортировать, группировать и фильтровать сообщения по домену адреса отправителя в Outlook?

Обычно мы можем легко упорядочить все сообщения электронной почты по отправителю, категориям, темам, размеру и т.д. в Microsoft Outlook. Однако кажется невозможным сортировать или группировать сообщения электронной почты по Фильтровать по домену адреса отправителя, поскольку для сообщений электронной почты вообще отсутствует поле Фильтровать по домену адреса отправителя. Ниже я приведу код VBA, который поможет вам добавить столбец «Домен» для сообщений электронной почты, а затем легко сортировать и группировать сообщения по Фильтровать по домену адреса отправителя в Outlook.

Чтобы сортировать и группировать сообщения электронной почты по Фильтровать по домену адреса отправителя в Microsoft Outlook 2013 и 2010, выполните следующие действия:

Шаг 1: Откройте папку с почтой, в которой вы хотите сортировать все сообщения по домену адреса отправителя.

Шаг 2: Отключите область чтения, выбрав Область чтения > Откл. на вкладке Вид.

Шаг 3: Перейдите на вкладку Вид и нажмите кнопку Добавить несколько столбцов.

Шаг 3: В диалоговом окне «Показать столбцы» нажмите кнопку Новый столбец.

Шаг 4: В диалоговом окне «Новый столбец» введите Домен в поле «Имя», оставьте выбранное значение Текст в обоих полях Тип и Формат, после чего нажмите кнопку ОК.

Шаг 5: Теперь вы снова в диалоговом окне «Показать столбцы». Выберите Домен в списке «Показывать эти столбцы в указанном порядке», переместите его ниже элемента От кого и нажмите кнопку ОК.

Шаг 6: Теперь вы снова в открытой почтовой папке. Выделите все письма, нажав одновременно клавиши Ctrl+A.

Шаг 7: Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications, затем выберите Вставка > Модуль и вставьте приведённый ниже код VBA в модуль.

VBA: Сортировка и группировка по Фильтровать по домену адреса отправителя

Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub

Шаг 8: Запустите этот код VBA, нажав клавишу F5 или кнопку Выполнить на панели инструментов.

Шаг 9: Теперь домен каждого отправителя извлечён и заполнен в столбце «Домен».

А.Чтобы сортировать сообщения электронной почты по Фильтровать по домену адреса отправителя, просто щёлкните заголовок столбца Доменв верхней части списка сообщений;

Б. Чтобы сгруппировать сообщения электронной почты по домену адреса отправителя, щёлкните правой кнопкой мыши заголовок столбца Домен и выберите пункт Группировать по этому полю в выпадающем списке. См. скриншот ниже:

Примечания:

(1) Этот код VBA отлично работает в Outlook 2013 и 2010, но не поддерживается в Outlook 2007.
(2) Вы можете легко сохранить пользовательский вид с помощью статьи Как сохранить и скопировать параметры вида в другие папки в Outlook?

Связанная статья

Как отображать домены отправителей в списке писем Outlook?

---

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для удобной работы с электронной почтой: ответы, составление резюме, оптимизация, расширение, перевод и создание писем.

📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…

Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним щелчком! Не теряйте время — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook      Скачать сейчас      Перейти к покупке

🚀 Скачать одним щелчком — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

• ✅Удобство одним щелчком: Скачайте все пять установочных пакетов за одно действие.
• 🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
• 🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете⬇ Скачать пакет💳 Приобрести пакет