Hoe een map (volledig mappad) zoeken op mapnaam in Outlook?

Volg de volgende stappen om mappen te zoeken op mapnamen met VBA in Outlook.

1. Druk tegelijkertijd op de toetsen "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik op "Invoegen" > "Module", en plak vervolgens de volgende VBA-code in het nieuwe modulevenster.

VBA: Zoek en open mappen op mapnaam 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. Druk op de toets "F5" of klik op de knop "Uitvoeren" om deze VBA uit te voeren.

4. Voer in het pop-upvenster "Map zoeken" de naam van de map in waarop je wilt zoeken en klik op de knop "OK".

Opmerking: Deze VBA ondersteunt het jokerteken asterisk (*). Bijvoorbeeld, je kunt tes* invoeren om alle mappen te vinden waarvan de naam begint met tes.

5. Er verschijnt nu een dialoogvenster dat het mappad van de gevonden map weergeeft. Als je de gevonden map wilt openen, klik dan op de knop "Ja".

En zoals in de onderstaande schermafbeelding te zien is, wordt de gevonden map nu geopend op het navigatievenster.

Opmerking: Als er meer dan één map is met de opgegeven naam, kan deze VBA slechts één map vinden en openen.

Als je "Kutools voor Outlook" hebt geïnstalleerd, kun je de functie "Open map" gebruiken om snel alle mappen te vinden op basis van een bepaalde mapnaam en ook gemakkelijk elke gevonden map openen.

1. Klik op "Kutools Plus" > "Open map" om deze functie te activeren.

2. Typ in het venster "Open map" de opgegeven mapnaam in het zoekvak, selecteer een map in de zoekresultaten en klik op de knop "OK".

Nu wordt de opgegeven map met de bijbehorende mapnaam onmiddellijk gevonden en geopend.