Skip to main content

Hoe ga je snel naar en open je de map van het zoekresultaat in Outlook?

Author: Sun Last Modified: 2025-05-29

In Outlook kun je e-mails zoeken op basis van specifieke tekst met de zoekfunctie. Maar als je door alle Outlook-items zoekt, kun je niet snel de map van het zoekresultaat vinden. In dit geval heb ik hier een paar trucs die je kunnen helpen om snel naar de map van het zoekresultaat te gaan en deze te openen.

Ga naar en open de map van het zoekresultaat met VBA

Ga naar en open de map van het zoekresultaat met rechts klikken


Ga naar en open de map van het zoekresultaat met VBA

In Outlook is er geen ingebouwde functie die dit kan doen, behalve met VBA-code.

Voordat je de VBA-code gebruikt, moet je de mapnaam weergeven in de zoekresultaten.

1. Klik op Weergave > Kolommen toevoegen.

doc go to open folder of searching result 1

2. Selecteer in het Kolommen weergeven dialoogvenster en in de Beschikbare kolommen selecteren vervolgkeuzelijst, selecteer Alle e-mailvelden, en kies dan Map in de lijst met beschikbare kolommen.

doc go to open folder of searching result 2

3. Klik op Toevoegen om Mappen toe te voegen aan Toon deze kolommen in deze volgorde-lijst, en klik dan op de knop Omhoog verplaatsen om Map naar boven te verplaatsen.

doc go to open folder of searching result 3

4. Klik op OK om het dialoogvenster te sluiten. Nu wordt tijdens het zoeken van e-mails de mapnaam weergegeven in de zoekresultaten.

doc go to open folder of searching result 4

5. Druk nu op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen, klik op Invoegen > Module om een nieuwe module te maken.

6. Kopieer en plak onderstaande code in de module.

VBA: Ga naar map via een naam

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. Druk op F5 om de code te activeren, voer nu de mapnaam in waar je naartoe wilt gaan in het dialoogvenster.

doc go to open folder of searching result 5

8. Klik op OK, er verschijnt een dialoogvenster dat je eraan herinnert waar de map zich bevindt, klik op Ja om direct naar de map te gaan of klik op Nee om te annuleren.

doc go to open folder of searching result 6

Ga naar en open de map van het zoekresultaat met rechts klikken

Als je Kutools voor Outlook hebt, wordt een Open map-hulpprogramma ingebed in het rechtermuisknopmenu, waarmee je snel naar de map van de geselecteerde e-mail kunt gaan, zelfs in de zoekresultatenlijst.

 👉 Kutools voor Outlook heeft nu een gratis versie, waarvan de 70+ functies levenslang gratis zijn. Download nu de gratis versie.

Installeer Kutools voor Outlook gratis en volg vervolgens de onderstaande stappen:

Na het zoeken, klik met de rechtermuisknop op het resultaat waarvan je de map wilt openen, selecteer Openen in map (Kutools) in het contextmenu.

doc-click-open-folder

Beste productiviteitstools voor Office

Breaking News: Kutools voor Outlook lanceert gratis versie!

Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...

🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...

👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...

Ontgrendel direct Kutools voor Outlook met één klik. Wacht niet langer, download nu en verhoog je efficiëntie!

kutools for outlook features1 kutools for outlook features2