Slik fjerner du vedlegg fra utdaterte kalenderelementer i Outlook

Hvis du ønsker å fjerne vedlegg fra utdaterte avtaler og møter i Outlook, kan du lese denne artikkelen. Her vil vi introdusere deg hvordan du kan realisere det på én gang.

For å redusere størrelsen på Outlook-filen, er det sterkt tilrådelig å rydde opp i gamle gjenstander. Dette kan realiseres med den innebygde "AutoArchive"-funksjonen, som kan slette de gamle elementene automatisk med jevne mellomrom. Noen brukere ønsker imidlertid bare å slette vedleggene i de gamle elementene uten å påvirke selve elementene. I det følgende lærer vi deg å massefjerne vedlegg fra gamle kalenderelementer.

Batch Fjern vedlegg fra utdaterte kalenderelementer

1. Til å begynne med, få tilgang til Outlook VBA-editor ved å bruke "Alt + F11".
2. Deretter, i "Microsoft Visual Basic for Applications"-vinduet, kopierer du VBA-koden til en 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. Etterpå klikker du på makroen "BatchDelete AttachmentsOfOldCalendarItems".
4. Til slutt, trykk på "F5"-tasten for å kjøre denne makroen.
5. Når makroen er fullført, kan du sjekke alle Outlook-kalenderene dine.
6. Outlook må ha slettet alle vedleggene til kalenderelementene som er mer enn 2 måneder gamle.

Håndtere korrupte Outlook-filer

Har du noen gang møtt Outlook-korrupsjon? Hvordan kaster du det vanligvis? Oftere enn ikke vil du først prøve reparasjonsverktøyet for innboks – scanpst. Men i tilfelle alvorlig PST-skade kan det innebygde verktøyet ikke hjelpe deg. Derfor foreslås det å ha et mer erfarent og bemerkelsesverdig tredjepartsverktøy i nærheten, som f.eks. DataNumen Outlook Repair.

Forfatterintroduksjon:

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