Outlook에서 모든 읽음 확인을 일괄 삭제하는 방법

수신자가 이메일을 읽었는지 확인하기 위해 이메일을 작성할 때 수신 확인을 요청할 수 있습니다. 이 상황에서 사서함은 이러한 수신 확인으로 가득 차있을 수 있습니다. 자,이 post 영구적으로 일괄 삭제하는 방법을 알려줍니다.

기사를 읽은 후“Outlook에서 모든 배달 확인을 일괄 삭제하는 방법", 모든 수신 확인을 대량 삭제하는 방법에 대해 생각할 수 있습니다. 사실, 두 종류의 영수증의 명백한 차이점은 주제입니다. 배달 확인에는 제목에 "배달 됨"이 포함되지만 읽음 확인에는 대신 "읽음"이 포함됩니다. 따라서 동일한 방법으로 모든 수신 확인을 일괄 삭제할 수 있습니다. 다음에서는 구체적인 단계를 자세히 설명합니다.

모든 읽은 영수증 일괄 삭제

1. 처음에는 star당신의 Outlook.
2. 그런 다음 "Alt + F11"을 통해 Outlook VBA 편집기로 이동합니다.Outlook에서 VBA 코드를 실행하는 방법".
3. 다음으로 새 창에서 빈 모듈을 열고 다음 코드를 삽입합니다.

Dim objOutlookFile As Outlook.Folder

Sub BatchDeleteAllReadReceipts()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
    Dim lTotalCount As Long
 
    lTotalCount = 0
   'Process all Outlook files
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder, lTotalCount)
            End If
        Next
    Next
 
    'Prompt you of the results
    MsgBox lTotalCount & " read receipts are deleted!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, lCount As Long)
    Dim i As Long
    Dim objDeliveryReceipt As Outlook.ReportItem
    Dim objSubfolder As Outlook.Folder
    Dim objDeletedItems As Outlook.Items
    Dim objItem As Object
 
    For i = objCurrentFolder.Items.Count To 1 Step -1
        'Find read receipts
        If (TypeOf objCurrentFolder.Items(i) Is ReportItem) And (Left(objCurrentFolder.Items(i).Subject, 5) = "Read:") Then
           Set objDeliveryReceipt = objCurrentFolder.Items.Item(i)
           objDeliveryReceipt.Delete
 
           lCount = lCount + 1
 
           'Permanently delete them
           Set objDeletedItems = objOutlookFile.Folders("Deleted Items").Items
           For Each objItem In objDeletedItems
               If (TypeOf objItem Is ReportItem) And (Left(objItem.Subject, 5) = "Read:") Then
                  objItem.Delete
               End If
           Next
         End If
    Next
 
    'Loop subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

4. 그 후 첫 번째 서브 루틴을 클릭하십시오.
5. 마지막으로“F5”키 버튼을 누릅니다.
6. 한 번에 매크로는 Outlook에서 모든 읽음 확인을 삭제하도록 작동합니다.
7. 완료되면 아래 스크린 샷과 같이 결과에 대한 메시지가 표시됩니다.
8. 현재 메일 폴더를 확인할 수 있습니다. 모든 수신 확인이 사라졌습니다.

Outlook 데이터 방어

Outlook 파일이 손상되기 쉬운 것은 인정하지만이를 보호하기위한 조치를 취할 수 있습니다. 예를 들어 Outlook 파일을 작은 크기로 유지하고 악의적 인 요인으로부터 보호하고 정기적으로 백업해야합니다. 마지막으로, 다음과 같은 강력한 외부 PST 복구 도구를 준비하는 것이 좋습니다. DataNumen Outlook Repair. 수리에 큰 영향을 미칠 것입니다 손상된 Outlook 파일.

저자 소개 :

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