Hvordan få liste over mapper i Outlook?
Noen ganger trestrukturen av alle postmapper (inkluderer de opprettede personlige mapper) i navigasjonsruten kan gjøre noen hjelpe for Outlook-brukere i løpet av sitt arbeid. For raskt liste opp hele trestruktur mapper, kan VBA-kode hjelpe deg. I denne opplæringen kan du lære hvordan du får liste over mapper lett med VBA-kode.
2013.
Hent liste over mapper i Outlook med VBA-kode
For å få oversikt over mapper i Outlook med VBA-kode, kan gjør som følger.
1. Trykk Alt + F11 på tastaturet for å åpne Microsoft Visual Basic for Applications vinduet.
2. Deretter dobbeltklikker du Project1 > Microsoft Outlook Object > ThisOutlookSession å åpne Project1 - ThisOutlookSession vinduet. Se skjermbilde:
tre. Deretter kopiere og lime inn nedenfor VBA koden i Project1 - ThisOutlookSession vindu
VBA. Få liste over mapper i Outlook
Alternativ ExplicitSub GetFoldersList () On Error GoTo On_Error Dim Rapporter As String Dim Folder Som Outlook.Folder For Hver Folder I Application.Session.Folders Rapporter = Rapport & "------------------------------------------------- -------------------------- "& vbCrLf Call RecurseFolders (Folder ",", Rapport) Neste Call CreateReportEmail ("Outlook mappeliste", Rapport) Avslutte: Exit SubOn_Error: MsgBox "error =" & Err.number & "" &Amp; Err.DescriptionEnd SubSub RecurseFolders (Current Som Outlook.Folder, TabChars, ByRef Rapporter As String) Dim undermappe som Outlook.Folder Dim Mappe, StoreName As String Mappe = CurrentFolder.Name StoreName = CurrentFolder.Store.DisplayName Rapporter = Rapport & TabChars & Mappe & "(Store:" & StoreName & ")" & vbCrLf For hver undermappe I CurrentFolder.Folders Call RecurseFolders (mappen TabChars & vbTab, Report) Neste SubFolderEnd SubSub CreateReportEmail (Tittel As String, Rapporter As String) Dim amail Som MailItem Set amail = Application.CreateItem (olMailItem) aMail.Subject = Tittel aMail.Body = Rapporter aMail.DisplayEnd Sub4. Trykk F5-tasten på tastaturet for å begynne å kjøre VBA-kode.
5. Nå er en Macro dialogboks åpnes, klikker du på Kjør-knappen.
6. Vent til Macro kjører. Da listen over alle dine e-postmapper er listet ut i et skapt nytt meldingsvindu umiddelbart. Du kan enkelt skrive det ut. Se skjermbilde:
Merk: Dette VBA-kode kan brukes til Outlook 2007, 2010 og 2013.
