Hoe gaat en opent u snel de map van het zoekresultaat in Outlook?

In Outlook kunt u e-mails zoeken op basis van specifieke tekst met de zoekfunctie. Maar wanneer u zoekt via Alle Outlook-items, is het niet altijd eenvoudig om snel de map van het zoekresultaat te vinden. Gelukkig heb ik een paar handige trucs die u direct naar de bijbehorende map leiden en deze voor u openen.

Ga naar en open de map van het zoekresultaat met VBA

Ga naar en open de map van het zoekresultaat met een rechtermuisklik

---

Ga naar en open de map van het zoekresultaat met VBA

In Outlook ontbreekt een ingebouwde functie om deze taak uit te voeren – behalve via VBA-code.

Voordat u de VBA-code gebruikt, moet u ervoor zorgen dat de mapnaam wordt weergegeven in de zoekresultaten.

1. Klik op Beeld > Meerdere kolommen toevoegen.

2. Selecteer in het dialoogvenster Kolommen weergeven en kies in de keuzelijst onder Beschikbare kolommen selecteren uit de optie Alle e-mailvelden. Kies vervolgens In map in de lijst Beschikbare kolommen.

3. Klik op Toevoegen om In mappen toe te voegen aan de lijst Deze kolommen in deze volgorde weergeven. Klik daarna op de knop Omhoog verplaatsen om In map bovenaan te plaatsen.

4. Klik op OK om het dialoogvenster te sluiten. Tijdens het zoeken naar e-mails wordt de mapnaam voortaan weergegeven in de zoekresultaten.

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

6. Kopieer de onderstaande code en plak deze in de module.

VBA: Open de gespecificeerde Outlook-map op 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 uit te voeren. Voer in het dialoogvenster nu de mapnaam in waarnaar u wilt gaan.

8. Klik op OK. Er verschijnt een dialoogvenster dat u herinnert aan de locatie van de map. Klik op Ja om direct naar de map te gaan, of klik op Nee om af te breken.

---

Ga naar en open de map van het zoekresultaat met een rechtermuisklik

Als u Kutools voor Outlook hebt, is een handige 'Map openen'-functie ingesloten in het contextmenu, waarmee u direct naar de map van de geselecteerde e-mail kunt navigeren—zelfs vanuit de lijst met zoekresultaten.

Installeer gratisKutools voor Outlook en volg daarna de onderstaande stappen:

Na het zoeken klikt u met de rechtermuisknop op het resultaat waarvan u de map wilt openen en selecteert u Openen in map (Kutools) in het contextmenu.