Wie gehe ich schnell zum Ordner mit den Suchergebnissen in Outlook und öffne ihn?
In Outlook können Sie mit der Suchfunktion E-Mails basierend auf dem spezifischen Text suchen. Wenn Sie jedoch alle Outlook-Elemente durchsuchen, können Sie den Ordner des Suchergebnisses nicht schnell herausfinden. In diesem Fall habe ich hier einige Tricks, mit denen Sie schnell zum Ordner des Suchergebnisses gehen und diesen öffnen können.
Gehen Sie zu und öffnen Sie den Ordner mit den Suchergebnissen mit VBA
Gehen Sie zum Ordner mit den Suchergebnissen und öffnen Sie ihn mit einem Rechtsklick
Gehen Sie zu und öffnen Sie den Ordner mit den Suchergebnissen mit VBA
In Outlook gibt es keine integrierte Funktion, die diesen Job verarbeiten kann, außer VBA-Code.
Bevor Sie den VBA-Code verwenden können, müssen Sie den Ordnernamen in den gesuchten Ergebnissen anzeigen.
1 Klicken Anzeigen > Spalten hinzufügen.
2. In dem Spalten anzeigen Dialog und in Wählen Sie verfügbare Spalten aus Dropdown-Liste, wählen Sie Alle Mailfelder, Dann wählen Im Ordner der Verfügbare Spalten Liste.
3 Klicken Speichern hinzufügen In Ordnern zu Zeigen Sie diese Spalten in dieser Reihenfolge an Liste, dann klicken Sie auf Nach oben bewegen Taste zum Bewegen Im Ordner zu die Spitze.
4 Klicken OK Dialog schließen. Während Sie jetzt nach E-Mails suchen, wird der Ordnername in den Suchergebnissen angezeigt.
5. Drücken Sie nun Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul um ein neues Modul zu erstellen.
6. Kopieren Sie den folgenden Code und fügen Sie ihn in das Modul ein.
VBA: Gehen Sie mit einem Namen zum Ordner
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. Drücken Sie F5 Geben Sie zum Aktivieren des Codes den Ordnernamen ein, zu dem Sie in den Dialog wechseln möchten.
8 Klicken OKKlicken Sie auf, um ein Dialogfeld anzuzeigen, in dem Sie an den Speicherort des Ordners erinnert werden Ja um direkt zum Ordner zu gelangen, oder klicken Sie auf Nein abbrechen.
Gehen Sie zum Ordner mit den Suchergebnissen und öffnen Sie ihn mit einem Rechtsklick
Wenn Sie Kutools for Outlookwird es eine geben Ordner öffnen Dienstprogramm in das Kontextmenü einbetten, das schnell zum Ordner der ausgewählten E-Mail wechseln kann.
Kutools for Outlook , Enthält 100+ Leistungsstarke Funktionen und Tools für Microsoft Outlook 2016, 2013, 2010 und Office 365. |
||
Kostenlose Installation Kutools für Outlook, und führen Sie dann die folgenden Schritte aus:
Klicken Sie nach der Suche mit der rechten Maustaste auf das Ergebnis, dessen Ordner Sie öffnen möchten, und wählen Sie Ordner öffnen in dem Kontextmenü.
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.