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

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

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

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

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

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

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

3. Затем дважды щелкните, чтобы развернуть Project1 > Microsoft Outlook Objects > 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!

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

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

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

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

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...

👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...

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

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

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

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