Hogyan lehet gyorsan a talált elem mappájába ugrani a keresési eredmények között az Outlook VBA segítségével

Az azonnali keresés befejezése után sok keresési eredményt kaphat az Outlookban. Ebben az esetben érdemes gyorsan hozzáférni egy elem szülőmappájához a keresési eredmények között. Ebből a cikkből megtudhatja, hogyan valósítsa meg ezt a VBA segítségével.

Az előző cikk elolvasása után "A keresési eredmények teljes mappaútvonalainak elérése az Outlook VBA segítségével”, sok felhasználó más megoldásra vágyik, hogy közvetlenül a keresési eredmény mappájába ugorhasson. Ezért a következőkben lépésről lépésre bemutatunk egy ilyen módszert.

Ugrás a talált elem mappájába a keresési eredmények között

1. Mert minttart, indítsa el az Outlook alkalmazást.
2. Ezután nyomja meg az „Alt + F11” billentyűket a VBA-szerkesztő eléréséhez.
3. Ezután másolja be a következő VBA-kódot a „ThisOutlookSession” projektbe.

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. Ezt követően lépjen ki az aktuális ablakból.
5. Végül lőhet egy lövést.

• Először is végezzen keresést, például keressen a tárgyban a „Temp” szöveget tartalmazó e-mailekben.
• Ezután válasszon ki egy e-mailt a keresési eredmények közül.
• Ezt követően kattintson rá jobb gombbal, és válassza a helyi menü „Ugrás mappába” elemét.
• Egyszerre egy új Outlook Explorer jelenik meg a kiválasztott elem szülőmappájával, az alábbi képernyőképen látható módon.

Soha ne félj az Outlook összeomlásától

Amikor az Outlook összeomlik, általában sok felhasználó pánikba esik, és attól tart, hogy Outlook-adatai megsérülnek. Valójában mindaddig, amíg megfelelő óvintézkedéseket tesz, adatai soha nem tűnnek el a levegőben. Például, ha biztonsági másolatot készített az Outlook fájljáról, akkor képes lesz rá visszaállítani a PST-t adatok egyszerűen a biztonsági másolatból. Ha nincs biztonsági másolata, akkor is használhatja a beépített javítóeszközt a fájl javításához. A legrosszabb esetben, amikor a Scanpst nem hoz létre effektusokat, használhat egy tapasztalt és hiteles eszközt, mint pl. DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql helyreállítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com