Wie kann man schnell zum Ordner der Suchergebnisse in Outlook gehen und ihn öffnen?
In Outlook können Sie E-Mails basierend auf einem bestimmten Text mit der Suchfunktion finden. Wenn Sie jedoch durch alle Outlook-Elemente suchen, können Sie den Ordner der Suchergebnisse nicht schnell ermitteln. In diesem Fall habe ich einige Tricks, die Ihnen helfen können, schnell zum Ordner der Suchergebnisse zu gelangen und ihn zu öffnen.
Zum Ordner der Suchergebnisse gehen und diesen mit VBA öffnen
Zum Ordner der Suchergebnisse gehen und diesen mit Rechtsklick öffnen
Zum Ordner der Suchergebnisse gehen und diesen mit VBA öffnen
In Outlook gibt es keine integrierte Funktion, die diese Aufgabe ausführen kann, außer VBA-Code.
Bevor Sie den VBA-Code verwenden, müssen Sie den Ordnernamen in den Suchergebnissen anzeigen lassen.
1. Klicken Sie auf Ansicht > Spalten hinzufügen.
2. Wählen Sie im Dialogfeld Spalten anzeigen und in der Dropdown-Liste Verfügbare Spalten auswählen die Option Alle E-Mail-Felder aus, dann wählen Sie Ordner in der Liste der verfügbaren Spalten.
3. Klicken Sie auf Hinzufügen, um Ordner zur Liste Diese Spalten in dieser Reihenfolge anzeigen hinzuzufügen, und klicken Sie dann auf die Schaltfläche Nach oben verschieben, um Ordner an die Spitze zu bringen.
4. Klicken Sie auf OK, um das Dialogfeld zu schließen. Während Sie nun E-Mails suchen, wird der Ordnername in den Suchergebnissen angezeigt.
5. Drücken Sie jetzt die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen, klicken Sie auf Einfügen > Modul, um ein neues Modul zu erstellen.
6. Kopieren und fügen Sie den folgenden Code in das Modul ein.
VBA: Zum Ordner über einen Namen gehen
Sub FindFolderByName()
'UpdatebyExtendoffice20181105
Dim xFldName As String
Dim xFoundFolder As Folder
Dim xYesNo As Integer
On Error Resume Next
xFldName = InputBox("Folder Name:", "Kutools for Outlook")
If Len(Trim(xFldName)) = 0 Then Exit Sub
Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
If xFoundFolder Is Nothing Then
MsgBox "Not Found", vbInformation, "Kutools for Outlook"
Exit Sub
End If
xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Exit Sub
Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
Dim xSubFolder As Outlook.MAPIFolder
On Error Resume Next
Set ProcessFolders = Nothing
For Each xSubFolder In Flds
If UCase(xSubFolder.Name) = UCase(Name) Then
Set ProcessFolders = xSubFolder
Exit For
Else
Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
If Not ProcessFolders Is Nothing Then Exit For
End If
Next
End Function7. Drücken Sie die Taste F5, um den Code zu aktivieren, und geben Sie nun den Namen des Ordners, zu dem Sie gehen möchten, in das Dialogfeld ein.
8. Klicken Sie auf OK, ein Dialogfenster erscheint, das Sie auf die Position des Ordners hinweist. Klicken Sie auf Ja, um direkt zum Ordner zu gehen, oder auf Nein, um abzubrechen.
Zum Ordner der Suchergebnisse gehen und diesen mit Rechtsklick öffnen
Wenn Sie Kutools für Outlook haben, wird eine Funktion „In Ordner öffnen“ in das Kontextmenü integriert, mit der Sie schnell zum Ordner der ausgewählten E-Mail gelangen können, selbst in der Suchergebnisliste.
Installieren Sie Kutools für Outlook kostenlos , und führen Sie dann die folgenden Schritte aus:
Nach der Suche klicken Sie mit der rechten Maustaste auf das Ergebnis, dessen Ordner Sie öffnen möchten, und wählen Sie In Ordner öffnen (Kutools) aus dem Kontextmenü.
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
