Hoe snel naar de map met zoekresultaten gaan en deze openen in Outlook?
In Outlook kunt u met de zoekfunctie e-mails zoeken op basis van de specifieke tekst. Maar als u alle Outlook-items doorzoekt, kunt u de map met het zoekresultaat niet snel vinden. In dit geval heb ik hier enkele trucs die u kunnen helpen om snel naar de map met het zoekresultaat te gaan en deze te openen.
Ga naar en open de map met zoekresultaten met VBA
Ga naar en open de map met zoekresultaten met rechtsklikken
Ga naar en open de map met zoekresultaten met VBA
In Outlook is er geen ingebouwde functie die deze taak aankan, behalve VBA-code.
Voordat u de VBA-code gebruikt, moet u de mapnaam weergeven in de zoekresultaten.
1. klikken Bekijk > Voeg kolommen toe.
2. In de Kolommen weergeven dialoog en in Selecteer beschikbare kolommen van vervolgkeuzelijst, selecteer Alle e-mailvelden, kies dan In map in de Beschikbare kolommen lijst.
3. klikken Toevoegen toevoegen In mappen naar Geef deze kolommen in deze volgorde weer lijst en klik vervolgens op Ga OMHOOG knop om te bewegen In map naar de top.
4. klikken OK om het dialoogvenster te sluiten. Terwijl u nu in e-mails zoekt, wordt de mapnaam weergegeven in de zoekresultaten.
5. Druk nu op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module om een nieuwe module te maken.
6. Kopieer en plak onderstaande code in de module.
VBA: ga naar de map met een naam
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. druk op F5 toets om de code in te schakelen, voer nu de mapnaam in waarnaar u wilt gaan in het dialoogvenster.
8. klikken OK, er verschijnt een dialoogvenster om u te herinneren aan de locatie van de map, klik op Ja om rechtstreeks naar de map te gaan, of klik op Nee annuleren.
Ga naar en open de map met zoekresultaten met rechtsklikken
Als je Kutools for Outlook, er zal een Open folder hulpprogramma embed in het rechtsklikmenu dat snel naar de map van de geselecteerde e-mail kan gaan.
Kutools for Outlook , Inclusief 100+ krachtige functies en tools voor Microsoft Outlook 2016, 2013, 2010 en Office 365. |
||
Gratis installatie Kutools voor Outlook en voer de onderstaande stappen uit:
Klik na het zoeken met de rechtermuisknop op het resultaat waarvan u de map wilt openen, selecteer Open folder vanuit het contextmenu.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.