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

Author Siluvia Last modified 2025-08-26

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

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

Office Tab - Включите редактирование и просмотр с вкладками в Microsoft Office, делая работу проще

Читать функции Office Tab Скачать Office Tab

Разблокируйте Kutools для Outlook прямо сейчас и получите доступ к более чем 100 функциям без ограничений навсегда

Повысьте продуктивность обработки электронной почты с помощью технологии ИИ, позволяя быстро отвечать на письма, создавать новые, переводить сообщения и многое другое.
Автоматизируйте отправку писем с помощью Авто Копии/Скрытой копии, Автоматического перенаправления по правилам; отправляйте Автоответчик (Вне офиса) без необходимости использования сервера Exchange...
Получайте напоминания, такие как Предупреждение при ответе на электронное письмо, в котором я указан в поле BCC, а также напоминания о пропущенных вложениях...
Улучшите эффективность работы с электронной почтой с помощью Ответа (всем) с вложениями, автоматического добавления приветствия или даты и времени в подпись или тему, ответа на несколько писем...
Оптимизируйте работу с электронной почтой с помощью функций Отзыва писем, Инструментов вложений (Сжать все, Автосохранение всех...), Удаление дубликатов и Быстрый отчет...

Увеличьте возможности Outlook 2024 - 2010 или Outlook 365 с этими расширенными функциями. Наслаждайтесь более чем 100 мощными функциями и улучшите свой опыт работы с электронной почтой!

Читать все функции Kutools для Outlook Скачать сейчас

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

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

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

a new folder

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

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

the VbaProject.OTM editor

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

the Customize Quick Access Toolbar buton

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

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

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

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

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

the Outlook Options dialog box

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

the Macro button

Примечания:

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

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

the Account Settings dialog box

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

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