Wie kann man E-Mails nach dem Zuweisen einer bestimmten Kategorie in Outlook automatisch in einen angegebenen Ordner verschieben?
Angenommen, Sie haben einer empfangenen E-Mail in Ihrem Outlook eine Kategorie zugewiesen. Nachdem Sie die Kategorie zugewiesen haben, möchten Sie, dass diese E-Mail automatisch in einen bestimmten E-Mail-Ordner verschoben wird, der mit dem Namen der Kategorie benannt ist. Zum Beispiel wird eine E-Mail, die der Kategorie „Privat“ zugewiesen wurde, in einen Ordner namens „Privat“ in Ihrem Outlook verschoben. Wie kann man das erreichen? Die Methode in diesem Artikel kann Ihnen helfen, das Problem mühelos zu lösen.
E-Mails nach dem Zuweisen einer bestimmten Kategorie mit VBA in einen angegebenen Ordner verschieben
E-Mails nach dem Zuweisen einer bestimmten Kategorie mit VBA in einen angegebenen Ordner verschieben
Der folgende VBA-Code kann dabei helfen, E-Mails automatisch in einen bestimmten Ordner zu verschieben, nachdem eine bestimmte Kategorie in Outlook zugewiesen wurde. Bitte gehen Sie 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, um das Fenster ThisOutlookSession (Code) zu öffnen. Kopieren Sie dann den folgenden VBA-Code in das Fenster. Siehe Screenshot:
VBA-Code: E-Mails nach dem Zuweisen einer bestimmten Kategorie in einen angegebenen Ordner verschieben
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. Von nun an wird beim Zuweisen einer Kategorie zu einer empfangenen E-Mail automatisch ein Ordner mit dem Namen der Kategorie unter dem Posteingang erstellt, und die E-Mail wird dorthin verschoben. Siehe Screenshot:
Hinweis: Alle E-Mails, denen dieselbe Kategorie zugewiesen wurde, werden automatisch in denselben Ordner verschoben. Wenn jedoch einer E-Mail eine neue Kategorie zugewiesen wird, wird automatisch ein neuer Ordner erstellt.
AI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (per Klick-Zauberei!) KOSTENLOS
Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem AI-Mail-Assistenten von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten anzubieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen das Verfassen und Überarbeiten von Nachrichten mühelos zu ermöglichen.
Diese Funktion unterstützt:
- Intelligente Antworten: Erhalten Sie Antworten, die aus Ihren früheren Gesprächen erstellt wurden – maßgeschneidert, präzise und sofort einsatzbereit.
- Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für Klarheit und Wirkung.
- Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und lassen Sie die KI den Rest erledigen, mit mehreren Schreibstilen.
- Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
- Zusammenfassung: Erhalten Sie prägnante Übersichten über lange E-Mails auf Knopfdruck.
- Weltweite Reichweite: Übersetzen Sie Ihre E-Mails ganz einfach in jede Sprache.
Diese Funktion unterstützt:
- Intelligente E-Mail-Antworten
- Optimierter Inhalt
- Schlüsselwortbasierte Entwürfe
- Intelligente Inhaltserweiterung
- E-Mail-Zusammenfassung
- Mehrsprachige Übersetzung
Das Beste daran ist, dass diese Funktion für immer komplett kostenlos ist! Zögern Sie nicht – laden Sie den AI-Mail-Assistenten noch heute herunter und genießen Sie!
Verwandte Artikel:
- Wie weist man einer ausgehenden E-Mail in Outlook eine Kategorie zu?
- Wie behält man die ursprünglichen Kategorien bei, wenn man in Outlook auf eine E-Mail antwortet oder sie weiterleitet?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins