Wie gelangen Sie schnell zum Ordner eines Suchergebnisses in Outlook und öffnen ihn?

In Outlook können Sie E-Mails mithilfe der Suchfunktion nach einem bestimmten Text durchsuchen. Wenn Sie jedoch über „Alle Outlook-Elemente“ suchen, lässt sich der Ordner des Suchergebnisses nicht auf Anhieb finden. In diesem Fall zeige ich Ihnen hier einige praktische Tricks, mit denen Sie schnell zum entsprechenden Ordner wechseln und ihn öffnen können.

Zum Ordner des Suchergebnisses mit VBA wechseln und ihn öffnen

Zum Ordner des Suchergebnisses mit einem Rechtsklick wechseln und ihn öffnen

---

Zum Ordner des Suchergebnisses mit VBA wechseln und ihn öffnen

In Outlook gibt es für diese Aufgabe keine integrierte Funktion – außer VBA-Code.

Bevor Sie den VBA-Code verwenden, stellen Sie sicher, dass die Spalte „Ordnername“ in den Suchergebnissen angezeigt wird.

1. Klicken Sie auf Ansicht > Mehrere Spalten hinzufügen.

2. Wählen Sie im Dialogfeld Spalten anzeigen und in der Dropdown-Liste unter Verfügbare Spalten auswählen aus die Option Alle E-Mail-Felder aus, und wählen Sie anschließend Im Ordner aus der Liste Verfügbare Spalten aus.

3. Klicken Sie auf Hinzufügen, um Im Ordner zur Liste Diese Spalten in dieser Reihenfolge anzeigen hinzuzufügen, und klicken Sie dann auf die Schaltfläche Nach oben, um Im Ordner an die oberste Position zu verschieben.

4. Klicken Sie auf OK, um das Dialogfeld zu schließen. Sobald Sie nun E-Mails suchen, wird die Spalte „Ordnername“ in den Suchergebnissen angezeigt.

5. Drücken Sie nun die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Klicken Sie dann auf Einfügen > Modul, um ein neues Modul zu erstellen.

6. Kopieren Sie den folgenden Code und fügen Sie ihn in das Modul ein.

VBA: Bestimmten Outlook-Ordner öffnen anhand eines Namens

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 Function

7. Drücken Sie die Taste F5, um den Code auszuführen. Geben Sie anschließend den gewünschten Ordnernamen in das Dialogfeld ein.

8. Klicken Sie auf OK. Es erscheint ein Dialogfeld, das Ihnen den Speicherort des Ordners anzeigt. Klicken Sie auf Ja, um direkt zum Ordner zu wechseln, oder auf Nein, um den Vorgang abzubrechen.

---

Zum Ordner des Suchergebnisses mit einem Rechtsklick wechseln und ihn öffnen

Wenn Sie Kutools für Outlook installiert haben, wird ein Dienstprogramm „Ordner öffnen“ in das Kontextmenü eingebettet, mit dem Sie schnell zum Ordner der ausgewählten E-Mail wechseln können – sogar in der Suchergebnisliste.

Installieren Sie kostenlosKutools für Outlook, und führen Sie anschließend die folgenden Schritte aus:

Klicken Sie nach der Suche mit der rechten Maustaste auf das Ergebnis, dessen Ordner Sie öffnen möchten, und wählen Sie im Kontextmenü In Ordner öffnen (Kutools) aus.