Wenn Sie möchten, dass Outlook E-Mails automatisch in verschiedene Ordner verschiebt, wenn Sie ihnen verschiedene Farbkategorien zuweisen, können Sie die in diesem Abschnitt beschriebene Methode verwendenost.
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
- Für astart Starten Sie 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
Hinweise:
- 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 auch die Farbkategorien und tarHolen Sie sich Ordner, die im obigen Code gemäß Ihren tatsächlichen Fällen vordefiniert sind.
- Außerdem können Sie mit „ElseIf“ die anderen optionalen Farbkategorien hinzufügen.
- Bewegen Sie danach den Cursor in „Application_Startup “und drücken Sie“ 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