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

Hur får jag en lista över mappar i Outlook?

Ibland kan trädstrukturen för alla e-postmappar (inkludera de skapade personliga mapparna) i navigeringsfönstret hjälpa till för Outlook-användare under sitt arbete. För att snabbt lista alla mappar i trädstrukturen kan VBA-koden hjälpa dig. I denna handledning kan du lära dig hur du enkelt får en lista över mappar med VBA-kod.

Få en lista över mappar i Outlook med VBA-kod

Fliken Office - Aktivera redigering och surfning på flikar i Office, och gör arbetet mycket enklare ...
Kutools for Outlook - ger 100 kraftfulla avancerade funktioner till Microsoft Outlook
  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter regler; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden på en gång; Lägg automatiskt till hälsning när svar Lägg automatiskt till datum och tid i ämne ...
  • Tillbehörsverktyg: Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla automatiskt ... Snabbrapport, Räkna utvalda e-postmeddelanden, Ta bort duplicerade e-postmeddelanden och kontakter ...
  • Mer än 100 avancerade funktioner kommer lösa de flesta av dina problem i Outlook 2021 - 2010 eller Office 365. Fullständiga funktioner 60 dagars gratis provperiod.

pil blå höger bubblaFå en lista över mappar i Outlook med VBA-kod

För att få en lista över mappar i Outlook med VBA-kod, gör så här.

1. tryck på andra + F11 tangenter på tangentbordet för att öppna Microsoft Visual Basic för applikationer fönster.

2. Dubbelklicka sedan på Project1 > Microsoft Outlook-objekt > ThisOutlookSession att öppna Project1 - ThisOutlookSession fönster. Se skärmdump:

3. Kopiera och klistra in nedanstående VBA-kod i Project1 - ThisOutlookSession-fönstret.

VBA: få en lista över mappar 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. tryck på F5 på tangentbordet för att börja köra VBA-koden.

5. Nu a Makro dialogrutan dyker upp, klicka på run knapp.

6. Vänta tills makroen är igång. Sedan listas alla dina e-postmappar direkt i ett skapat nytt meddelandefönster. Du kan enkelt skriva ut det. Se skärmdump:

Anmärkningar: Den här VBA-koden kan tillämpas på Outlook 2007, 2010 och 2013.


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (2)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Fungerar perfekt med OLK 365, tack!
Denna kommentar minimerades av moderatoren på webbplatsen
För att få reda på storleken på mapparna hur gör man?
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL