Wie verschiebe ich E-Mails in einen bestimmten Ordner, nachdem ich in Outlook eine bestimmte Kategorie zugewiesen habe?
Angenommen, Sie haben einer empfangenen E-Mail in Ihrem Outlook eine Kategorie zugewiesen. Nach dem Zuweisen einer Kategorie soll diese E-Mail automatisch in einen bestimmten E-Mail-Ordner mit dem Kategorienamen verschoben werden. Beispielsweise wird eine E-Mail mit der Kategorie "Privat" in Ihren Outlook in den Ordnernamen "Privat" verschoben. Wie erreicht man das? Die Methode in diesem Artikel kann Ihnen dabei helfen, das Problem mühelos zu lösen.
Verschieben Sie E-Mails in den angegebenen Ordner, nachdem Sie mit VBA eine bestimmte Kategorie zugewiesen haben
Der folgende VBA-Code kann dazu beitragen, E-Mails nach dem Zuweisen einer bestimmten Kategorie in Outlook automatisch in den angegebenen Ordner zu verschieben. Bitte gehen Sie wie folgt vor.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, doppelklicken Sie, um das zu öffnen Diese Outlook-Sitzung (Code) Fenster. Kopieren Sie dann den folgenden VBA-Code in das Fenster. Siehe Screenshot:
VBA-Code: Verschieben Sie E-Mails in einen bestimmten Ordner, nachdem Sie eine bestimmte Kategorie zugewiesen haben
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. Speichern Sie den Code und starten Sie Outlook neu.
4. Wenn Sie einer empfangenden E-Mail von nun an eine Kategorie zuweisen, wird automatisch ein Ordner mit dem Kategorienamen unter dem Posteingangsordner erstellt, in den die E-Mail verschoben wird. Siehe Screenshot:
Note: Alle E-Mails, die derselben Kategorie zugewiesen sind, werden automatisch in denselben Ordner verschoben. Wenn einer E-Mail jedoch eine neue Kategorie zugewiesen wird, wird automatisch ein neuer Ordner erstellt.
In Verbindung stehende Artikel:
- Wie ordne ich ausgehenden E-Mails in Outlook eine Kategorie zu?
- Wie behalte ich die ursprünglichen Kategorien bei der Beantwortung oder Weiterleitung von E-Mails in Outlook?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!