Як перемістити електронні листи до вказаної папки після присвоєння певної категорії в Outlook?
Припустимо, що ви призначили категорію отриманому електронному листу у своєму Outlook, після призначення категорії ви хочете, щоб цей електронний лист автоматично перемістився до певної папки електронної пошти з іменем категорії. Наприклад, електронне повідомлення, присвоєне категорії "Приватне", буде переміщено до назви папки "Приватне" у вашому Outlook. Як цього досягти? Метод у цій статті може допомогти вам легко вирішити проблему.
Перемістіть електронні листи до вказаної папки після призначення певної категорії за допомогою VBA
Перемістіть електронні листи до вказаної папки після призначення певної категорії за допомогою 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 для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!