Come passare rapidamente alla cartella dei risultati della ricerca e aprirla in Outlook?
In Outlook, puoi cercare email in base a un testo specifico utilizzando la funzione di ricerca. Tuttavia, se stai cercando tra tutti gli elementi di Outlook, non puoi individuare rapidamente la cartella del risultato della ricerca. In questo caso, ho alcuni trucchi che possono aiutarti a passare rapidamente alla cartella del risultato della ricerca e aprirla.
Vai alla cartella dei risultati della ricerca e aprila con VBA
Vai alla cartella dei risultati della ricerca e aprila con il tasto destro del mouse
Vai alla cartella dei risultati della ricerca e aprila con VBA
In Outlook, non esiste una funzione integrata che possa gestire questa operazione, tranne il codice VBA.
Prima di utilizzare il codice VBA, devi visualizzare il nome della cartella nei risultati della ricerca.
1. Clicca su Visualizza > Aggiungi Colonne.
2. Nella finestra di dialogo Mostra Colonne e nel menu a discesa Seleziona colonne disponibili da, seleziona Tutti i campi di posta, quindi scegli Cartella nell'elenco delle colonne disponibili.
3. Clicca su Aggiungi per aggiungere Cartelle a Mostra queste colonne in questo ordine elenco, quindi clicca sul pulsante Sposta Su per spostare Cartella in cima.
4. Clicca su OK per chiudere la finestra di dialogo. Ora, mentre stai cercando email, il nome della cartella verrà visualizzato nei risultati della ricerca.
5. Ora premi i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo per creare un nuovo Modulo.
6. Copia e incolla il codice sottostante nel Modulo.
VBA: Vai alla cartella tramite un 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 Function7. Premi il tasto F5 per abilitare il codice, ora inserisci il nome della cartella in cui vuoi andare nella finestra di dialogo.
8. Clicca su OK, apparirà una finestra di dialogo per ricordarti la posizione della cartella, clicca su Sì per andare direttamente alla cartella, o clicca su No per annullare.
Vai alla cartella dei risultati della ricerca e aprila con il tasto destro del mouse
Se hai Kutools per Outlook, un'utilità Apri cartella sarà incorporata nel menu del tasto destro del mouse, che può portarti rapidamente alla cartella dell'email selezionata anche nell'elenco dei risultati della ricerca.
Installa gratuitamente Kutools per Outlook, quindi segui i passaggi sottostanti:
Dopo aver effettuato la ricerca, fai clic con il tasto destro sul risultato di cui desideri aprire la cartella, seleziona Apri nella cartella (Kutools) dal menu contestuale.
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...
