Hvis du vil sjekke størrelsesinformasjonen til hver mappe i en PST-fil, kan du bruke metoden som er eksponert i denne artikkelen. Det vil raskt eksportere størrelsesinformasjonen til alle mappene i en PST-fil til en Excel-fil.
Når PST-filen din er for stor, kan det være lurt å sjekke størrelsen på hver mappe. Det hjelper deg enkelt å finne ut hvilke som er de største og gjøre passende arkivering på grunnlag av størrelsen. Generelt, for å sjekke mappestørrelsen, kan du ganske enkelt høyreklikke på en mappe og deretter velge "Egenskaper". I den nye popup-dialogboksen kan du klikke på "Mappestørrelse"-knappen. Men hvis du har opprettet mange mapper, er det betydelig vanskelig å kontrollere størrelsesinformasjonen én etter én manuelt. Så hvis du ønsker å batch få størrelsesinformasjonen til alle mappene i en PST-fil, kan du bruke følgende VBA-kode. Den eksporterer alle mappenavn og størrelsesinformasjon til en Excel-fil på én gang.
Eksporter størrelsesinformasjonen for alle mapper i en PST-fil til en Excel-fil
- Til start med, start Outlook-applikasjonen.
- Bytt deretter til «Utvikler»-fanen og klikk på «Visual Basic»-knappen eller trykk på «Alt + F11»-tastene for å få tilgang til VBA-redigering.
- I "Microsoft Visual Basic for Applications"-vinduet åpner du en modul som ikke er i bruk.
- Deretter kopierer og limer du inn følgende VBA-koder i denne modulen.
Dim strExcelFile As String Dim objExcelApp Som Excel.Application Dim objExcelWorkbook As Excel.Workbook Dim objExcelWorksheet As Excel.Worksheet Sub ExportFodlerSizetoExcel() Dim objSourcePST As Outlook.Folder Dim objFolder As Outlook.Folder Set objExcelp"ExcelObjExcelpplication"") objExcelWorkbook = objExcelApp.Workbooks.Add Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1") objExcelWorksheet.Cells(1, 1) = "Folder" objExcelWorksheet.Cells(1, 2) = "Set asource PTS = Outlook.Application.Session.PickFolder For Every objFolder In objSourcePST.Folders Call ProcessFolders(objFolder) Neste 'Tilpass kolonnene fra A til B objExcelWorksheet.Columns("A:B").AutoFit strExcelFile = "E:\Outlook\" & objSourcePST.Name & " Mappestørrelse (" & Format(Nå, "åååå-mm-dd tt-mm-ss") & ").xlsx" objExcelWorkbook.Close True, strExcelFile MsgBox "Complete!", vbExclamation End Sub Sub Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder) Dim objItem As Object Dim lCurrentFolderSize As Long Dim nNextEmptyRow As Integer objCurrentFolder.Items.SetColumns ("Størrelse") For hver objItem In objCurrentFolderSolderFolderSolderFolderSoldjCurrentFolderSolderFolder. .Størrelse Neste 'Konverter byte til kilobyte 'For å konvertere til megabyte, bruk: 'lCurrentFolderSize = (lCurrentFolderSize / 1024) / 1024 lCurrentFolderSize = lCurrentFolderSize / 1024 nNextEmptyRow = objExcelWorksheet.Range"ExcelAxsheet" &Range"ExcelAxsheet"Objectsheet.Range.Range(RangeW). Rad + 1 ' Legg til verdiene i kolonnene objExcelWorksheet.Range("A" & nNextEmptyRow) = objCurrentFolder.FolderPath objExcelWorksheet.Range("B" & nNextEmptyRow) = lCurrentFolderSize & "KBolderFolderFolder objSubold" If hver objSubold.CounterF objC. jCurrent Folder .Folders Call ProcessFolders(objSubfolder) Next End If End Sub
- Etter det bør du sette Outlook-makrosikkerhetsnivået til lavt.
- Til slutt kan du prøve.
- Trykk på F5-tasten i gjeldende makrovindu.
- Deretter vil du bli bedt om å velge en PST-fil, som følgende bilde:
- Etter å ha valgt en kildefil, vil Outlook begynne å eksportere størrelsesinformasjonen til Excel.
- Etter at makroen er ferdig, mottar du en melding som skjermbildet nedenfor.
- Til slutt vil du kunne finne Excel-filen i den forhåndsdefinerte lokale mappen. Excel-filen vil se slik ut:
Håndter hyppige PST-feil
Siden Outlook er utsatt for feil, kan det hende du noen gang har hatt mange problemer i Outlook. For å bedre og mer fleksibelt takle frustrerende PST-problemer, er det lurt å ha et erfarent og anerkjent fikseringsverktøy i nærheten, som f.eks. DataNumen Outlook Repair. Det er i stand til fikse PST problemer som en lek.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med