Jak przenieść wiadomości e-mail do określonego folderu po przypisaniu określonej kategorii w Outlooku?
Przypuśćmy, że przypisałeś kategorię do odebranej wiadomości e-mail w programie Outlook, po przypisaniu kategorii chcesz, aby ta wiadomość e-mail została automatycznie przeniesiona do określonego folderu poczty e-mail o nazwie z nazwą kategorii. Na przykład, e-mail przypisany do kategorii „Prywatne” zostanie przeniesiony do folderu o nazwie „Prywatny” w Twoim Outlooku. Jak to osiągnąć? Metoda opisana w tym artykule może pomóc w łatwym rozwiązaniu problemu.
Przenieś wiadomości e-mail do określonego folderu po przypisaniu określonej kategorii za pomocą VBA
Przenieś wiadomości e-mail do określonego folderu po przypisaniu określonej kategorii za pomocą VBA
Poniższy kod VBA może pomóc w automatycznym przenoszeniu wiadomości e-mail do określonego folderu po przypisaniu określonej kategorii w Outlooku. Wykonaj następujące czynności.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij dwukrotnie, aby otworzyć ThisOutlookSession (kod) okno. Następnie skopiuj poniższy kod VBA do okna. Zobacz zrzut ekranu:
Kod VBA: Przenieś wiadomości e-mail do określonego folderu po przypisaniu określonej kategorii
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. Zapisz kod i uruchom ponownie Outlooka.
4. Od tej chwili podczas przypisywania kategorii do odbieranego e-maila, pod folderem Skrzynka odbiorcza, w którym zostanie przeniesiona wiadomość, automatycznie tworzony będzie folder z nazwą kategorii. Zobacz zrzut ekranu:
Note: Wszystkie e-maile przypisane do tej samej kategorii zostaną automatycznie przeniesione do tego samego folderu. Jeśli jednak do wiadomości e-mail zostanie przypisana nowa kategoria, nowy folder zostanie utworzony automatycznie.
Podobne artykuły:
- Jak przypisać kategorię do wychodzących wiadomości e-mail w Outlooku?
- Jak zachować oryginalne kategorie podczas odpowiadania lub przekazywania wiadomości e-mail w Outlooku?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!