Hogyan lehet elérni a mappák listáját az Outlook programban?

Néha a Navigációs ablaktábla összes levelezõmappájának (beleértve a létrehozott személyes mappákat is) faszerkezete segítséget nyújthat az Outlook felhasználók számára a munkájuk során. A teljes faszerkezeti mappák gyors felsorolásához a VBA-kód segíthet. Ebben az oktatóanyagban megtanulhatja, hogyan lehet a mappák listáját egyszerűen megszerezni a VBA kóddal.

Mappák listájának letöltése az Outlookban VBA kóddal

Iroda lap – Engedélyezze a lapos szerkesztést és böngészést a Microsoft Office-ban, így a munka egyszerűvé válik

Tovább ...Töltse le a ...

Kutools for Outlook – Növelje az Outlookot 100+ speciális funkcióval a kiemelkedő hatékonyság érdekében

Automatizálja az e-mailezést ezzel Auto CC / BCC, Automatikus továbbítás szabályok szerint; Küld Autómatikus válasz (Out of Office) Exchange szerver nélkül...
Szerezzen emlékeztetőket BCC figyelmeztetés amikor mindenkinek válaszol, miközben a Titkos másolat listában van, és Emlékeztessen a hiányzó mellékletekre az elfelejtett mellékletekhez...
Növelje az e-mailek hatékonyságát Válasz (mindenre) mellékletekkel, Üdvözlés vagy dátum és idő automatikus hozzáadása az aláíráshoz vagy a tárgyhoz, Válasz több e-mailre...
Egyszerűsítse az e-mailezést ezzel E-mailek visszahívása, Melléklet eszközök (Összes tömörítése, Összes automatikus mentése...), Távolítsa el a másolatokatés Gyorsjelentés...

Növelje Outlook 2021–2010 vagy Outlook 365 verzióját ezekkel a speciális funkciókkal. Élvezze az átfogó 60 napos ingyenes próbaverziót, és fokozza az e-mailezési élményt!

Tovább ...Töltse le a ...

Mappák listájának letöltése az Outlookban VBA kóddal

Az Outlook mappák listájának VBA kóddal történő megszerzéséhez tegye a következőket.

1. megnyomni a más + F11 billentyűk megnyomásával Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson duplán a gombra Project1 > Microsoft Outlook objektum > ThisOutlookSession megnyitni Project1 - ThisOutlookSession ablak. Lásd a képernyőképet:

3. Ezután másolja és illessze be az alábbi VBA kódot a Project1 - ThisOutlookSession ablakba.

VBA: mappák listájának lekérése az Outlook programban

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. megnyomni a F5 gombot a VBA kód futtatásához.

5. Most a Macro megjelenik a párbeszédpanel, kattintson a gombra futás gombot.

6. Várja meg, amíg a Makró fut. Ezután az összes e-mail mappa listája azonnal megjelenik egy létrehozott új üzenetablakban. Könnyen kinyomtathatja. Lásd a képernyőképet: