Hoe vind ik map op naam in Outlook?
U hebt bijvoorbeeld veel e-mailmappen gemaakt in Outlook, wanneer een opgegeven persoonlijke map moet worden geopend, moet u meerdere mappen uitvouwen totdat die opgegeven map wordt weergegeven. Het is lastig om meerdere mappen een voor een uit te vouwen, alleen al om een bepaalde persoonlijke map te openen. Als u de mapnaam onthoudt, worden alle dingen eigenlijk gemakkelijk. In deze zelfstudie bieden we u een methode om de map op naam te zoeken in Outlook in plaats van de mappen een voor een uit te vouwen om de map te vinden.
Zoek map op naam in Outlook met VBA-code
Zoek map op naam in accounts in Outlook door Kutools voor Outlook
Zoek map op naam in Outlook met VBA-code
Met de volgende VBA-code kunt u eenvoudig een opgegeven map op naam vinden.
Note: U moet de mapnaam onthouden om deze VBA-code te gebruiken.
1. druk de anders + F11 toetsen op het toetsenbord om de. te openen Microsoft Visual Basic voor toepassingen venster.
2. Dubbelklik vervolgens op het Project1 > Microsoft Outlook-object > DezeOutlookSessie om de te openen Project1 - ThisOutlookSession venster. Zie screenshot:
3. Kopieer en plak de volgende VBA-code in het venster Project1 - ThisOutlookSession.
VBA: zoek map 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 F5 toets op het toetsenbord om de VBA-code uit te voeren.
5. In de Macro's dialoogvenster, klik op de lopen knop.
6. In het opduiken Zoekmap dialoogvenster, typ de mapnaam in het tekstvak en klik vervolgens op het OK knop. Zie screenshot:
7. Vervolgens een Microsoft Outlook dialoogvenster verschijnt, het toont het pad van de gewenste map en klik vervolgens op het Ja knop.
8. Vervolgens wordt de opgegeven e-mailmap onmiddellijk geopend.
Note: Deze VBA-code kan worden toegepast op Outlook 2007, 2010 en 2013.
Zoek map op naam in accounts in Outlook door Kutools voor Outlook
Als je niet goed bent in VBA, kun je het proberen Kutools for Outlook's gaan naar hulpprogramma, dat een map met naam of specifiek teken kan vinden en doorzoeken, en ga vervolgens rechtstreeks naar de map
Kutools for Outlook , Inclusief krachtige functies en tools voor Microsoft Outlook 2016, 2013, 2010 en Office 365. |
||
Gratis installatie Kutools voor Outlook en voer de onderstaande stappen uit:
1. klikken Koetools Plus > gaan naar.
2. In de gaan naar dialoogvenster, typ de mapnaam of specifieke tekens in de zoekbalk, dan zijn de relatieve mappen een lijst.
3. Dubbelklik op de mapnaam waar u naar toe wilt en open, de map is geopend.
Demo
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.