Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe vind ik een map (volledig mappad) op mapnaam in Outlook?

In het navigatievenster verplaatst u bijvoorbeeld een map en gaat u per ongeluk naar een onbekende map in Outlook, u wilt deze map herstellen, maar u kunt deze niet onmiddellijk vinden. Helaas ondersteunt Outlook het Vind functie hetzelfde als die in Microsoft Word of Excel. Maak je geen zorgen! U kunt een VBA-macro toepassen om dit probleem in Outlook op te lossen.

Zoek en open snel mappen op mapnaam met een geweldige tool

Over het algemeen kunnen we mappen zoeken op mapnaam met VBA-code. De meeste VBA-code kan mappen in de huidige mailbox doorzoeken en alleen de eerst gevonden map openen. Nu met de Ga naar-functie van Kutools voor Outlook, kunt u gemakkelijk mappen op mapnaam vinden en alle gevonden mappen openen als u nodig hebt. Klik voor een gratis proefperiode van 60 dagen zonder beperking!


Zoek map (volledig mappad) op mapnaam met VBA

Volg onderstaande stappen om mappen op mapnaam te zoeken met VBA in Outlook.

1. pers anders + F11 toetsen samen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe modulevenster.

VBA: zoek en open mappen op mapnaam in Outlook

Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean

Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True

Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders

  Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False

  sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName

  m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))

  Set oFolders = Application.Session.Folders
LoopFolders oFolders

  If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean

If SpeedUp = False Then DoEvents

  For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If

    If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub

3. pers F5 toets of klik op de lopen knop om deze VBA uit te voeren.

4. Typ in het dialoogvenster Map zoeken de opgegeven mapnaam waarnaar u wilt zoeken en klik op de OK knop. Zie screenshot:

Opmerking:: Deze VBA ondersteunt een asterisk-jokerteken. U kunt bijvoorbeeld typen tes * om alle mappen te zien waarvan de naam begint met tes.

5. Nu verschijnt er een dialoogvenster met het mappad van de gevonden map. Als u de gevonden map wilt openen, klikt u op de Ja knop.

En nu wordt de gevonden map geopend in het navigatiedeelvenster zoals onderstaand screenshot:

Opmerking:: Als er meer dan één map is met de opgegeven naam, kan deze VBA slechts één map zoeken en openen.


Zoek map op mapnaam door een geweldige tool

Als je Kutools voor Outlook hebt geïnstalleerd, kun je het toepassen Ga naar functie om snel alle mappen op een bepaalde mapnaam te vinden en gemakkelijk ook alle gevonden mappen te openen.

Kutools for Outlook: Voeg meer dan 100 handige tools voor Outlook toe, gratis te proberen zonder beperking in 60 dagen. Lees meer      Gratis proef nu

1. Klikken Kutools Plus > gaan naar om deze functie in te schakelen.

2. Typ in het dialoogvenster Ga naar de opgegeven mapnaam in het Zoeken selecteer een map in de zoekresultaten en klik op het Ok knop.

Nu wordt de opgegeven map met de bepaalde mapnaam gevonden en onmiddellijk geopend.


Gerelateerde artikelen:


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    angasomangas@gmail.com · 8 months ago
    This macro has really helped me is incredible, thank you!!!

    Is it possible to to go to the next occurrence, so instead of just Yes/No have something as Yes/Next/No ?

    Thank you
    • To post as a guest, your comment is unpublished.
      GanKapil · 8 months ago
      Private m_Folder As MAPIFolder
      Private m_Find As String
      Private m_Wildcard As Boolean

      Private Const SpeedUp As Boolean = True
      'Private Const StopAtFirstMatch As Boolean = True
      Private StopAtFirstMatch As Boolean

      Public Sub FindFolder()
      Dim sName As String
      Dim oFolders As Folders

      Set m_Folder = Nothing
      m_Find = ""
      m_Wildcard = False

      sName = InputBox("Find:", "Search folder")
      If Len(Trim(sName)) = 0 Then Exit Sub

      'm_Find = sName
      ' Added "*"... for any given string in the folder name
      m_Find = "*" & sName & "*"

      m_Find = LCase(m_Find)
      m_Find = Replace(m_Find, "%", "*")
      m_Wildcard = (InStr(m_Find, "*"))

      ' Set oFolders = Application.Session.Folders
      Set oFolders = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders

      LoopFolders oFolders

      If Not m_Folder Is Nothing Then
      ' Removed - If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = m_Folder
      Else
      MsgBox "Search End...", vbInformation
      End If
      End Sub

      Private Sub LoopFolders(Folders As Outlook.Folders)
      Dim oFolder As MAPIFolder
      Dim bFound As Boolean

      If SpeedUp = False Then DoEvents

      For Each oFolder In Folders
      If m_Wildcard Then
      bFound = (LCase(oFolder.Name) Like m_Find)
      Else
      bFound = (LCase(oFolder.Name) = m_Find)
      End If


      If bFound Then
      If StopAtFirstMatch = False Then
      Set Application.ActiveExplorer.CurrentFolder = oFolder

      If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Search for next?", vbQuestion Or vbYesNo) = vbYes Then
      bFound = False
      End If
      Else
      MsgBox ("Not found")
      End If
      End If
      If bFound Then
      Set m_Folder = oFolder
      Exit For
      Else
      LoopFolders oFolder.Folders
      If Not m_Folder Is Nothing Then Exit For
      End If
      Next
      End Sub




      • To post as a guest, your comment is unpublished.
        Francesco · 19 days ago
        Hi, if i try to copy and past the macro yes/next/no, I only received the message "Search End".
        Could you take a look? I would really appreciate it. Thanks
      • To post as a guest, your comment is unpublished.
        Francesco · 19 days ago
        Hi, if i try to copy and past the macro yes/next/no, I only received the message "Search End".
        Could you take a look? I would really appreciate it. Thanks
      • To post as a guest, your comment is unpublished.
        angasomangas@gmail.com · 8 months ago
        Wow this is exactly. I really appreciate it and you did it so fast.Thanks
  • To post as a guest, your comment is unpublished.
    Gabe Btg · 1 years ago
    Hello,

    Thank you for this macro. It works great!


    Is there a way to make the macro always search as wildcards? I would be easier to just type a keyword without adding the asterisks every time.
    • To post as a guest, your comment is unpublished.
      GanKapil · 1 years ago

      Replace Line 18 with

      m_Find = "*" & sName & "*"
    • To post as a guest, your comment is unpublished.
      Gan Kapilavayi · 1 years ago
      Replace Line 18 with
      m_Find = "*" & sName & "*"
  • To post as a guest, your comment is unpublished.
    RapF · 2 years ago
    Hello.

    Wow - this is an amazing function, which will make my daily usage of Outlook tons faster.
    Thank you so much for publishing!!

    A tip for those interested:
    If you want to search only INBOX-folders, without public folders etc.
    This made it a lot faster for me because the public folder are remote, so the search is quite slow.
    And also I'm not interested in those results.


    Replace line 24 with:

    Set oFolders = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders