Hur hittar jag mapp (fullständig mappsökväg) efter mappnamn i Outlook?
Till exempel, i navigeringsfönstret flyttar du en mapp och släpper till en okänd mapp av misstag i Outlook, du vill återställa den här mappen men kan inte ta reda på den omedelbart. Tyvärr stöder Outlook inte hitta har samma som i Microsoft Word eller Excel. Oroa dig inte! Du kan använda ett VBA-makro för att lösa detta problem i Outlook.
- Hitta mapp (fullständig mappsökväg) efter mappnamn med VBA
- Sök mapp efter mappnamn med ett fantastiskt verktyg
Sök snabbt och öppna mappar efter mappnamn med ett fantastiskt verktyg
I allmänhet kan vi söka i mappar efter mappnamn med VBA-kod. De flesta VBA-koder kan söka i mappar i den aktuella brevlådan och endast öppna den första hittade mappen. Nu med Gå till-funktionen i Kutools för Outlook kan du enkelt hitta mappar efter mappnamn och öppna någon av de hittade mapparna efter behov.
Hitta mapp (fullständig mappsökväg) efter mappnamn med VBA
Följ stegen nedan för att söka efter mappar efter mappnamn med VBA i Outlook.
1. Tryck andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.
2. Klicka Insert > Modulernaoch klistra sedan in under VBA-koden i det nya modulfönstret.
VBA: Sök och öppna mappar efter mappnamn i 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. Tryck F5 eller klicka på Körning för att köra denna VBA.
4. I dialogrutan Sökmapp dyker upp, skriv det angivna mappnamnet du söker efter och klicka på OK knapp. Se skärmdump:
Anmärkningar: Denna VBA stöder asterisk jokertecken. Du kan till exempel skriva tes * för att ta reda på alla mappar vars namn börjar med tes.
5. Nu kommer en dialogruta ut och visar mappvägen för den hittade mappen. Om du behöver öppna den hittade mappen, klicka på Ja knapp.
Och nu öppnas den hittade mappen i navigeringsfönstret enligt nedanstående skärmdump:
Anmärkningar: Om det finns mer än en mapp med namnet, kan denna VBA bara hitta och öppna en mapp.
Sök mapp efter mappnamn med ett fantastiskt verktyg
Om du har Kutools för Outlook installerat kan du använda dess Gå till-funktion för att snabbt ta reda på alla mappar med ett visst mappnamn och enkelt också öppna alla mappar som hittats.
Kutools för Outlook: Supercharge Outlook med över 100 måste-ha verktyg. Provkör den GRATIS i 60 dagar, utan begränsningar! Läs mer... Ladda ner nu!
1. Klicka Kutools Plus > gå till för att aktivera den här funktionen.
2. Skriv det angivna mappnamnet i dialogrutan Gå till Sök välj en mapp i sökresultaten och klicka på Ok knapp.
Nu hittas den angivna mappen med det specifika mappnamnet och öppnas omedelbart.
Relaterade artiklar:
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.