Wie verschiebt man E-Mails automatisch in einen festgelegten Ordner, sobald ihnen eine bestimmte Kategorie zugewiesen wurde?
Angenommen, Sie haben einer empfangenen E-Mail in Outlook eine Kategorie zugewiesen und möchten, dass diese E-Mail danach automatisch in einen Ordner mit dem Namen der jeweiligen Kategorie verschoben wird – beispielsweise eine E-Mail mit der Kategorie „Privat“ in den Outlook-Ordner „Privat“. Wie lässt sich das umsetzen? Die Methode in diesem Artikel ermöglicht Ihnen eine mühelose Lösung.
Verschieben von E-Mails in einen festgelegten Ordner nach dem Zuweisen einer bestimmten Kategorie mithilfe von VBA
Der folgende VBA-Code verschiebt E-Mails automatisch in einen festgelegten Outlook-Ordner, sobald ihnen eine bestimmte Kategorie zugewiesen wird. Gehen Sie dazu wie folgt vor:
1. Drücken Sie die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications auf ThisOutlookSession (Code), um das zugehörige Codefenster zu öffnen. Fügen Sie anschließend den unten stehenden VBA-Code in dieses Fenster ein. Siehe Screenshot:
VBA-Code: Verschieben von E-Mails in einen festgelegten Ordner nach dem Zuweisen einer bestimmten Kategorie
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. Sobald Sie einer empfangenen E-Mail eine Kategorie zuweisen, wird ab sofort automatisch ein Ordner mit dem Kategorienamen im Posteingang erstellt und die E-Mail dorthin verschoben. Siehe Screenshot:
Hinweis: Alle E-Mails, die mit derselben Kategorie versehen sind, werden automatisch in denselben Ordner verschoben. Sobald einem E-Mail-Element jedoch eine neue Kategorie zugewiesen wird, erstellt das System automatisch einen neuen Ordner.
KI-E-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (Ein-Klick-Zauber!)
Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem KI-E-Mail-Assistenten von Kutools für Outlook – einem leistungsstarken Tool, das aus Ihren bisherigen E-Mails lernt, um intelligente und präzise Antworten vorzuschlagen, Ihren E-Mail-Inhalt zu optimieren und Ihnen das mühelose Verfassen und Überarbeiten von Nachrichten zu ermöglichen.
Diese Funktion unterstützt:
- Intelligente Antworten: Erhalten Sie maßgeschneiderte, präzise und sofort einsatzbereite Antworten, die auf Ihren bisherigen Gesprächen basieren.
- Verbesserter Inhalt: Verbessern Sie Ihren E-Mail-Text automatisch – für mehr Klarheit und Wirkung.
- Müheloses Verfassen: Geben Sie einfach Stichwörter ein und überlassen Sie den Rest der KI – mit mehreren Schreibstilen.
- Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
- Zusammenfassung: Erhalten Sie sofort prägnante Übersichten über lange E-Mails.
- Globale Reichweite: Übersetzen Sie Ihre E-Mails mühelos in jede gewünschte Sprache.
Diese Funktion unterstützt:
- Intelligente E-Mail-Antworten
- Optimierter Inhalt
- Stichwortbasierte Entwürfe
- Intelligente Inhaltserweiterung
- E-Mail-Zusammenfassung
- Mehrsprachige Übersetzung
Warten Sie nicht –laden Sie jetzt den KI-E-Mail-Assistenten herunter und genießen Sie!
Verwandte Artikel:
- Wie weist man einer ausgehenden E-Mail in Outlook eine Kategorie zu?
- Wie behält man beim Antworten oder Weiterleiten einer E-Mail in Outlook die ursprünglichen Kategorien bei?
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Tabs in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
- Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office Das Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit verschiedenen Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins