Slik arkiverer du raskt alle utløpte e-poster i Outlook

Outlook tillater brukere å angi utløpstid for e-poster. Slike e-poster vises med grå gjennomstrekingsskrift. Hvis du raskt vil arkivere alle utløpte e-poster, kan du bruke metoden introdusert i denne artikkelen.

Du kan angi hvilken som helst utløpstid for alle e-poster i Outlook. Når utløpstiden er passert, vil e-postene bli merket som utløpt med en grå gjennomstreking. I dette scenariet er det alltid foreslått å raskt arkivere dem, da de sannsynligvis ikke er nyttige lenger. Arkivering av dem kan redusere størrelsen på Outlook-filen i en viss grad. I det følgende vil vi lære deg hvordan du raskt arkiverer alle utløpte e-poster i Outlook.

Arkiver raskt alle utløpte e-poster i Outlook

Arkiver raskt alle utløpte e-poster

  1. For somtart, start Outlook-programmet.
  2. Deretter, i Outlook-skjermen, kan du trykke på "Alt + F11"-tastene for å få tilgang til VBA-editor.
  3. Neste i "Microsoft Visual Basic for Applications"-vinduet må du åpne en ubrukt modul eller sette inn en ny direkte.
  4. Deretter bør du kopiere følgende VBA-kode inn i denne modulen.
Dim objArchiveFile As folder Dim objArchiveFolder As folder Sub ArchiveAllExpiredEmails() Dim objOutlookFile As Outlook.folder Dim objFolder As Outlook.folder Set objOutlookFile = Application.Session.PickFolder 'Open the Archive PST File Application.Session.AddStore "C:Test\UsStore" \Documents\Outlook Files\Archive.pst" Sett objArchiveFile = Application.Session.folders("Archives") Hvis ikke (objOutlookFile er ingenting) Så for hver objFolder I objOutlookFile.folders If objFolder.DefaultItemType = olFoldMailItemob Call Process End If Next 'Hvis du vil lukke Arkiv PST-filen, bruk følgende linje 'Application.Session.RemoveStore objArchivePSTFile MsgBox "Complete!", vbExclamation End If End Sub Sub ProcessFolders(ByVal objCurrentFolder As Outlook.folder) Dim i As Long Dim objMail As Outlook.MailItem Dim objSubfolder As Outlook.folder For i = objCurrentFolder.Items.count To 1 Step -1 If TypeOf objCurrentFolder.Items(i) Is MailItem Sett objMail = objCurrentFolder.Items(i) 'Flytt utløpte e-poster til arkiver File If objMail.ExpiryTime < Now Then On Error Resume Next Set objArchiveFolder = objArchiveFile.folders(objCurrentFolder.Name) If objArchiveFolder Is Nothing Then Set objArchiveFolder = objArchiveFile.folders.Add(obj.CurrentFolderFold Obj If Next 'Behandle alle undermapper rekursivt If objCurrentFolder.folders.count > 0 Then For Every objSubfolder In objCurrentFolder.folders Call ProcessFolders(objSubfolder) Next End If End Subfolder

VBA-kode – Arkiver raskt alle utløpte e-poster

  1. Deretter kan du kjøre denne makroen med en gang. Bare klikk på "Kjør"-ikonet i verktøylinjen eller trykk på "F5"-tasten.
  2. Etter det må du velge en Outlook-kildefil som skal sjekkes for utløpte e-poster.
  3. Senere, etter å ha valgt og trykket "OK", vil makroen start løper.
  4. Når du mottar meldingen som ber om "Fullfører", har de utløpte e-postene blitt flyttet til Arkiv PST-filen.Arkiverte utløpte e-poster

I tilfelle Outlook-krasj

Hvis du er en vanlig bruker av Outlook i flere tiår, kan Outlook-datafilen din ha vært i en ganske stor størrelse. I dette tilfellet er filen faktisk veldig sårbar for mange faktorer. Som vi alle vet, selv om Outlook er utpekt som en ekstraordinær e-postklient, er den fortsatt utsatt for å krasje og bli skadet. Derfor bør du forberede en avansert Outlook reparasjon verktøy i nærheten, som f.eks DataNumen Outlook Repair. Det kan redde deg fra Outlook-datakorrupsjon som en lek.

Forfatterintroduksjon:

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

2 svar på "Slik arkiverer du raskt alle utløpte e-poster i Outlook"

  1. Er videoeffektene som "speil" som er tilgjengelig på skrivebordsversjonen av VLC også tilgjengelig på Android-versjonen? Hvis ikke, er det noen planer om å legge dem til? Det ville vært utmerket!

    apollogrouptv.ink

Legg igjen en kommentar

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