Wie erstelle ich einen Suchordner für alle nicht beantworteten E-Mails in Outlook?
Wenn Sie die nicht beantworteten E-Mails in Ihrem Outlook überprüfen möchten, dauert es sehr lange, sie einzeln zu durchsuchen. In diesem Artikel werde ich über das Erstellen eines Suchordners für alle nicht beantworteten Nachrichten sprechen.
Erstellen Sie einen Suchordner für alle nicht beantworteten E-Mails in Outlook mit VBA-Code
Erstellen Sie einen Suchordner für alle nicht beantworteten E-Mails in Outlook mit VBA-Code
Der folgende VBA-Code kann Ihnen beim Erstellen eines Suchordners helfen, in dem alle nicht beantworteten E-Mails abgelegt werden. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modul Fenster.
VBA-Code: Erstellen Sie einen Suchordner für nicht beantwortete E-Mails:
Sub CreateSearchFolder_AllNotRepliedEmails()
Dim xSearch As Outlook.Search
Dim xScope As String, xFilter As String
Dim xRepliedProperty As String
Dim xFolder As Folder, xSubFolder As Folder
On Error Resume Next
xScope = ""
For Each xFolder In Outlook.Application.Session.Folders
Set xSubFolder = xFolder.Folders("Inbox")
xScope = "'" + xSubFolder.FolderPath + "'"
xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
Set xSearch = Nothing
Set xSubFolder = Nothing
Next
MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
3. Dann drücken F5 Geben Sie die Taste ein, um diesen Code auszuführen, und ein Eingabeaufforderungsfeld wird wie folgt angezeigt:
4. Klicken Sie OK Schaltfläche, jetzt erhalten Sie eine Nicht beantwortete E-Mails Ordner unter dem Ordner durchsuchen Für jedes Konto in Ihrem Outlook und alle nicht beantworteten E-Mails werden hier angezeigt (siehe Screenshot).
Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!
- Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
- BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
- Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
- Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
- Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.

