Як пакетно видалити вкладення із застарілих елементів календаря у вашому Outlook

Якщо ви хочете видалити вкладення із застарілих зустрічей і зустрічей у своєму Outlook, ви можете прочитати цю статтю. Тут ми розповімо вам, як реалізувати це за один раз.

Щоб зменшити розмір файлу Outlook, настійно радимо очистити старі елементи. Це можна реалізувати за допомогою вбудованої функції «Автоархівація», яка може видаляти старі елементи автоматично через регулярні проміжки часу. Однак деякі користувачі просто хочуть видалити вкладення в старих елементах, не впливаючи на самі елементи. Далі ми навчимо вас масово видаляти вкладення зі старих елементів календаря.

Пакетне видалення вкладень із застарілих елементів календаря

1. Для початку увійдіть у редактор Outlook VBA за допомогою «Alt + F11».
2. Потім у вікні «Microsoft Visual Basic для програм» скопіюйте код VBA в модуль.

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. Після цього натисніть макрос «BatchDeleteAttachmentsOfOldCalendarItems».
4. Зрештою, натисніть кнопку F5, щоб запустити цей макрос.
5. Коли макрос буде завершено, ви зможете перевірити всі свої календарі Outlook.
6. Outlook має видалити всі вкладення елементів календаря, яким більше 2 місяців.

Справитися з пошкодженими файлами Outlook

Ви коли-небудь стикалися з пошкодженням Outlook? Як ви ним зазвичай розпоряджаєтеся? Найчастіше ви спочатку спробуєте інструмент відновлення папки "Вхідні" – scanpst. Але, у разі серйозного пошкодження PST, вбудована утиліта вам не допоможе. Таким чином, пропонується тримати поблизу більш досвідчений і видатний сторонній інструмент, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql ремонт та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com