Wie findet man in Outlook einen Ordner anhand seines Namens?

Angenommen, Sie haben in Outlook zahlreiche E-Mail-Ordner erstellt. Um einen bestimmten persönlichen Ordner zu öffnen, müssen Sie nacheinander mehrere übergeordnete Ordner erweitern, bis der gewünschte Ordner sichtbar wird – ein zeitaufwändiger Prozess. Doch sobald Sie sich den Ordnernamen merken, wird alles viel einfacher. In diesem Tutorial zeigen wir Ihnen eine Methode, mit der Sie einen Ordner in Outlook direkt anhand seines Namens finden können – ohne mühsames, schrittweises Erweitern der Ordnerstruktur.

Ordner anhand des Namens in Outlook mithilfe von VBA-Code finden

Ordner anhand des Namens kontoübergreifend in Outlook suchen mit Kutools für Outlook

---

Ordner anhand des Namens in Outlook mithilfe von VBA-Code finden

Mit dem folgenden VBA-Code finden Sie mühelos einen bestimmten Ordner anhand seines Namens.

Hinweis: Merken Sie sich den Ordnernamen, um diesen VBA-Code nutzen zu können.

1. Drücken Sie auf Ihrer Tastatur die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Doppelklicken Sie anschließend auf Projekt1 > Microsoft Outlook-Objekte > ThisOutlookSession, um das Fenster Projekt1 – ThisOutlookSession zu öffnen. Siehe Screenshot:

3. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster „Projekt1 – ThisOutlookSession“ ein.

VBA: Ordner anhand des Namens finden

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. Drücken Sie anschließend die Taste F5 auf Ihrer Tastatur, um den VBA-Code auszuführen.

5. Klicken Sie im Dialogfeld Makros auf die Schaltfläche Ausführen.

6. Geben Sie im erscheinenden Dialogfeld Ordner suchen den Ordnernamen in das Textfeld ein und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:

7. Anschließend erscheint ein Dialogfeld von Microsoft Outlook, das den Pfad Ihres gewünschten Ordners anzeigt. Klicken Sie dann auf die Schaltfläche Ja.

8. Der angegebene E-Mail-Ordner wird anschließend sofort geöffnet.

Hinweis: Dieser VBA-Code funktioniert in Outlook 2007, 2010 und 2013.

---

Ordner anhand des Namens kontoübergreifend in Outlook suchen mit Kutools für Outlook

Falls Sie nicht mit VBA vertraut sind, können Sie das Hilfsprogramm Kutools für Outlook„Gehe zu“verwenden, mit dem Sie Ordner anhand ihres Namens oder bestimmter Zeichen suchen und direkt öffnen können. utility, which can find and search folder with name or specific character, then directly go to the folder

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

1. Klicken Sie auf KUTOOLS PLUS > Ordner > Gehe zu.

2. Geben Sie im Dialogfeld Gehe zu den Ordnernamen oder bestimmte Zeichen in die Suchleiste ein – daraufhin werden die entsprechenden Ordner aufgelistet.

3. Doppelklicken Sie auf den gewünschten Ordnernamen, um ihn zu öffnen – der Ordner wird dann geöffnet.

  Demo