Preskoči na glavno vsebino

Kako hitro odpreti in odpreti mapo z rezultati iskanja v Outlooku?

V Outlooku lahko s funkcijo iskanja iščete po e-pošti na podlagi določenega besedila. Če pa iščete po vseh postavkah Outlook, ne morete hitro najti mape rezultata iskanja. V tem primeru imam tukaj nekaj trikov, s katerimi lahko hitro odprete in odprete mapo z rezultatom iskanja.

Pojdite in odprite mapo z rezultati iskanja z VBA

Z desno miškino tipko odprite in odprite mapo z rezultati iskanja


Pojdite in odprite mapo z rezultati iskanja z VBA

V programu Outlook nobena vgrajena funkcija ne more obvladati tega dela, razen kode VBA.

Pred uporabo kode VBA morate v iskanih rezultatih prikazati ime mape.

1. klik Poglej > Dodaj stolpce.
doc pojdi na odprto mapo rezultatov iskanja 1

2. V Ljubljani Pokaži stolpce v pogovornem oknu in v Izberite razpoložljive stolpce med spustnega seznama izberite Vsa polja Mail, nato izberite V mapi v Razpoložljivi stolpci seznam.
doc pojdi na odprto mapo rezultatov iskanja 2

3. klik Dodaj dodati V mapah do Pokaži te stolpce v tem vrstnem redu , nato kliknite Pomakni se navzgor gumb za premikanje V mapi do vrh.
doc pojdi na odprto mapo rezultatov iskanja 3

4. klik OK za zapiranje pogovornega okna. Med iskanjem po e-pošti bo ime mape prikazano v rezultatih iskanja.
doc pojdi na odprto mapo rezultatov iskanja 4

5. Zdaj pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli ustvariti nov modul.

6. Kopirajte in prilepite spodnjo kodo v modul.

VBA: Pojdite v mapo z imenom

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. Pritisnite F5 za omogočanje kode, zdaj v pogovorno okno vnesite ime mape, v katero želite iti.
doc pojdi na odprto mapo rezultatov iskanja 5

8. klik OK, odpre se pogovorno okno, ki vas opomni na lokacijo mape, kliknite Da če želite neposredno odpreti mapo, ali kliknite Ne odpovedati.
doc pojdi na odprto mapo rezultatov iskanja 6


Z desno miškino tipko odprite in odprite mapo z rezultati iskanja

Če imate Kutools za Outlook, bo Odpri mapo pripomoček, vdelan v meni z desnim klikom, ki lahko hitro preide v mapo izbranega e-poštnega sporočila.

Kutools for Outlook , Vključuje 100 + zmogljive funkcije in orodja za Microsoft Outlook 2016, 2013, 2010 in Office 365.

Brezplačna namestitev Kutools za Outlook in nato naredite spodnja navodila:

Po iskanju z desno miškino tipko kliknite rezultat, v katerem želite odpreti njegovo mapo, izberite Odpri mapo iz kontekstnega menija.
doc pojdi na odprto mapo rezultatov iskanja 7


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HI Guys,
Will this scroll the folder pane as well?  Most of the time the folder is selected but the folder location doesnt get scrolled to  in the folder pane?
Cheers,

This comment was minimized by the moderator on the site
Deleted emails Folder
This comment was minimized by the moderator on the site
Hi, Red McKenna, each account has each deleted forlder, it is called Deleted items.
This comment was minimized by the moderator on the site
Where is the deleted email folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations