Note: The other languages of the website are Google-translated. Back to English

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

Fanen Office - Aktiver redigering og browsing med faner i Office, og gør arbejdet meget nemmere ...
Kutools til Outlook - bringer 100 kraftige avancerede funktioner til Microsoft Outlook
  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter regler; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle, hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Besvar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på én gang; Tilføj automatisk hilsen når svar Tilføj automatisk dato og tid til emne ...
  • Vedhæftningsværktøjer: Automatisk afmontering, Komprimer alt, Omdøb alt, Gem alle automatisk ... Hurtig rapport, Tæl valgte mails, Fjern duplikerede mails og kontakter ...
  • Mere end 100 avancerede funktioner vil løse de fleste af dine problemer i Outlook 2021 - 2010 eller Office 365. Fuld funktioner 60-dages gratis prøveperiode.

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.


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (2)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Fungerer perfekt med OLK 365, tak!
Denne kommentar blev minimeret af moderatoren på webstedet
For at få størrelsen på mapperne, hvordan gør du det?
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL