Come trovare la cartella per nome in Outlook?

Ad esempio, hai creato molte cartelle di posta elettronica in Outlook, quando è necessario aprire una cartella personale specificata, devi espandere più cartelle fino a quando non viene visualizzata la cartella specificata. È problematico espandere più cartelle una alla volta solo per aprire una cartella personale specificata. In realtà, se ricordi il nome della cartella, tutto diventerà facilmente. In questo tutorial, ti forniremo un metodo per trovare la cartella in base al suo nome in Outlook invece di espandere le cartelle una per una per trovare la cartella.

Trova la cartella per nome in Outlook con codice VBA

Cerca la cartella per nome tra gli account in Outlook di Kutools per Outlook

Trova la cartella per nome in Outlook con codice VBA

Con il seguente codice VBA, puoi facilmente trovare una cartella specificata con il suo nome.

Note:: È necessario ricordare il nome della cartella per utilizzare questo codice VBA.

1. premi il altro + F11 tasti sulla tastiera per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi fare doppio clic su Project1 > Oggetto Microsoft Outlook > Questa sessione di Outlook per aprire il Progetto1 - ThisOutlookSession finestra. Vedi screenshot:

3. Copiare e incollare il seguente codice VBA nella finestra Project1 - ThisOutlookSession.

VBA: trova la 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. Quindi premere F5 tasto sulla tastiera per eseguire il codice VBA.

5. Nel Macro finestra di dialogo, fare clic su Correre pulsante.

6. Nel spuntare Cartella di ricerca finestra di dialogo, digitare il nome della cartella nella casella di testo, quindi fare clic su OK pulsante. Vedi screenshot:

7. Quindi a Microsoft Outlook si apre la finestra di dialogo, mostra il percorso della cartella desiderata, quindi fare clic su Sì pulsante.

8. Quindi la cartella di posta elettronica specificata verrà aperta immediatamente.

Note:: Questo codice VBA può essere applicato a Outlook 2007, 2010 e 2013.

Cerca la cartella per nome tra gli account in Outlook di Kutools per Outlook

Se non sei bravo in VBA, puoi provare Kutools per Outlook's Vai utilità, che può trovare e cercare cartelle con nome o carattere specifico, quindi andare direttamente alla cartella

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

1. Clic Kutools Plus > Vai.

2. Nel Vai finestra di dialogo, digitare il nome della cartella o caratteri specifici nella barra di ricerca, quindi vengono elencate le cartelle relative.

3. Fare doppio clic sul nome della cartella in cui si desidera andare e aprire, quindi la cartella è aperta.

  Dimo

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...