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.

---

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy Pro: Dávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup