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.

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.

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.

4. klik OK za zapiranje pogovornega okna. Med iskanjem po e-pošti bo ime mape prikazano v rezultatih iskanja.

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.

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

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

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

Brezplačna namestitev Kutools for Outlookin 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.