Hogyan lehet gyorsan megnyitni és megnyitni a keresési eredmény mappáját az Outlook programban?

Az Outlook alkalmazásban az adott szöveg alapján kereshet az e-mailekben a Keresés funkcióval. De ha az összes outlook elemen keres, akkor nem tudja gyorsan megtalálni a keresési eredmény mappáját. Ebben az esetben itt van néhány trükk, amelyek segítségével gyorsan elérheti a keresési eredmény mappáját.

Nyissa meg és nyissa meg a keresési eredmény mappáját a VBA segítségével

Nyissa meg és nyissa meg a keresési eredmény mappáját a jobb gombbal

Nyissa meg és nyissa meg a keresési eredmény mappáját a VBA segítségével

Az Outlookban a VBA kód kivételével egyetlen beépített funkció sem képes kezelni ezt a feladatot.

A VBA kód használata előtt meg kell jelenítenie a mappa nevét a keresett találatok között.

1. kettyenés Megnézem > Oszlopok hozzáadása.

2. Ban,-ben Oszlopok megjelenítése párbeszédpanel és Válassza ki a rendelkezésre álló oszlopokat innen legördülő listából válassza a lehetőséget Minden Mail mező, majd válassza ki Mappában a Elérhető oszlopok lista.

3. kettyenés hozzáad hozzáadni A mappákban nak nek Mutassa ezeket az oszlopokat ebben a sorrendben listára, majd kattintson a gombra FELFELÉ gombot a mozgatáshoz A Mappa mappában A csúcs.

4. kettyenés OK a párbeszéd bezárásához. E-mailek keresése közben a mappa neve megjelenik a keresési eredmények között.

5. Most nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok új modul létrehozásához.

6. Másolja és illessze be az alábbi kódot a modulba.

VBA: Menjen a mappába név szerint

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. nyomja meg F5 gombot a kód engedélyezéséhez, most írja be a megnyitni kívánt mappa nevét a párbeszédablakba.

8. kettyenés OK, megjelenik egy párbeszédpanel, amely emlékezteti a mappa helyét, kattintson a gombra Igen közvetlenül a mappába lép, vagy kattintson a gombra Nem lemond.

Nyissa meg és nyissa meg a keresési eredmény mappáját a jobb gombbal

Ha van Kutools az Outlook számára, lesz egy Nyitott mappa beágyazása a jobb gombbal a menübe, amely gyorsan a kiválasztott e-mail mappájába léphet.

Ingyenes telepítés Kutools for Outlook, majd tegye az alábbi lépéseket:

Keresés után kattintson a jobb egérgombbal a mappát megnyitni kívánt eredményre, majd válassza a lehetőséget Nyitott mappa a helyi menüből.

---

A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments Pro: Kötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

KATT ide       ingyenes letöltés      Vásárlás