Come trovare una cartella in base al nome in Outlook?
Ad esempio, hai creato molte cartelle di posta elettronica in Outlook e quando devi aprire una specifica cartella personale, devi espandere più cartelle fino a quando non appare quella desiderata. È fastidioso dover espandere più cartelle una per una solo per aprire una determinata cartella personale. In realtà, se ricordi il nome della cartella, tutto diventa più facile. In questo tutorial, ti forniremo un metodo per trovare una cartella in base al nome in Outlook invece di espandere le cartelle una ad una.
Trova la cartella in base al nome in Outlook con il codice VBA
Cerca la cartella in base al nome tra gli account in Outlook con Kutools per Outlook
Trova la cartella in base al nome in Outlook con il codice VBA
Con il seguente codice VBA, puoi facilmente trovare una cartella specifica in base al suo nome.
Nota: Devi ricordare il nome della cartella per utilizzare questo codice VBA.
1. Premi i tasti Alt + F11 sulla tastiera per aprire la finestra Microsoft Visual Basic for Applications.
2. Dopodiché, fai doppio clic su Project1 > Oggetto 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 la cartella in base al 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 premi 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 che si apre, digita il nome della cartella nella casella di testo, quindi fai clic sul pulsante OK. Vedi screenshot:
7. Successivamente, apparirà una finestra di dialogo di Microsoft Outlook, che mostra il percorso della tua cartella desiderata; quindi fai clic sul pulsante Sì.
8. La cartella di posta elettronica specificata verrà aperta immediatamente.
Nota: Questo codice VBA può essere applicato a Outlook 2007, 2010 e 2013.
Cerca la cartella in base al nome tra gli account in Outlook con Kutools per Outlook
Se non sei bravo con il VBA, puoi provare l'utilità Vai A di Kutools per Outlook, che può trovare e cercare una cartella in base al nome o a caratteri specifici, e poi andare direttamente alla cartella.
Installa gratuitamente Kutools per Outlook, quindi segui i passaggi sottostanti:
1. Clicca su Kutools Plus > Cartella > Vai A.
2. Nella finestra Vai A, digita il nome della cartella o caratteri specifici nella barra di ricerca, quindi verranno elencate le cartelle relative.
3. Fai doppio clic sul nome della cartella che desideri aprire, e la cartella si aprirà.
Demo
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
