Jak rychle přejít do a otevřít složku s výsledky vyhledávání v aplikaci Outlook?

V aplikaci Outlook můžete vyhledávat e-maily na základě konkrétního textu pomocí funkce Hledání. Pokud ale prohledáváte všechny položky aplikace Outlook, nemůžete rychle zjistit složku výsledku hledání. V tomto případě zde mám několik triků, které vám pomohou rychle přejít a otevřít složku s výsledkem vyhledávání.

Přejděte na a otevřete složku s výsledky vyhledávání pomocí VBA

Přejděte do a otevřete složku s výsledky vyhledávání kliknutím pravým tlačítkem

Přejděte na a otevřete složku s výsledky vyhledávání pomocí VBA

V aplikaci Outlook neexistuje žádná vestavěná funkce, která by tuto úlohu zvládla, kromě kódu VBA.

Před použitím kódu VBA musíte ve výsledcích hledání zobrazit název složky.

1. cvaknutí Pohled > Přidat sloupce.

2. V Zobrazit sloupce dialogové okno a v Vyberte dostupné sloupce z rozbalovacího seznamu vyberte Všechna pole pošty, pak zvolte Ve složce v Dostupné sloupce seznam.

3. cvaknutí přidat přidat Ve složkách na Zobrazit tyto sloupce v tomto pořadí seznamu a klikněte na Posuňte se NAHORU tlačítko pro pohyb Ve složce do vrchol.

4. cvaknutí OK zavřete dialog. Nyní, když prohledáváte e-maily, se ve výsledcích vyhledávání zobrazí název složky.

5. Nyní stiskněte Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul k vytvoření nového modulu.

6. Zkopírujte a vložte níže uvedený kód do modulu.

VBA: Přejít do složky podle názvu

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. lis F5 Chcete-li povolit kód, zadejte do dialogového okna název složky, do které chcete přejít.

8. cvaknutí OK, objeví se dialogové okno, které vám připomene umístění složky, klikněte na Ano přímo přejdete do složky nebo klikněte na Ne zrušit.

Přejděte do a otevřete složku s výsledky vyhledávání kliknutím pravým tlačítkem

Pokud máte Kutools pro aplikaci Outlook, tam bude Otevřená složka nástroj vložený do nabídky pravého tlačítka myši, který rychle přejde do složky vybraného e-mailu.

Bezplatná instalace Kutools pro Outlook a proveďte následující kroky:

Po prohledání klikněte pravým tlačítkem na výsledek, který chcete otevřít v jeho složce, vyberte Otevřená složka z kontextové nabídky.

---

Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

• Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
• Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
• Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
• Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
• Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.

Čtěte více... Stáhnout teď...