Kako paketno odstraniti priloge iz zastarelih elementov koledarja v Outlooku

Če želite odstraniti priloge iz zastarelih sestankov in sestankov v Outlooku, lahko preberete ta članek. Tukaj vam bomo predstavili, kako to realizirati v enem zamahu.

Če želite zmanjšati velikost datoteke Outlook, je zelo priporočljivo očistiti stare predmete. To je mogoče uresničiti z vgrajeno funkcijo »AutoArchive«, ki lahko samodejno v rednih intervalih samodejno izbriše stare elemente. Vendar nekateri uporabniki samo želijo izbrisati priloge iz starih elementov, ne da bi to vplivalo na elemente same. V nadaljevanju vas bomo naučili množičnega odstranjevanja prilog iz starih elementov koledarja.

Paket odstranite priloge iz zastarelih elementov koledarja

1. Za začetek odprite urejevalnik Outlook VBA prek »Alt + F11«.
2. Nato v okno »Microsoft Visual Basic for Applications« kopirajte kodo VBA v modul.

Sub BatchDeleteAttachmentsOfOldCalendarItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change to your own Outlook file
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
 
    For Each objFolder In objOutlookFile.Folders
        If objFolder.DefaultItemType = olAppointmentItem Then
           Call LoopCalendars(objFolder)
        End If
    Next
End Sub

Sub LoopCalendars(ByVal objCalendar As Outlook.Folder)
    Dim i, n As Long
    Dim objCalendarItem As Outlook.AppointmentItem
    Dim nDateDiff As Integer
    Dim objAttachments As Outlook.Attachments
    Dim objSubCalendar As Outlook.Folder
 
    For i = objCalendar.Items.Count To 1 Step -1
        Set objCalendarItem = objCalendar.Items(i)
 
        'Remove attachments from items that are more than 2 months old
        'Change the datediff as per your needs
        nDateDiff = DateDiff("m", objCalendarItem.End, Now) '=> "m" refers to month; "d" for day; "y" for year
        If nDateDiff > 2 Then
           Set objAttachments = objCalendarItem.Attachments
           If objAttachments.Count > 0 Then
              For n = objAttachments.Count To 1 Step -1
                  objAttachments(n).Delete
              Next
           End If
           objCalendarItem.Save
        End If
    Next

    'Process all subfolders recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call LoopCalendars(objSubCalendar)
       Next
    End If
End Sub

3. Nato kliknite makro »BatchDeleteAttachmentsOfOldCalendarItems«.
4. Na koncu pritisnite tipko “F5”, da zaženete ta makro.
5. Ko se makro dokonča, lahko preverite vse svoje koledarje v Outlooku.
6. Outlook je moral izbrisati vse priloge elementov koledarja, starejše od 2 mesecev.

Spopad s poškodovanimi datotekami Outlook

Ste že kdaj naleteli na korupcijo v Outlooku? Kako običajno z njim razpolagate? Najpogosteje bi najprej poskusili orodje za popravilo nabiralnika - scanpst. Toda v primeru resne poškodbe PST vam vgrajeni pripomoček ne more pomagati. Zato se priporoča, da v bližini držite bolj izkušeno in izjemno orodje tretjih oseb, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com