Wie finde ich einen Ordner (vollständiger Ordnerpfad) anhand des Ordnernamens in Outlook?
Wenn Sie beispielsweise im Navigationsbereich einen Ordner verschieben und in Outlook versehentlich in einen unbekannten Ordner verschieben, möchten Sie diesen Ordner wiederherstellen, können ihn jedoch nicht sofort herausfinden. Leider unterstützt Outlook das nicht Finden Sie Funktion wie in Microsoft Word oder Excel. Keine Sorge! Sie können ein VBA-Makro anwenden, um dieses Problem in Outlook zu lösen.
- Suchen Sie den Ordner (vollständiger Ordnerpfad) anhand des Ordnernamens mit VBA
- Suchen Sie Ordner für Ordner mit einem erstaunlichen Tool
Schnelles Suchen und Öffnen von Ordnern nach Ordnernamen mit einem erstaunlichen Tool
Im Allgemeinen können wir Ordner nach Ordnernamen mit VBA-Code durchsuchen. Der meiste VBA-Code kann Ordner in der aktuellen Mailbox durchsuchen und nur den ersten gefundenen Ordner öffnen. Mit der Funktion "Gehe zu" von Kutools for Outlook können Sie Ordner auf einfache Weise anhand des Ordnernamens finden und alle gefundenen Ordner nach Bedarf öffnen.
Suchen Sie den Ordner (vollständiger Ordnerpfad) anhand des Ordnernamens mit VBA
Führen Sie die folgenden Schritte aus, um mit VBA in Outlook nach Ordnern nach Ordnernamen zu suchen.
1. Drücken Sie Andere + F11 Tasten zusammen, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.
VBA: Suchen und öffnen Sie Ordner nach Ordnernamen in Outlook
Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean
Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True
Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders
Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False
sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName
m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))
Set oFolders = Application.Session.Folders
LoopFolders oFolders
If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub
Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean
If SpeedUp = False Then DoEvents
For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If
If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub
3. Drücken Sie F5 Taste oder klicken Sie auf Führen Sie Schaltfläche, um diese VBA auszuführen.
4. Geben Sie im Dialogfeld Suchordner den angegebenen Ordnernamen ein, nach dem Sie suchen möchten, und klicken Sie auf OK Taste. Siehe Screenshot:
Note: Dieser VBA unterstützt Sternchen-Platzhalter. Zum Beispiel können Sie eingeben tes * um alle Ordner herauszufinden, deren Name mit beginnt TES.
5. Nun erscheint ein Dialogfeld, in dem der Ordnerpfad des gefundenen Ordners angezeigt wird. Wenn Sie den gefundenen Ordner öffnen müssen, klicken Sie bitte auf Ja .
Und jetzt wird der gefundene Ordner im Navigationsbereich geöffnet, wie im folgenden Screenshot gezeigt:
Note: Wenn mehr als ein Ordner mit dem angegebenen Namen benannt ist, kann dieser VBA nur einen Ordner finden und öffnen.
Suchen Sie Ordner für Ordner mit einem erstaunlichen Tool
Wenn Sie Kutools for Outlook installiert haben, können Sie die Funktion "Gehe zu" anwenden, um schnell alle Ordner anhand eines bestimmten Ordnernamens zu ermitteln und alle gefundenen Ordner einfach zu öffnen.
Kutools for Outlook: Optimieren Sie Outlook mit über 100 unverzichtbaren Tools. Testen Sie es 60 Tage lang KOSTENLOS und unverbindlich! Lesen Sie mehr... Jetzt herunterladen!
1. Klicken Sie Kutoolen Plus > Gehe zu , um diese Funktion zu aktivieren.
2. Geben Sie im Dialogfeld Gehe zu den angegebenen Ordnernamen in das Feld ein Suche Wählen Sie in den Suchergebnissen einen Ordner aus und klicken Sie auf Ok .
Nun wird der angegebene Ordner mit dem bestimmten Ordnernamen gefunden und sofort geöffnet.
In Verbindung stehende Artikel:
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.