Hvordan går man hurtigt til og åbner mappen med søgeresultat i Outlook?

I Outlook kan du søge på e-mails baseret på den specifikke tekst med søgefunktionen. Men hvis du søger gennem alle Outlook-emner, kan du ikke hurtigt finde ud af mappen med søgeresultatet. I dette tilfælde har jeg nogle tricks, der kan hjælpe dig med hurtigt at gå til og åbne mappen med søgeresultatet.

Gå til og åbn mappen med søgeresultat med VBA

Gå til og åbn mappen med søgeresultat med højreklik

Gå til og åbn mappen med søgeresultat med VBA

I Outlook er der ingen indbygget funktion, der kan håndtere dette job, undtagen VBA-kode.

Inden du bruger VBA-koden, skal du vise mappenavnet i de søgte resultater.

1. klik Specifikation > Tilføj kolonner.
dok gå til åben mappe med søgeresultat 1

2. i Vis kolonner dialog og i Vælg tilgængelige kolonner fra rulleliste, vælg Alle postfelter, Og vælg derefter I mappe i Tilgængelige kolonner liste.
dok gå til åben mappe med søgeresultat 2

3. klik Tilføj at tilføje I mapper til Vis disse kolonner i denne rækkefølge listen, og klik derefter på Flyt OP knap for at flytte I mappe til toppen.
dok gå til åben mappe med søgeresultat 3

4. klik OK for at lukke dialog. Nu mens du søger på e-mails, vises mappenavnet i søgeresultaterne.
dok gå til åben mappe med søgeresultat 4

5. Tryk nu på Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler for at oprette et nyt modul.

6. Kopier og indsæt nedenstående kode i modulet.

VBA: Gå til mappen med et navn

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. Trykke F5 for at aktivere koden, skal du nu indtaste det mappenavn, du vil gå til, i dialogen.
dok gå til åben mappe med søgeresultat 5

8. klik OK, vises en dialogboks, der minder dig om placeringen af mappen, skal du klikke på Ja for at gå direkte til mappen, eller klik på Ingen at annullere.
dok gå til åben mappe med søgeresultat 6

Gå til og åbn mappen med søgeresultat med højreklik

Hvis du har Kutools til Outlook, der vil være en Åbn mappe værktøj indlejret i højreklikmenuen, som hurtigt kan gå til mappen for den valgte e-mail.

Kutools for Outlook , Indeholder 100 + kraftfulde funktioner og værktøjer til Microsoft Outlook 2016, 2013, 2010 og Office 365.
Gå til Download Gratis prøveperiode 45 dage

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

Efter søgning skal du højreklikke på det resultat, du vil åbne mappen, vælge Åbn mappe fra kontekstmenuen.

Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.