Как переместить электронные письма в указанную папку после присвоения определенной категории в Outlook?
Предположим, вы присвоили категорию полученному письму в вашем Outlook. После присвоения категории вы хотите, чтобы это письмо автоматически перемещалось в определенную папку электронной почты, названную по имени категории. Например, письмо с категорией «Частная» будет перемещено в папку с именем «Частная» в вашем Outlook. Как этого добиться? Метод, описанный в этой статье, поможет вам легко решить эту проблему.
Перемещение писем в указанную папку после присвоения определенной категории с помощью VBA
Перемещение писем в указанную папку после присвоения определенной категории с помощью VBA
Следующий код VBA может помочь автоматически перемещать письма в указанную папку после присвоения определенной категории в Outlook. Пожалуйста, выполните следующие действия.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications дважды щелкните, чтобы открыть окно ThisOutlookSession (Код). Затем скопируйте следующий код VBA в это окно. См. скриншот:
Код VBA: Перемещение писем в указанную папку после присвоения определенной категории
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Сохраните код и перезапустите Outlook.
4. С этого момента при присвоении категории входящему письму папка с именем категории будет создана автоматически под папкой Входящие, а письмо будет перемещено туда. См. скриншот:
Примечание: Все письма, которым присвоена одна и та же категория, будут автоматически перемещены в одну и ту же папку. Однако, если новая категория присваивается письму, новая папка будет создана автоматически.
AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО
Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:
- Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
- Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
- Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
- Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
- Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
- Глобальный охват: Легко переводите ваши письма на любой язык.
Эта функция поддерживает:
- Умные ответы на письма
- Оптимизированное содержание
- Черновики на основе ключевых слов
- Интеллектуальное расширение содержания
- Краткое изложение писем
- Перевод на несколько языков
Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь
Связанные статьи:
- Как присвоить категорию исходящему письму в Outlook?
- Как сохранить оригинальные категории при ответе или пересылке письма в Outlook?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.





- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек