Hur går jag snabbt till och öppnar mappen med sökresultat i Outlook?
I Outlook kan du söka på e-postmeddelanden baserat på den specifika texten med sökfunktionen. Men om du söker igenom alla Outlook-objekt kan du inte snabbt ta reda på mappen med sökresultatet. I det här fallet har jag här några knep som kan hjälpa dig att snabbt gå till och öppna mappen med sökresultatet.
Gå till och öppna mappen med sökresultat med VBA
Gå till och öppna mappen med sökresultat med högerklicka
Gå till och öppna mappen med sökresultat med VBA
I Outlook finns det ingen inbyggd funktion som kan hantera detta jobb, förutom VBA-kod.
Innan du använder VBA-koden måste du visa mappnamnet i de sökta resultaten.
1. klick Visa > Lägg kolumner.
2. I Visa kolumner dialog och in Välj tillgängliga kolumner från rullgardinsmenyn, välj Alla e-postfältOch välj sedan I mapp i Tillgängliga kolumner lista.
3. klick Lägg till att lägga I mappar till Visa dessa kolumner i den här ordningen och klicka sedan på Flytta upp knappen för att flytta I mapp till toppen.
4. klick OK för att stänga dialogen. Medan du söker efter e-post visas mappnamnet i sökresultaten.
5. Tryck nu på Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna för att skapa en ny modul.
6. Kopiera och klistra in koden nedan i modulen.
VBA: Gå till mappen med ett namn
Sub FindFolderByName()
'UpdatebyExtendoffice20181105
Dim xFldName As String
Dim xFoundFolder As Folder
Dim xYesNo As Integer
On Error Resume Next
xFldName = InputBox("Folder Name:", "Kutools for Outlook")
If Len(Trim(xFldName)) = 0 Then Exit Sub
Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
If xFoundFolder Is Nothing Then
MsgBox "Not Found", vbInformation, "Kutools for Outlook"
Exit Sub
End If
xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Exit Sub
Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
Dim xSubFolder As Outlook.MAPIFolder
On Error Resume Next
Set ProcessFolders = Nothing
For Each xSubFolder In Flds
If UCase(xSubFolder.Name) = UCase(Name) Then
Set ProcessFolders = xSubFolder
Exit For
Else
Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
If Not ProcessFolders Is Nothing Then Exit For
End If
Next
End Function7. Tryck F5 för att aktivera koden, ange nu mappnamnet du vill gå till i dialogrutan.
8. klick OK, en dialogruta dyker upp för att påminna dig om platsen för mappen, klicka Ja för att direkt gå till mappen, eller klicka på Nej att avbryta.
Gå till och öppna mappen med sökresultat med högerklicka
Om du Kutools för Outlook, kommer ett Open folder-verktyg att bäddas in i högerklicksmenyn, som snabbt kan gå till mappen för det valda e-postmeddelandet även i sökresultatlistan.
Gratis installation Kutools för Outlook och gör sedan nedanstående steg:
Efter sökning högerklickar du på det resultat du vill öppna mappen och väljer Öppna mapp (Kutools) från snabbmenyn.
Bästa kontorsproduktivitetsverktyg
Nyheter: Kutools för Outlook lanserar gratisversion!
Upplev den helt nya Kutools för Outlook GRATIS version med 70+ otroliga funktioner, din att använda FÖR EVIGT! Klicka för att ladda ner nu!
📧 Email Automation: Autosvar (tillgängligt 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: Återkalla 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 / Påminn dig när viktiga mejl kommer / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med 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 ...
