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 for 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 esegui 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

---

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