Как переместить письма в указанную папку после присвоения им определённой категории в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек