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.
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.
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.
4. klik OK for at lukke dialog. Nu mens du søger på e-mails, vises mappenavnet i søgeresultaterne.
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.
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.
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. |
||
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.
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.