Zoek en open snel mappen op mapnaam met een geweldige tool

Over het algemeen kunnen we mappen zoeken op mapnaam met VBA-code. De meeste VBA-code kan mappen in de huidige mailbox doorzoeken en alleen de eerst gevonden map openen. Nu met de Ga naar-functie van Kutools voor Outlook, kunt u gemakkelijk mappen op mapnaam vinden en alle gevonden mappen openen als u nodig hebt.

Volg onderstaande stappen om mappen op mapnaam te zoeken met VBA in Outlook.

1. pers anders + F11 toetsen samen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Moduleen plak vervolgens onder 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. pers F5 toets of klik op de lopen knop om deze VBA uit te voeren.

4. Typ in het dialoogvenster Map zoeken de opgegeven mapnaam waarnaar u wilt zoeken en klik op de OK knop. Zie screenshot:

Note: Deze VBA ondersteunt een asterisk-jokerteken. U kunt bijvoorbeeld typen tes * om alle mappen te zien waarvan de naam begint met tes.

5. Nu verschijnt er een dialoogvenster met het mappad van de gevonden map. Als u de gevonden map wilt openen, klikt u op de Ja knop.

En nu wordt de gevonden map geopend in het navigatiedeelvenster zoals onderstaand screenshot:

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

Als je Kutools voor Outlook hebt geïnstalleerd, kun je het toepassen Ga naar functie om snel alle mappen op een bepaalde mapnaam te vinden en gemakkelijk ook alle gevonden mappen te openen.

1. Klikken Koetools Plus > gaan naar om deze functie in te schakelen.

2. Typ in het dialoogvenster Ga naar de opgegeven mapnaam in het Ontdek selecteer een map in de zoekresultaten en klik op het Ok knop.

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