Как переместить электронные письма в указанную папку после присвоения определенной категории в 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?