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 View > 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 > Modulo 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 per 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 segui 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.

Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

• Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
• Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
• Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
• Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
• E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.

Leggi di più... Scarica ora...