Jak rychle přeskočit do složky nalezené položky ve výsledcích vyhledávání pomocí aplikace Outlook VBA

Po dokončení okamžitého vyhledávání můžete v aplikaci Outlook získat mnoho výsledků vyhledávání. V takovém případě možná budete chtít rychlý přístup k nadřazené složce položky mezi výsledky hledání. Tento článek vás naučí, jak to realizovat pomocí VBA.

Po přečtení předchozího článku „Jak získat úplnou cestu k výsledkům vyhledávání pomocí aplikace Outlook VBA”, Mnoho uživatelů touží po jiném řešení, které by přímo skočilo do složky s výsledkem hledání. Proto v následujících bodech uvedeme takovou metodu krok za krokem.

Ve výsledcích vyhledávání přejděte do složky nalezené položky

1. Pro jakotart, spusťte aplikaci Outlook.
2. Poté stisknutím kláves „Alt + F11“ otevřete editor VBA.
3. Dále zkopírujte následující kód VBA do projektu „ThisOutlookSession“.

Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
    Dim objCommandBarButton As Office.CommandBarButton
 
    If Selection.Count = 1 Then
       Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
  
       With objCommandBarButton
            .Style = msoButtonIconAndCaption
            .Caption = "Jump To Folder"
            .FaceId = 331
            .OnAction = "Project1.ThisOutlookSession.JumpToFolder"
       End With
    End If
 
    Set objCommandBarButton = Nothing
End Sub

Sub JumpToFolder()
    Dim objItem As Object
    Dim objFolder As Outlook.Folder
    Dim objNewExplorer As Outlook.Explorer
 
    Set objItem = Application.ActiveExplorer.Selection(1)
    Set objFolder = objItem.Parent
 
    'Display the folder in a new Outlook window
    Set objNewExplorer = Outlook.Application.Explorers.Add(objFolder)
    objNewExplorer.Display
 
    'To directly open the folder in current window, use the following line instead
    'Set Outlook.Application.ActiveExplorer.CurrentFolder = objFolder
 
    Set objItem = Nothing
    Set objFolder = Nothing
    Set objNewExplorer = Nothing
End Sub

4. Poté opusťte aktuální okno.
5. Nakonec můžete pořídit snímek.

• Nejprve proveďte vyhledávání, například prohledání e-mailů obsahujících text „Temp“ v předmětu.
• Poté ve výsledcích hledání vyberte jeden e-mail.
• Poté na něj klikněte pravým tlačítkem a v místní nabídce vyberte možnost „Přejít na složku“.
• Najednou se zobrazí nový průzkumník aplikace Outlook s otevřenou nadřazenou složkou vybrané položky, jako je snímek obrazovky níže.

Nikdy se nebojte selhání aplikace Outlook

Když dojde k chybě aplikace Outlook, mnoho uživatelů bude mít obvykle paniku a bude se bát, že dojde k poškození jejich dat. Ve skutečnosti, pokud provedete dostatečná opatření, vaše data nikdy nezmizí ve vzduchu. Například pokud jste zálohovali soubor aplikace Outlook, budete moci obnovit PST data jednoduše ze zálohy. Pokud nemáte žádnou zálohu, můžete stále použít vestavěný nástroj pro opravu a pokusit se soubor opravit. V nejhorším případě, když Scanpst neprovádí efekty, můžete použít zkušený a důvěryhodný nástroj, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com