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
- 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.
Få 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.

