Hvordan lage et gratis kompakt PST-verktøy via Outlook VBA

Hvis du vil komprimere Outlook-datafilen, vil du generelt velge å bruke "Komprimer nå"-funksjonen i Outlook. Men det har noen ulemper. Derfor vil vi i denne artikkelen lære deg å lage et mer robust kompakt PST-verktøy via VBA.

Som vi alle vet, vil Outlook-filen være utsatt for feil og korrupsjon ettersom filen blir stadig større. Derfor bør du være oppmerksom på størrelsen på Outlook-filen din for å holde den i liten størrelse. Bortsett fra å fjerne ubrukelige og gamle gjenstander, kan du også komprimere Outlook-datafilen for å redusere størrelsen.

Lag et gratis kompakt PST-verktøy via Outlook VBA

Om innebygd "Compact Now"-funksjon

Kanskje du har funnet ut at Outlook kommer med en innebygd "Compact Now"-funksjon. Etter å ha startet Outlook-programmet, i postnavigasjonsruten, kan du høyreklikke på Outlook-datafilen du vil komprimere. Velg deretter "Data File Properties" fra kontekstmenyen. Neste i den påfølgende dialogboksen, trykk på "Avansert" -knappen. Senere vil du kunne finne "Compact Now". Selv om en slik funksjon er hendig, har den fortsatt mange mangler.

Innebygd "Compact Now"-funksjon

Den store ulempen er at hvis kildedatafilen i Outlook er betydelig stor, vil det ta ganske lang tid å fullføre komprimeringsprosessen. Dessuten må kildedatafilen for Outlook ha vært brukt i lang tid, og kan derfor inneholde mange skjulte feil. "Kompakt nå"-funksjonen kan ikke hjelpe deg med å bli kvitt disse interne feilene.

Sammenlignet med dette innebygde verktøyet, har ikke et annet kompakt PST-verktøy, som vi vil lære deg å lage i det følgende, disse ulempene. Det kan fungere mye raskere selv om kildefilen er kjempestor. Les nå videre. Vi vil avsløre de forseggjorte trinnene og VBA-kodene.

Lag et gratis kompakt PST-verktøy for Outlook-fil

  1. For det første, trykk "Alt + F11" -tastene i hovedvinduet i Outlook.
  2. Deretter kan du åpne en modul som ikke er i bruk eller sette inn en ny modul.
  3. Deretter kopierer og limer du inn følgende VBA-koder i denne modulen.
Private Sub CompactPSTFile() Dim objSourceFileFolders As Outlook.Folders Dim objFolder As Outlook.Folder Dim objNewPSTFileFolder As Outlook.Folder 'Opprett en ny PST-fil i den forhåndsdefinerte lokale mappen og filnavnet Outlook.Application.Session.AddStore "E:\NewPST. pst" Angi objNewPSTFileFolder = Session.Folders.GetLast() 'Få alle mappene til kilde-PST-filen 'Endre "Personal" til kilde-PST-filens visningsnavn Set objSourceFileFolders = Outlook.Application.Session.Folders("Personal") .Mapper for hver objFolder I objSourceFileFolders objFolder.CopyTo objNewPSTFileFolder Next End Sub

VBA-kode - Lag et gratis kompakt PST-verktøy

  1. Etter det bør du sette Outlook-makrosikkerhetsnivået til lavt.
  2. Til slutt kan du utløse subrutinen ved å klikke på "Kjør"-ikonet eller trykke på F5-tasten i makrovinduet,
  3. Med en gang vil en ny Outlook-datafil vises i navigasjonsruten, som er komprimert fra Outlook-kildefilen.

Unngå elendig PST-datakorrupsjon

Som det jeg nevnte helt i begynnelsen av denne artikkelen, vil Outlook PST-filen være utsatt for korrupsjon når den er for stor. Derfor, bortsett fra å holde den i liten størrelse, må du sikkerhetskopiere den regelmessig. På denne måten, selv om filen lider av feil eller korrupsjon, kan du fortsatt enkelt komme tilbake korrupt PST data fra sikkerhetskopier. Det vil være veldig praktisk.

Forfatterintroduksjon:

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

Legg igjen en kommentar

Din e-postadresse vil ikke bli publisert. Obligatoriske felt er merket *