Preskoči na glavno vsebino

Kako dobiti seznam map v Outlooku?

Včasih lahko drevesna struktura vseh poštnih map (vključno z ustvarjenimi osebnimi mapami) v podoknu za krmarjenje pomaga uporabnikom Outlooka med njihovim delom. Za hiter seznam celotnih map drevesne strukture vam lahko pomaga koda VBA. V tej vadnici se lahko naučite, kako enostavno pridobiti seznam map s kodo VBA.

Pridobite seznam map v Outlooku s kodo VBA

Zavihek Office – omogočite urejanje in brskanje z zavihki v Microsoft Officeu, kar olajša delo
Kutools za Outlook – izboljšajte Outlook s 100+ naprednimi funkcijami za vrhunsko učinkovitost
Izboljšajte svoj Outlook 2021 - 2010 ali Outlook 365 s temi naprednimi funkcijami. Uživajte v obsežnem 60-dnevnem brezplačnem preizkusu in izboljšajte svojo e-poštno izkušnjo!

puščica modri desni mehurčekPridobite seznam map v Outlooku s kodo VBA

Če želite dobiti seznam map v Outlooku s kodo VBA, storite naslednje.

1. Pritisnite druga + F11 tipke na tipkovnici, da odprete Microsoft Visual Basic za aplikacije okno.

2. Nato dvokliknite Project1 > Predmet Microsoft Outlook > Ta OutlookSession da odprete Project1 - ThisOutlookSession okno. Oglejte si posnetek zaslona:

3. Nato kopirajte in prilepite spodnjo kodo VBA v okno Project1 - ThisOutlookSession.

VBA: pridobite seznam map v Outlooku

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

4. Pritisnite F5 tipko na tipkovnici za zagon kode VBA.

5. Zdaj a Makro Pojavi se pogovorno okno, kliknite Run gumb.

6. Počakajte, da se makro zažene. Nato je seznam vseh vaših e-poštnih map takoj prikazan v ustvarjenem novem oknu za sporočila. Lahko ga enostavno natisnete. Oglejte si posnetek zaslona:

Opombe: To kodo VBA lahko uporabite za Outlook 2007, 2010 in 2013.


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For get the size of the folders how do you do it?
This comment was minimized by the moderator on the site
Working perfect with OLK 365, Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations