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?