Gå til hovedindhold

Hvordan får jeg en liste over mapper i Outlook?

Undertiden kan træstrukturen for alle mailmapper (inkludere de oprettede personlige mapper) i navigationsruden hjælpe Outlook-brugere under deres arbejde. For hurtigt at liste hele træstrukturmapperne kan VBA-koden hjælpe dig. I denne vejledning kan du lære, hvordan du nemt får en liste over mapper med VBA-kode.

Få en liste over mapper i Outlook med VBA-kode

Office-faneblad - Aktiver fanebaseret redigering og browsing i Microsoft Office, hvilket gør arbejdet til en leg
Kutools til Outlook - Boost Outlook med 100+ avancerede funktioner for overlegen effektivitet
Boost din Outlook 2021 - 2010 eller Outlook 365 med disse avancerede funktioner. Nyd en omfattende 60-dages gratis prøveperiode og løft din e-mail-oplevelse!

pil blå højre bobleFå en liste over mapper i Outlook med VBA-kode

For at få en liste over mapper i Outlook med VBA-kode skal du gøre som følger.

1. Tryk på andre + F11 taster på tastaturet for at åbne Microsoft Visual Basic til applikationer vindue.

2. Dobbeltklik derefter på Project1 > Microsoft Outlook-objekt > Denne OutlookSession at åbne Project1 - ThisOutlookSession vindue. Se skærmbillede:

3. Kopier og indsæt derefter nedenstående VBA-kode i Project1 - ThisOutlookSession-vinduet.

VBA: få en liste over mapper i Outlook

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. Tryk på F5 tasten på tastaturet for at starte kørsel af VBA-koden.

5. Nu en Makro dialogboksen vises, skal du klikke på Kør .

6. Vent til makroen kører. Derefter vises listen over alle dine e-mail-mapper straks i et oprettet nyt meddelelsesvindue. Du kan nemt udskrive det. Se skærmbillede:

Bemærk: Denne VBA-kode kan anvendes på Outlook 2007, 2010 og 2013.


Bedste kontorproduktivitetsværktøjer

Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook

🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...

📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP)  /  Planlæg Send e-mails  /  Auto CC/BCC efter regler ved afsendelse af e-mail  /  Automatisk videresendelse (avancerede regler)   /  Tilføj automatisk hilsen   /  Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...

📨 Email Management: Genkald nemt e-mails  /  Bloker svindel-e-mails af emner og andre  /  Slet duplikerede e-mails  /  Avanceret søgning  /  Konsolider mapper ...

📁 Vedhæftede filer ProBatch Gem  /  Batch adskilles  /  Batch komprimere  /  Automatisk gem   /  Automatisk afmontering  /  Automatisk komprimering ...

🌟 Interface Magic: 😊 Flere smukke og seje emojis   /  Boost din Outlook-produktivitet med fanebaserede visninger  /  Minimer Outlook i stedet for at lukke ...

👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer  /   Anti-phishing e-mails  /  🕘Vis afsenderens tidszone ...

👩🏼‍🤝‍👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails  /  Opdel en kontaktgruppe til individuelle grupper  /  Fjern fødselsdagspåmindelser ...

Over 100 Features Afvent din udforskning! Klik her for at finde mere.

Læs mere       Gratis download      Køb
 

 

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