Come accedere rapidamente e aprire la cartella dei risultati della ricerca in Outlook?

In Outlook, puoi cercare le e-mail in base al testo specifico con la funzione Ricerca. Tuttavia, se stai cercando in tutti gli elementi di Outlook, non puoi trovare rapidamente la cartella del risultato della ricerca. In questo caso, qui ho alcuni trucchi che possono aiutarti ad andare rapidamente e ad aprire la cartella del risultato della ricerca.

Vai e apri la cartella dei risultati della ricerca con VBA

Vai a e apri la cartella dei risultati della ricerca con clic destro

Vai e apri la cartella dei risultati della ricerca con VBA

In Outlook, non esiste alcuna funzione incorporata in grado di gestire questo lavoro, ad eccezione del codice VBA.

Prima di utilizzare il codice VBA, è necessario visualizzare il nome della cartella nei risultati della ricerca.

1. Clic Visualizza > Aggiungere colonne.

2. Nel Mostra colonne dialogo e in Seleziona le colonne disponibili da elenco a discesa, selezionare Tutti i campi della posta, Quindi scegliere Nella cartella nel Colonne disponibili elenco.

3. Clic Aggiungi aggiungere Nelle cartelle a Mostra queste colonne in questo ordine elenco, quindi fare clic su Andare avanti pulsante per spostarsi Nella cartella in la cima.

4. Clic OK per chiudere la finestra di dialogo. Ora mentre stai cercando le e-mail, il nome della cartella verrà visualizzato nei risultati della ricerca.

5. Ora premete Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli per creare un nuovo modulo.

6. Copiare e incollare sotto il codice nel modulo.

VBA: vai alla cartella con un nome

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. Stampa F5 chiave per abilitare il codice, ora inserisci il nome della cartella a cui vuoi andare nella finestra di dialogo.

8. Clic OK, viene visualizzata una finestra di dialogo per ricordare la posizione della cartella, fare clic su Sì per andare direttamente alla cartella o fare clic su Non per cancellare.

Vai a e apri la cartella dei risultati della ricerca con clic destro

Se si dispone di Kutools for Outlook, ci sarà un file Cartella aperta utilità incorporata nel menu di scelta rapida che può accedere rapidamente alla cartella dell'email selezionata.

Installazione gratuita Kutools per Outlook, quindi esegui i passaggi seguenti:

Dopo la ricerca, fare clic con il tasto destro sul risultato che si desidera aprire la sua cartella, selezionare Cartella aperta dal menu di scelta rapida.

---

I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati Pro: Salvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Scopri di più       Scarica gratis      Acquista