Как переместить прочитанное сообщение электронной почты в указанную папку в Outlook?

Перемещение сообщений электронной почты в указанную папку после прочтения — лучший способ поддерживать папку «Входящие» в чистоте в Outlook. Многие пользователи Outlook стремятся создать правило для перемещения таких прочитанных писем. Однако на самом деле Outlook не поддерживает такой процесс с помощью мастера правил. В этой статье мы покажем, как перемещать сообщения электронной почты в указанную папку после прочтения с помощью кода VBA в Outlook.

Перемещение сообщения электронной почты в указанную папку после прочтения в Outlook

Перемещение сообщения электронной почты в указанную папку после прочтения в Outlook

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

1. Сначала создайте новую папку «Reviewed» в папке «Входящие».

2. Откройте папку «Входящие», затем нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.

3. Затем дважды щелкните, чтобы развернуть Project1 > Объекты Microsoft Outlook > ThisOutlookSession, и откроется редактор VbaProject.OTM.

4. Затем скопируйте приведённый ниже код VBA и вставьте его в редактор VbaProject.OTM, как показано на скриншоте выше.

Код VBA: перемещение сообщений после прочтения

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Затем нажмите кнопку Сохранить, чтобы сохранить код VBA, и закройте окно Microsoft Visual Basic for Applications.

6. Щелкните правой кнопкой мыши по панели быстрого доступа и выберите в контекстном меню пункт Настроить панель быстрого доступа. См. скриншот:

7. В диалоговом окне Параметры Outlook выполните следующие действия:

1). В поле Макросы в разделе Выберите команды из раскрывающийся список;

2). Выберите Project1. ThisOutlookSession в списке под разделом Выберите команды из раскрывающегося списка;

3). Нажмите кнопку Добавить;

4). Нажмите кнопку ОК.

8. Теперь вы увидите кнопку Макрос на панели быстрого доступа. Убедитесь, что вы находитесь в папке «Входящие», из которой хотите переместить все прочитанные сообщения, затем нажмите кнопку Макрос, чтобы запустить код VBA в этой папке.

Примечания:

1. Данный код VBA можно использовать в Outlook 2007, 2010 и 2013; однако в Outlook 2007 вы можете сразу нажать кнопку Выполнить, чтобы запустить код.

2. Если в вашем Outlook настроено несколько учетных записей электронной почты, код VBA будет применяться только к той учетной записи, файл данных которой установлен по умолчанию. Чтобы проверить, какой файл данных используется по умолчанию, последовательно выберите Файл > Информация > Параметры учетной записи > Параметры учетной записи, чтобы открыть диалоговое окно Параметры учетной записи. Перейдите на вкладку Файлы данных — файл данных по умолчанию помечен значком перед его названием.

3. Если вы хотите изменить файл данных по умолчанию на другую учётную запись электронной почты, выберите и выделите нужную учётную запись, затем нажмите кнопку Установить по умолчанию в диалоговом окне Параметры учётной записи.

4. При первом запуске кода VBA, если окажется, что не все прочитанные сообщения переместились сразу, продолжайте нажимать кнопку «Макрос», пока все прочитанные письма из папки «Входящие» не будут перенесены.

---

Лучшие инструменты для повышения продуктивности в 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

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