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

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

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

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

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

1. Во-первых, вам нужно создать новую папку с именем «Отзыв»В папке« Входящие ».

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

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

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 для приложений окно.

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

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

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

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

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

4). Щелкните значок OK .

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

Заметки:

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

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

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

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

---

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

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

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

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

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

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      Купите