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 utsikt > 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 Function

7. 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 har Kutools för Outlookkommer det att finnas en Öppen mapp verktyg bädda in i högerklickmenyn som snabbt kan gå till mappen för det valda e-postmeddelandet.

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 Öppen mapp från snabbmenyn.

---

Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

• Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
• BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
• Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
• Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
• Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.

Läs mer... Ladda ner nu...