Come passare rapidamente alla cartella dei risultati della ricerca e aprirla in Outlook?

In Outlook è possibile cercare email in base a un testo specifico utilizzando la funzione di ricerca. Tuttavia, se si effettua la ricerca tramite Tutti gli elementi di Outlook, non è possibile individuare rapidamente la cartella del risultato della ricerca. In questo caso, ecco alcuni trucchi che consentono di passare rapidamente alla cartella del risultato della ricerca e aprirla.

Passare alla cartella del risultato della ricerca e aprirla con VBA

Passare alla cartella del risultato della ricerca e aprirla con il tasto destro del mouse

---

Passare alla cartella del risultato della ricerca e aprirla con VBA

In Outlook non è disponibile una funzione integrata per eseguire questa operazione, a meno che non si utilizzi codice VBA.

Prima di utilizzare il codice VBA, assicurati che la colonna “Nome cartella” sia visibile nei risultati della ricerca.

1. Fare clic su Visualizza > Aggiungi più colonne.

2. Nella finestra di dialogo Mostra colonne, dall’elenco a discesa Seleziona le colonne disponibili da, selezionare Tutti i campi posta, quindi scegliere Nella cartella nell’elenco Colonne disponibili.

3. Fare clic su Aggiungi per aggiungere Nelle cartelle all'elenco Mostra queste colonne in questo ordine, quindi fare clic sul pulsante Sposta in alto per spostare Nella cartella in cima.

4. Fare clic su OK per chiudere la finestra di dialogo. Ora, durante la ricerca delle email, la colonna Nome cartella verrà visualizzata nei risultati della ricerca.

5. Premere ora i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications, quindi fare clic su Inserisci > Modulo per creare un nuovo modulo.

6. Copia e incolla il codice seguente nel modulo.

VBA: Apri cartella specifica di Outlook tramite 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. Premere il tasto F5 per eseguire il codice; a questo punto, nella finestra di dialogo inserire il nome della cartella a cui si desidera accedere.

8. Fare clic su OK; verrà visualizzata una finestra di dialogo che indica la posizione della cartella. Fare clic su Sì per passare direttamente alla cartella oppure su No per annullare.

---

Passare alla cartella del risultato della ricerca e aprirla con il tasto destro del mouse

Se hai Kutools per Outlook, nel menu contestuale verrà integrata un’utilità «Apri cartella» che ti permette di passare rapidamente alla cartella dell’email selezionata, anche direttamente dall’elenco dei risultati della ricerca.

Installare gratuitamenteKutools per Outlook e procedere come indicato di seguito:

Dopo aver effettuato la ricerca, fare clic con il tasto destro del mouse sul risultato di cui si desidera aprire la cartella e selezionare Apri nella cartella (Kutools) dal menu contestuale.