Slik utvider du alle mapper automatisk via VBA når Starting Outlook

Flere brukere håper at alle mappene kan utvides automatisk når de starter Outlook. I virkeligheten støtter Outlook det ikke naturlig. Derfor, for å innse det, må du bruke VBA-kode. Denne post vil gi deg en rask guide.

Du kan ha opprettet mange undermapper under standardmappene i Outlook. I møte med så mange mapper, for å raskt få tilgang til dem når som helst, kan det være lurt å holde alle mappene utvidet hele tiden. Det første trinnet må være å få Outlook til å automatisk utvide mappene på startup. Det er åpenbart ikke en slik innebygd funksjon i Outlook. Derfor må du bruke makroer. Deretter vil vi lære deg å oppnå det med VBA. Når det gjelder hvordan du bruker VBA, kan du referere til en annen artikkel - "Hvordan kjøre VBA-kode i Outlook".

Utvid alle mapper automatisk når Starting Outlook

1. Til å begynne med, trykk "Alt + F11" i Outlook for å få tilgang til VBA-redigering.
2. Deretter, i det nye vinduet, legger du koden inn i "ThisOutlookSession" -prosjektet.

'Utvid alle mapper automatisk på startup Private Sub Application_Startup() Call ExpandAllFolders End Sub Private Sub ExpandAllFolders() Dim objCurrentFolder As Outlook.Folder Dim objStore As Outlook.Store Dim objFileFolders As Outlook.Folders Dim objFolder As Outlook.Folder Set objCurrentFolder = Application.ActiveExplorer.CurrentFold email accounts din Outlook For Every objStore In Outlook.Application.Session.Stores Set objFileFolders = objStore.GetRootFolder.Folders For Every objFolder In objFileFolders Call LoopFolders(objFolder) Next DoEvents Set Application.ActiveExplorer.CurrentFolder = LoopFolderFolders er As Outlook.Folder) Dim objSubfolder As Outlook.Folder Set Application.ActiveExplorer.CurrentFolder = objCurFolder DoEvents 'Behandle alle undermapper rekursivt If objCurFolder.Folders.Count > 0 Then For Every objSubfolder In objCurFolder.Folders Call LoopSubfolders

3. Deretter lukker du VBA-editoren.
4. Avslutt deretter Outlook-applikasjonen på riktig måte.
5. Senere, start Outlook. På dette tidspunktet vil makroen kjøres automatisk.
6. Etter Outlook starts up, kan du se at alle mappene er utvidet, som vist i figuren nedenfor.

Hold alle ondsinnede makroer i sjakk

Har du noen gang mottatt e-poster som er vedlagt mistenkelige filer eller er innebygd med ukjente lenker? Vanligvis, når du konfronterer slike e-poster, må du øke årvåkenhet. Du bør aldri lett stole på dem fordi de kan bære virus. Når du laster ned vedleggene eller åpner koblingene, kan ikke bare Outlook, men også datamaskinen bli angrepet. På den tiden må du reparere Outlook fil. Det kan være ganske knotete med mindre du har en oppdatert Outlook-sikkerhetskopi eller bruker et kraftig gjenopprettingsverktøy, som f.eks. DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med