Přejít k hlavnímu obsahu

Jak najít složku podle názvu v aplikaci Outlook?

Například jste vytvořili mnoho e-mailových složek v Outlooku, když je třeba otevřít zadanou osobní složku, musíte rozbalit více složek, dokud se zadaná složka nezobrazí. Je obtížné rozbalit více složek jednu po druhé jen pro otevření určené osobní složky. Ve skutečnosti, pokud si vzpomenete na název složky, všechno se stane snadným. V tomto výukovém programu vám nabídneme metodu vyhledání složky podle jejího názvu v Outlooku místo toho, abychom složky postupně rozbalovali, abychom složku našli.

Najděte složku podle názvu v Outlooku pomocí kódu VBA

Prohledejte složku podle názvu napříč účty v Outlooku pomocí Kutools pro Outlookdobrý nápad3


šipka modrá pravá bublina Najděte složku podle názvu v Outlooku pomocí kódu VBA

Pomocí následujícího kódu VBA můžete snadno najít zadanou složku podle jejího názvu.

Poznámka: Abyste mohli použít tento kód VBA, musíte si zapamatovat název složky.

1. zmáčkni Další + F11 na klávesnici otevřete Microsoft Visual Basic pro aplikace okno.

2. Poté poklepejte na ikonu Project1 > Objekt Microsoft Outlook > ThisOutlookSession k otevření Project1 - ThisOutlookSession okno. Viz snímek obrazovky:

3. Zkopírujte a vložte následující kód VBA do okna Project1 - ThisOutlookSession.

VBA: vyhledejte složku podle názvu

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. Poté stiskněte F5 klávesu na klávesnici pro spuštění kódu VBA.

5. V makra dialogové okno, klepněte na tlačítko Běh .

6. Ve vyskakovacím okně Hledání složky V dialogovém okně zadejte do textového pole název složky a klikněte na ikonu OK knoflík. Viz screenshot:

7. Pak a Microsoft Outlook Zobrazí se dialogové okno, zobrazí cestu k požadované složce a poté klikněte na ikonu Ano .

8. Poté se zadaná e-mailová složka okamžitě otevře.

Poznámka: Tento kód VBA lze použít pro Outlook 2007, 2010 a 2013.


šipka modrá pravá bublina Prohledejte složku podle názvu napříč účty v Outlooku pomocí Kutools pro Outlook

Pokud nejste dobří ve VBA, můžete to zkusit Kutools pro aplikaci Outlook's Přejít na nástroj, který dokáže vyhledat a vyhledat složku se jménem nebo konkrétním znakem, a poté přímo přejít do složky

Kutools for Outlook , Obsahuje výkonné funkce a nástroje pro Microsoft Outlook 2016, 2013, 2010 a Office 365.

Bezplatná instalace Kutools pro Outlook a proveďte následující kroky:

1. cvaknutí Kutools Plus > Přejít na.
doc najít složku podle názvu 5

2. V Přejít na dialogové okno, zadejte název složky nebo konkrétní znaky do vyhledávací lišty, pak jsou relativní složky seznam.
doc najít složku podle názvu 6

3. Poklepejte na název složky, do které chcete přejít, a otevřete ji, poté je složka otevřená.
doc najít složku podle názvu 7


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, 6 years later but have same issues as raised by the others. I once had this code but sadly lost it. Any ideas (i will try AI)
This comment was minimized by the moderator on the site
It looks great but I'm looking more folder with similar name....
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
The line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a compile error message - User-defined type not defined
This comment was minimized by the moderator on the site
the line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a Compile error message: User-defined type not defined
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations