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 a következőket:

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.

---

Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

• Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
• BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
• Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
• Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
• Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.

Tovább ... Letöltés most...