Hoe een map vinden op naam in Outlook?
Stel dat je veel e-mailmappen hebt aangemaakt in Outlook, en wanneer je een specifieke persoonlijke map moet openen, moet je meerdere mappen uitvouwen totdat die specifieke map verschijnt. Het is lastig om meerdere mappen één voor één uit te vouwen alleen om een specifieke persoonlijke map te openen. Eigenlijk, als je de mapnaam onthoudt, wordt alles veel gemakkelijker. In deze handleiding bieden we je een methode om een map te vinden op naam in Outlook, in plaats van mappen één voor één uit te vouwen om de map te vinden.
Map zoeken op naam in Outlook met VBA-code
Zoek map op naam over accounts heen in Outlook met Kutools voor Outlook
Map zoeken op naam in Outlook met VBA-code
Met de volgende VBA-code kun je eenvoudig een specifieke map vinden op naam.
Notitie: Je moet de mapnaam onthouden om deze VBA-code te kunnen gebruiken.
1. Druk op de toetsen Alt + F11 op het toetsenbord om het Microsoft Visual Basic for Applications-venster te openen.
2. Dubbelklik vervolgens op Project1 > Microsoft Outlook Object > ThisOutlookSession om het venster Project1 – ThisOutlookSession te openen. Zie screenshot:
3. Kopieer en plak de volgende VBA-code in het venster Project1 – ThisOutlookSession.
VBA: map zoeken op naam
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 vervolgens op de toets F5 op het toetsenbord om de VBA-code uit te voeren.
5. Klik in het dialoogvenster Macros op de knop Uitvoeren.
6. Typ in het pop-upvenster Zoeken naar Map de mapnaam in het tekstvak en klik vervolgens op de knop OK. Zie screenshot:
7. Er verschijnt een Microsoft Outlook-dialoogvenster waarin het pad naar de gewenste map wordt getoond. Klik vervolgens op de knop Ja.
8. De gespecificeerde e-mailmap wordt direct geopend.
Notitie: Deze VBA-code kan worden toegepast op Outlook 2007, 2010 en 2013.
Zoek map op naam over accounts heen in Outlook met Kutools voor Outlook
Als je niet goed bent in VBA, kun je proberen Kutools voor Outlook's Ga Naar-hulpprogramma, dat mappen kan vinden en zoeken op naam of specifiek teken, en vervolgens direct naar de map gaan.
Installeer Kutools voor Outlook gratis en volg vervolgens de 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, dan worden de relevante mappen weergegeven.
3. Dubbelklik op de mapnaam die je wilt openen, en de map wordt geopend.
Demo
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!
📧 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 ...
