Wie gehe ich schnell zum Ordner mit den Suchergebnissen in Outlook und öffne ihn?

In Outlook können Sie mit der Suchfunktion E-Mails basierend auf dem spezifischen Text suchen. Wenn Sie jedoch alle Outlook-Elemente durchsuchen, können Sie den Ordner des Suchergebnisses nicht schnell herausfinden. In diesem Fall habe ich hier einige Tricks, mit denen Sie schnell zum Ordner des Suchergebnisses gehen und diesen öffnen können.

Gehen Sie zu und öffnen Sie den Ordner mit den Suchergebnissen mit VBA

Gehen Sie zum Ordner mit den Suchergebnissen und öffnen Sie ihn mit einem Rechtsklick

Gehen Sie zu und öffnen Sie den Ordner mit den Suchergebnissen mit VBA

In Outlook gibt es keine integrierte Funktion, die diesen Job verarbeiten kann, außer VBA-Code.

Bevor Sie den VBA-Code verwenden können, müssen Sie den Ordnernamen in den gesuchten Ergebnissen anzeigen.

1 Klicken Schauen Sie sich an > Spalten hinzufügen.

2. In dem Spalten anzeigen Dialog und in Wählen Sie verfügbare Spalten aus Dropdown-Liste, wählen Sie Alle Mailfelder, Dann wählen Im Ordner der Verfügbare Spalten Liste.

3 Klicken Verwenden Sie hinzufügen In Ordnern zu Zeigen Sie diese Spalten in dieser Reihenfolge an Liste, dann klicken Sie auf Nach oben bewegen Taste zum Bewegen Im Ordner zu die Spitze.

4 Klicken OK Dialog schließen. Während Sie jetzt nach E-Mails suchen, wird der Ordnername in den Suchergebnissen angezeigt.

5. Drücken Sie nun Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul um ein neues Modul zu erstellen.

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

VBA: Gehen Sie mit einem Namen zum Ordner

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 F5 Geben Sie zum Aktivieren des Codes den Ordnernamen ein, zu dem Sie in den Dialog wechseln möchten.

8 Klicken OKKlicken Sie auf, um ein Dialogfeld anzuzeigen, in dem Sie an den Speicherort des Ordners erinnert werden Ja um direkt zum Ordner zu gelangen, oder klicken Sie auf Nein abbrechen.

Gehen Sie zum Ordner mit den Suchergebnissen und öffnen Sie ihn mit einem Rechtsklick

Wenn Sie Kutools for Outlookwird es eine geben Ordner öffnen Dienstprogramm in das Kontextmenü einbetten, das schnell zum Ordner der ausgewählten E-Mail wechseln kann.

Kostenlose Installation Kutools für Outlook, und führen Sie dann 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 Ordner öffnen in dem Kontextmenü.

---

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.

Lesen Sie mehr... Jetzt downloaden...