Gå til hovedindhold

Hvordan finder jeg en mappe efter navn i Outlook?

For eksempel har du oprettet mange e-mail-mapper i Outlook, når en bestemt personlig mappe skal åbnes, skal du udvide flere mapper, indtil den angivne mappe vises. Det er besværligt at udvide flere mapper en efter en bare for at åbne en bestemt personlig mappe. Faktisk, hvis du husker mappenavnet, bliver alle ting let. I denne vejledning giver vi dig en metode til at finde mappe efter dens navn i Outlook i stedet for at udvide mapper en efter en for at finde mappen.

Find mappe efter navn i Outlook med VBA-kode

Søg efter mappe efter navn på tværs af konti i Outlook af Kutools for Outlookgod idé3


pil blå højre boble Find mappe efter navn i Outlook med VBA-kode

Med følgende VBA-kode kan du nemt finde en bestemt mappe ved dens navn.

Bemærk: Du skal huske mappenavnet for at kunne bruge denne VBA-kode.

1. Tryk på andre + F11 taster på tastaturet for at åbne Microsoft Visual Basic til applikationer vindue.

2. Dobbeltklik derefter på Project1 > Microsoft Outlook-objekt > Denne OutlookSession at åbne Project1 - ThisOutlookSession vindue. Se skærmbillede:

3. Kopier og indsæt følgende VBA-kode i vinduet Project1 - ThisOutlookSession.

VBA: find mappe efter navn

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. Tryk derefter på F5 tasten på tastaturet for at køre VBA-koden.

5. i Makroer dialogboksen, skal du klikke på knappen Kør .

6. I popping up Søg mappe i dialogboksen, skriv venligst mappenavnet i tekstboksen, og klik derefter på OK knap. Se skærmbillede:

7. Derefter a Microsoft Outlook dialogboksen vises, den viser stien til den ønskede mappe, og klik derefter på Ja .

8. Derefter åbnes den angivne e-mail-mappe med det samme.

Bemærk: Denne VBA-kode kan anvendes på Outlook 2007, 2010 og 2013.


pil blå højre boble Søg efter mappe efter navn på tværs af konti i Outlook af Kutools for Outlook

Hvis du ikke er god til VBA, kan du prøve Kutools til Outlook's gå til værktøj, som kan finde og søge i mapper med navn eller specifikt tegn, og gå derefter direkte til mappen

Kutools for Outlook , Indeholder kraftfulde funktioner og værktøjer til Microsoft Outlook 2016, 2013, 2010 og Office 365.

Gratis installation Kutools til Outlook, og gør derefter som nedenstående trin:

1. klik Kutools Plus > gå til.
doc find mappe ved navn 5

2. i gå til dialog, skal du skrive mappenavnet eller bestemte tegn i søgefeltet, hvorefter de relative mapper er en liste.
doc find mappe ved navn 6

3. Dobbeltklik på det mappenavn, du vil gå til og åbne, så er mappen åben.
doc find mappe ved navn 7


Bedste kontorproduktivitetsværktøjer

Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook

🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...

📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP)  /  Planlæg Send e-mails  /  Auto CC/BCC efter regler ved afsendelse af e-mail  /  Automatisk videresendelse (avancerede regler)   /  Tilføj automatisk hilsen   /  Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...

📨 Email Management: Genkald nemt e-mails  /  Bloker svindel-e-mails af emner og andre  /  Slet duplikerede e-mails  /  Avanceret søgning  /  Konsolider mapper ...

📁 Vedhæftede filer ProBatch Gem  /  Batch adskilles  /  Batch komprimere  /  Automatisk gem   /  Automatisk afmontering  /  Automatisk komprimering ...

🌟 Interface Magic: 😊 Flere smukke og seje emojis   /  Boost din Outlook-produktivitet med fanebaserede visninger  /  Minimer Outlook i stedet for at lukke ...

👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer  /   Anti-phishing e-mails  /  🕘Vis afsenderens tidszone ...

👩🏼‍🤝‍👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails  /  Opdel en kontaktgruppe til individuelle grupper  /  Fjern fødselsdagspåmindelser ...

Over 100 Features Afvent din udforskning! Klik her for at finde mere.

Læs mere       Gratis download      Køb
 

 

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, 6 years later but have same issues as raised by the others. I once had this code but sadly lost it. Any ideas (i will try AI)
This comment was minimized by the moderator on the site
It looks great but I'm looking more folder with similar name....
This comment was minimized by the moderator on the site
I am currently working with Outlook 2013, and while this tool is wonderfully helpful, I'm in the same boat as Matt and Richard. I would like to be able to somehow go through multiple folders with the same name. I would also like to be able to do this: if I have multiple folders with dates, 2012,2013,2014 for example, I would like to be able to put in 20* or 20?? and then be prompted to view any of the aforementioned folders, instead of just defaulting to the first one it finds.
This comment was minimized by the moderator on the site
The line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a compile error message - User-defined type not defined
This comment was minimized by the moderator on the site
the line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a Compile error message: User-defined type not defined
This comment was minimized by the moderator on the site
Just like Matt wrote, I was also looking for this. The way the code operates is that it will open the first folder it finds with the name to search for. Is it possible to adjust the code so it will find multiple instances?
This comment was minimized by the moderator on the site
Is there a way to add folder iteration to the above code. Say the user has multiple folders named Employee, is it possible for it to go through a loop to find all instances and allow user to select appropriate folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations