Hur man snabbt hoppar till mappen för ett hittat objekt i sökresultaten via Outlook VBA

Efter en omedelbar sökning kan du få många sökresultat i Outlook. I detta fall kanske du snabbt vill komma åt den överordnade mappen för ett objekt bland sökresultaten. Den här artikeln lär dig hur du kan förverkliga det med VBA.

Efter att ha läst föregående artikel “Så här får du fullständiga mappvägar för sökresultaten med Outlook VBA”, Många användare längtar efter en annan lösning för att direkt hoppa till mappen i ett sökresultat. Därför introducerar vi en sådan metod steg för steg i det följande.

Hoppa till mappen för ett hittat objekt i sökresultaten

1. För somtarstarta Outlook-applikationen.
2. Tryck sedan på “Alt + F11” -knapparna för att komma åt VBA-redigeraren.
3. Kopiera sedan följande VBA-kod till projektet "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. Stäng sedan det aktuella fönstret efter det.
5. Slutligen kan du ta ett skott.

• Först och främst, gör en sökning, som att söka i e-postmeddelanden som innehåller texten "Temp" i ämnet.
• Välj sedan ett e-postmeddelande i sökresultaten.
• Högerklicka sedan på den och välj ”Hoppa till mapp” i snabbmenyn.
• Omedelbart kommer en ny Outlook Explorer att visas med den överordnade mappen för det valda objektet öppnat, som skärmdumpen nedan.

Frukta aldrig Outlook Crash

När Outlook kraschar, generellt sett, kommer många användare att få panik och rädda för att deras Outlook-data kommer att skadas. Egentligen så länge du har vidtagit tillräckliga försiktighetsåtgärder kommer dina data aldrig att försvinna i luften. Om du till exempel har säkerhetskopierat din Outlook-fil kommer du att kunna återställa PST data helt enkelt från säkerhetskopian. Om du inte har någon säkerhetskopia kan du fortfarande använda det inbyggda reparationsverktyget för att försöka fixa filen. I värsta fall, när Scanpst inte gör effekter, kan du använda ett erfaret och trovärdigt verktyg, till exempel DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL-återhämtning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com