Hoe vindt u een map op naam in Outlook?

Stel dat u veel e-mailmappen hebt aangemaakt in Outlook. Wanneer u een specifieke persoonlijke map wilt openen, moet u telkens meerdere mappen uitvouwen totdat die ene map zichtbaar wordt — een tijdrovend en vervelend karwei. Gelukkig is er een veel eenvoudigere oplossing: als u de mapnaam kent, kunt u die map direct vinden zonder al die mappen handmatig uit te klappen. In deze handleiding tonen we u hoe u in Outlook razendsnel een map op naam lokaliseert, in plaats van één voor één mappen te doorzoeken.

Map op naam zoeken in Outlook met VBA-code

Zoek map op naam over accounts heen in Outlook met Kutools voor Outlook

---

Map op naam zoeken in Outlook met VBA-code

Met de volgende VBA-code vindt u eenvoudig een specifieke map op naam.

Opmerking: U moet de mapnaam kennen om deze VBA-code te kunnen gebruiken.

1. Druk op het toetsenbord op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik vervolgens op Project1 > Microsoft Outlook-object > ThisOutlookSession om het venster Project1 – ThisOutlookSession te openen. Zie schermafbeelding:

3. Kopieer en plak de volgende VBA-code in het venster Project1 – ThisOutlookSession.

VBA: map op naam zoeken

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. Druk daarna op het toetsenbord op F5 om de VBA-code uit te voeren.

5. Klik in het dialoogvenster Macro's op de knop Uitvoeren.

6. Typ in het verschijnende dialoogvenster Map zoeken de mapnaam in het tekstvak en klik vervolgens op de knop OK. Zie schermafbeelding:

7. Er verschijnt dan een dialoogvenster Microsoft Outlook, waarin het pad naar uw gewenste map wordt weergegeven. Klik daarna op de knop Ja.

8. De opgegeven e-mailmap wordt vervolgens direct geopend.

Opmerking: Deze VBA-code werkt in Outlook 2007, 2010 en 2013.

---

Zoek map op naam over accounts heen in Outlook met Kutools voor Outlook

Bent u niet zo thuis in VBA? Probeer dan de Kutools voor Outlook-functie Ga naar! Hiermee zoekt u een map op naam of op specifieke tekens en gaat u er direct naartoe.

Installeer gratisKutools voor Outlook en volg daarna onderstaande stappen:

1. Klik op KUTOOLS PLUS > Map > Ga naar.

2. Typ in het dialoogvenster Ga naar de mapnaam of specifieke tekens in de zoekbalk. De bijbehorende mappen worden dan weergegeven.

3. Dubbelklik op de mapnaam die u wilt openen – de map wordt dan direct geopend.

  Demo