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 Schauen Sie sich an > 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 Verwenden Sie 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ü.
Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!
- Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
- BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
- Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
- Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
- Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.





