Hur hittar jag mapp efter namn i Outlook?

Författare: Siluvia Senast ändrad: 2024-12-17

Till exempel har du skapat många e-postmappar i Outlook, när en viss personlig mapp måste öppnas måste du expandera flera mappar tills den angivna mappen visas. Det är besvärligt att utöka flera mappar en efter en bara för att öppna en viss personlig mapp. Egentligen, om du kommer ihåg mappnamnet, blir allt enkelt. I den här handledningen ger vi dig en metod för att hitta mapp med dess namn i Outlook istället för att expandera mappar en efter en för att hitta mappen.

Hitta mapp efter namn i Outlook med VBA-kod

Sök mapp efter namn över konton i Outlook av Kutools for Outlook

Hitta mapp efter namn i Outlook med VBA-kod

Med följande VBA-kod kan du enkelt hitta en viss mapp med dess namn.

Anmärkningar: Du måste komma ihåg mappnamnet för att kunna använda denna VBA-kod.

1. tryck på andra + F11 tangenter på tangentbordet för att öppna Microsoft Visual Basic för applikationer fönster.

2. Dubbelklicka sedan på Project1 > Microsoft Outlook-objekt > ThisOutlookSession att öppna Project1 - ThisOutlookSession fönster. Se skärmdump:

skärmdumpen av steg om att hitta mapp efter namn i Outlook med VBA-kod

3. Kopiera och klistra in följande VBA-kod i Project1 - ThisOutlookSession-fönstret.

VBA: hitta mapp efter namn

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. Tryck sedan på F5 på tangentbordet för att köra VBA-koden.

5. I Makron dialogrutan, klicka på Körning knapp.

skärmdumpen av steg 2 om att hitta mapp efter namn i Outlook med VBA-kod

6. I pop-up Sökmapp dialogrutan, skriv mappnamnet i textrutan och klicka sedan på OK knapp. Se skärmdump:

skärmdumpen av steg 3 om att hitta mapp efter namn i Outlook med VBA-kod

7. Sedan a Microsoft Outlook dialogrutan dyker upp, den visar sökvägen till önskad mapp och klicka sedan på Ja knapp.

skärmdumpen av steg 4 om att hitta mapp efter namn i Outlook med VBA-kod

8. Då öppnas den angivna e-postmappen omedelbart.

Anmärkningar: Den här VBA-koden kan tillämpas på Outlook 2007, 2010 och 2013.

Sök mapp efter namn över konton i Outlook av Kutools for Outlook

Om du inte är bra på VBA kan du försöka Kutools för Outlook's gå till verktyget, som kan hitta och söka i mapp med namn eller specifikt tecken, gå sedan direkt till mappen

👉 Kutools for Outlook har en gratisversion nu, vars 70+ funktioner är gratis under en livstid. Ladda ner gratisversionen nu.

Gratis installation Kutools för Outlook och gör sedan nedanstående steg:

1. klick Kutools Plus > mapp > gå till.