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

Preberite več ...Prenos ...

Kutools za Outlook – izboljšajte Outlook s 100+ naprednimi funkcijami za vrhunsko učinkovitost

Avtomatizirajte pošiljanje e-pošte z Samodejno CC / BCC, Samodejno posredovanje naprej po pravilih; poslati Samodejni odgovor (Zven pisarne) brez potrebe po strežniku za izmenjavo ...
Prejemajte opomnike, kot je Opozorilo pred BCC ko odgovarjate vsem, ko ste na seznamu BCC, in Opomni, ko manjkajo priloge za pozabljene priloge...
Izboljšajte učinkovitost e-pošte z Odgovori (vsem) s priponkami, Samodejno dodajte pozdrav ali datum in uro v podpis ali zadevo, Odgovorite na več e-poštnih sporočil...
Poenostavite pošiljanje e-pošte z Odpoklic e-pošte, Orodja za pritrditev (Stisni vse, samodejno shrani vse ...), Odstrani dvojnikein Hitro poročilo...

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!

Preberite več ...Prenos ...

Pridobite 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: