Wenn Sie möchten, dass Outlook E-Mails automatisch in verschiedene Ordner verschiebt, sobald Sie ihnen unterschiedliche Farbkategorien zuweisen, können Sie die in diesem Beitrag vorgestellte Methode verwenden.
Viele Benutzer sehnen sich nach Methoden zum automatischen Verschieben einer E-Mail in einen bestimmten Ordner, wenn ihr eine bestimmte Farbkategorie zugewiesen ist. Ohne Zweifel bietet Outlook keine so direkte Funktion, um dies zu realisieren. Daher werden wir Ihnen im Folgenden ein Mittel beibringen, um es zu bekommen. Lesen Sie jetzt weiter, um die detaillierten Schritte zu erhalten.
E-Mails mit unterschiedlichen Farbkategorien automatisch in verschiedene Ordner verschieben
- Starten Sie zunächst Ihr Outlook-Programm.
- Drücken Sie dann in Outlook die Tasten „Alt + F11“, um auf den VBA-Editor zuzugreifen.
- Fügen Sie anschließend den folgenden VBA-Code in das Projekt "ThisOutlookSession" ein.
Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items
'Process inbox mails
Private Sub Application_Startup()
Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInboxFolder.Items
End Sub
'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objTargetFolder As Outlook.Folder
If TypeOf Item Is MailItem Then
Set objMail = Item
'Move mails based on color category
If InStr(objMail.Categories, "Private") > 0 Then
Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
objMail.Move objTargetFolder
ElseIf InStr(objMail.Categories, "Business") > 0 Then
Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
objMail.Move objTargetFolder
End If
End If
End Sub
Hinweis:
- Um Elemente in anderen Ordnern zu verarbeiten, können Sie das Objekt "objInboxFolder" ändern, z. B. "Application.Session.GetDefaultFolder (olFolderSentMail)" für den Ordner "Gesendete Elemente".
- Ändern Sie außerdem die im obigen Code vordefinierten Farbkategorien und Zielordner entsprechend Ihren konkreten Anwendungsfällen.
- Außerdem können Sie mit „ElseIf“ die anderen optionalen Farbkategorien hinzufügen.
- Anschließend bewegen Sie den Cursor in die Unterroutine „Application_Startup“ und drücken „F5“, um dieses Makro zu aktivieren.
- Schließlich können Sie einen Schuss machen. Hier ist mein Beispiel.
- Wählen Sie eine E-Mail im Ordner "Posteingang".
- Weisen Sie ihm dann die Farbkategorie "Privat" zu.
- Diese E-Mail wird sofort in den Ordner "Privat" unter "Posteingang" verschoben.
Gehen Sie vorsichtig mit Ihrem Ausblick um
Möglicherweise sind in Ihrem Outlook mehrere Probleme aufgetreten. Meistens treten sie tatsächlich bei unsachgemäßer Behandlung auf. Beispielsweise schließen Sie Outlook immer falsch, z. B. durch plötzliches Ausschalten. Oder Sie haben Ihre Outlook-Daten nicht in regelmäßigen Abständen gesichert. Alle ähnlichen Aktionen können Ihr Outlook viel anfälliger machen. Wie Sie wissen, ist es äußerst schwierig, eine PST-Datei zu reparieren, sobald sie beschädigt ist. Im Allgemeinen ist die Reparaturwerkzeug für den Posteingang macht keine Effekte. Sie haben keine andere Wahl, als sich an externe Dienstprogramme zu wenden, wie z DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX