Come trovare una cartella per nome in Outlook?

Ad esempio, hai creato numerose cartelle e-mail in Outlook; quando devi aprire una specifica cartella personale, sei costretto a espandere più livelli di cartelle finché non trovi quella desiderata. È davvero frustrante dover aprirle una per una solo per raggiungere la cartella che ti serve. In realtà, se conosci il nome della cartella, il compito diventa immediato. In questa guida ti mostreremo un metodo semplice per individuare una cartella per nome in Outlook, senza dover espandere manualmente ogni singola cartella.

Trova una cartella per nome in Outlook con codice VBA

Cerca cartella per nome tra gli account in Outlook con Kutools per Outlook

---

Trova una cartella per nome in Outlook con codice VBA

Con il seguente codice VBA puoi individuare facilmente una cartella specifica in base al suo nome.

Nota: ricorda il nome della cartella per poter utilizzare questo codice VBA.

1. Premi i tasti Alt + F11 sulla tastiera per aprire la finestra di Microsoft Visual Basic, Applications.

2. Fai quindi doppio clic su Project1 > Oggetti Microsoft Outlook > ThisOutlookSession per aprire la finestra Project1 – ThisOutlookSession. Vedi screenshot:

3. Copia e incolla il seguente codice VBA nella finestra Project1 – ThisOutlookSession.

VBA: trova cartella per nome

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. Premi quindi il tasto F5 sulla tastiera per eseguire il codice VBA.

5. Nella finestra di dialogo Macro, fai clic sul pulsante Esegui.

6. Nella finestra di dialogo Cerca cartella visualizzata, digita il nome della cartella nella casella di testo, quindi fai clic sul pulsante OK. Vedi screenshot:

7. Si aprirà quindi una finestra di dialogo di Microsoft Outlook, che mostra il percorso della cartella desiderata; fai clic sul pulsante Sì.

8. La cartella e-mail specificata si aprirà immediatamente.

Nota: questo codice VBA è compatibile con Outlook 2007, 2010 e 2013.

---

Cerca cartella per nome tra gli account in Outlook con Kutools per Outlook

Se non sei esperto di VBA, puoi provare lo strumento Kutools per Outlook di Vai a, che ti permette di trovare e cercare una cartella per nome o carattere specifico, accedendovi direttamente.

Installa gratuitamenteKutools per Outlook, quindi segui i passaggi indicati di seguito:

1. Fai clic su KUTOOLS PLUS > Cartella > Vai a.

2. Nella finestra di dialogo Vai a, digita il nome della cartella o i caratteri specifici nella barra di ricerca: verranno visualizzate le cartelle corrispondenti.

3. Fai doppio clic sul nome della cartella che desideri aprire e raggiungere; la cartella si aprirà.

  Demo