Как переместить электронные письма в указанную папку после назначения определенной категории в Outlook?
Предположим, вы назначили категорию полученному электронному письму в Outlook, после назначения категории вы хотите, чтобы это электронное письмо автоматически перемещалось в определенную папку электронной почты с именем категории. Например, электронное письмо с категорией «Личное» будет перемещено в папку с именем «Личный» в Outlook. Как этого добиться? Метод, описанный в этой статье, может помочь вам с легкостью решить проблему.
Переместите электронные письма в указанную папку после назначения определенной категории с помощью VBA
Приведенный ниже код VBA может помочь автоматически перемещать электронные письма в указанную папку после назначения определенной категории в Outlook. Пожалуйста, сделайте следующее.
1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, дважды щелкните, чтобы открыть 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. С этого момента при присвоении категории получающему электронному письму папка с названием категории будет автоматически создаваться в папке «Входящие», куда будет перемещено электронное письмо. См. Снимок экрана:
Внимание: Все электронные письма, относящиеся к одной категории, будут автоматически перемещены в одну папку. Но если электронному письму назначена новая категория, новая папка будет создана автоматически.
Статьи по теме:
- Как назначить категорию исходящей электронной почте в Outlook?
- Как сохранить исходные категории при ответе или пересылке электронной почты в Outlook?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!