Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

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 Outlookbuona idea 3


freccia blu freccia destra 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 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.


freccia blu freccia destra 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

Kutools for Outlook , Include 100 potenti funzionalità e strumenti per Microsoft Outlook 2016, 2013, 2010 e Office 365.

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

1. Clic Kutools Plus > Vai.
doc trova la cartella per nome 5

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

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


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.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Rohit · 4 years ago
    It looks great but I'm looking more folder with similar name....
  • To post as a guest, your comment is unpublished.
    John · 4 years ago
    I am currently working with Outlook 2013, and while this tool is wonderfully helpful, I'm in the same boat as Matt and Richard. I would like to be able to somehow go through multiple folders with the same name. I would also like to be able to do this: if I have multiple folders with dates, 2012,2013,2014 for example, I would like to be able to put in 20* or 20?? and then be prompted to view any of the aforementioned folders, instead of just defaulting to the first one it finds.
  • To post as a guest, your comment is unpublished.
    Rafi Schwarts · 4 years ago
    The line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a compile error message - User-defined type not defined
  • To post as a guest, your comment is unpublished.
    Rafi Schwarts · 4 years ago
    the line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a Compile error message: [b][u]User-defined type not defined[/u][/b]
  • To post as a guest, your comment is unpublished.
    Richard · 5 years ago
    Just like Matt wrote, I was also looking for this. The way the code operates is that it will open the first folder it finds with the name to search for. Is it possible to adjust the code so it will find multiple instances?
  • To post as a guest, your comment is unpublished.
    Matt · 5 years ago
    Is there a way to add folder iteration to the above code. Say the user has multiple folders named Employee, is it possible for it to go through a loop to find all instances and allow user to select appropriate folder?