Outlook의 오래된 일정 항목에서 첨부 파일을 일괄 제거하는 방법

Outlook의 오래된 약속 및 모임에서 첨부 파일을 제거하려는 경우 이 문서를 읽을 수 있습니다. 여기에서 한 번에 실현하는 방법을 소개합니다.

Outlook 파일의 크기를 줄이려면 오래된 항목을 정리하는 것이 좋습니다. 이는 내장된 "자동 보관" 기능으로 실현할 수 있으며, 이 기능은 정기적으로 오래된 항목을 자동으로 삭제할 수 있습니다. 그러나 일부 사용자는 항목 자체에 영향을 주지 않고 이전 항목의 첨부 파일만 삭제하기를 원합니다. 다음에서는 이전 캘린더 항목에서 첨부 파일을 일괄 제거하는 방법을 알려드립니다.

오래된 일정 항목에서 첨부 파일 일괄 제거

1. 우선 "Alt + F11"로 Outlook VBA 편집기에 액세스합니다.
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 손상이 발생한 적이 있습니까? 보통 어떻게 버리나요? 대부분의 경우 받은 편지함 오류 수정 도구를 먼저 시도합니다. 스캔프스트. 그러나 심각한 PST 손상의 경우 내장 유틸리티가 도움이 되지 않습니다. 따라서 다음과 같이 경험이 풍부하고 뛰어난 타사 도구를 가까이에 두는 것이 좋습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL 수리 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM