Kuidas Outlookis kiiresti arhiveerida kõik aegunud meilid

Outlook võimaldab kasutajatel määrata e-kirjade aegumisaja. Sellised meilid kuvatakse halli läbikriipsutatud kirjaga. Kui soovite kõik aegunud meilid kiiresti arhiivida, võite kasutada selles artiklis kirjeldatud meetodit.

Outlookis saate määrata mis tahes e-kirjade aegumisaja. Kui aegumisaeg on möödas, märgitakse meilid aegunuks halli läbikriipsutusega. Selle stsenaariumi korral on alati soovitatav need kiiresti arhiivida, kuna tõenäoliselt pole need enam kasulikud. Nende arhiveerimine võib teie Outlooki faili suurust teatud määral vähendada. Järgnevalt õpetame teile, kuidas kõiki aegunud e-kirju Outlookis kiiresti arhiveerida.

Arhiivige kiiresti kõik aegunud meilid

1. Sest nagutart, käivitage oma Outlooki programm.
2. Seejärel saate Outlooki ekraanil VBA redaktori avamiseks vajutada klahvikombinatsiooni Alt + F11.
3. Järgmisena peate aknas „Microsoft Visual Basic for Applications” avama kasutamata mooduli või sisestama otse uue.
4. Seejärel peaksite sellesse moodulisse kopeerima järgmise VBA koodi.

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:\Users\Test\Documents\Outlook Files\Archive.pst"
    Set objArchiveFile = Application.Session.folders("Archives")
 
    If Not (objOutlookFile Is Nothing) Then
 
       For Each objFolder In objOutlookFile.folders
           If objFolder.DefaultItemType = olMailItem Then
              Call ProcessFolders(objFolder)
           End If
       Next
 
       'If want to close the Archive PST file, use the following line
       '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 Then
           Set objMail = objCurrentFolder.Items(i)
 
           'Move Expired Emails to Archive 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(objCurrentFolder.Name)
              End If
 
              objMail.Move objArchiveFolder
           End If
       End If
    Next
 
    'Process All Subfolders Recursively
    If objCurrentFolder.folders.count > 0 Then
       For Each objSubfolder In objCurrentFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Seejärel saate seda makrot korraga käivitada. Klõpsake lihtsalt tööriistaribal ikooni "Käivita" või puudutage nuppu "F5".
6. Pärast seda peate valima Outlooki lähtefaili, mida kontrollitakse aegunud e-kirjade suhtes.
7. Hiljem, pärast "OK" valimist ja vajutamist, kuvatakse makrotart jooksmas.
8. Kui saate teate „Lõpetab”, on aegunud meilid edukalt teisaldatud arhiivi PST-faili.

Outlooki krahhide korral

Kui olete Outlooki tavakasutaja aastakümneid, võis teie Outlooki andmefail olla üsna suur. Sellisel juhul on fail tegelikult paljude tegurite suhtes väga haavatav. Nagu me kõik teame, on Outlooki reklaamitud kui erakordset meiliklienti, kuid see võib siiski kokku kukkuda ja kahjustada saada. Seega on parem ette valmistada edasijõudnu Outlooki parandamine läheduses asuv tööriist, nt DataNumen Outlook Repair. See võib päästa teid Outlooki andmete korruptsioonist nagu imelihtne.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql korruptsioon ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom