새 수신 이메일과 동일한 주제를 가진 이전 이메일의 이름을 자동으로 바꾸거나 제거하는 방법

Outlook 솔루션 2025 년 9 월 29 일

일부 사람들은 Outlook이 새 이메일이 도착하면 이전 이메일의 제목을 자동으로 확인하고 새 이메일과 제목이 동일한 경우 이전 이메일의 이름을 바꾸거나 삭제할 수 있기를 바랍니다. 이를 위해서는 Outlook VBA를 사용해야합니다. 이 기사는 당신이 그것을 달성하는 데 도움이 될 것입니다.

제목이 같은 이메일을 많이 받았을 것입니다. 이메일 목록에서 식별하고 구별하는 것이 조금 번거 롭습니까? 아니면 그 오래된 이메일이 당신에게 정확히 쓸모 없다고 생각하십니까? 그렇다면 새 이메일이 도착할 때 Outlook이 모든 기존 이메일을 자동으로 스캔하고 확인하도록해야합니다. 새 이메일과 제목이 같은 이메일이있는 경우 Outlook에서 이름을 바꿀지 삭제할지 묻는 메시지가 표시됩니다. 의심 할 여지없이 Outlook은 이러한 종류의 기능을 사용자에게 제공하지 않습니다. 따라서 VBA에 의지해야합니다. 여기에서는 자세한 코드와 작업을 공개합니다.

자동 이름 변경 또는 이전 이메일 제거

먼저 Outlook을 실행하고 "개발자" 탭으로 이동하세요.
그러면 "Visual Basic"버튼을 찾아 클릭 할 수 있습니다.
그것을 치면 VBA 편집기 창에 액세스합니다. 여기에서 "ThisOutlookSession"프로젝트를 열어야합니다.
다음으로 다음 VBA 코드를 복사하여 붙여 넣어야합니다.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    'Specify the Emails in Inbox folder
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim i As Long
    Dim objVariant As Variant
    Dim strMsg As String
    Dim nRes As Integer

    For i = 1 To olItems.Count
        Set objVariant = olItems.Item(i)
        If TypeOf objVariant Is MailItem Then
           If objVariant.Subject = Item.Subject And objVariant.ReceivedTime < Item.ReceivedTime Then
              nDateDiff = DateDiff("d", objVariant.ReceivedTime, Now)
              'Add "(Old)" suffix to the email subjects
              objVariant.Subject = objVariant.Subject & "(Old)"
              objVariant.Save
              'If the old emails have been recieved for 60 days, ask you whether to delete
              If nDateDiff > 60 Then
                 strMsg = "There are some older emails whcih have the same subjects with the new email and have been recieved for 2 months. Do you want to delete them?"
                 nRes = MsgBox(strMsg, vbExclamation + vbYesNo, "Find Older Emails")
                 If nRes = vbYes Then
                    objVariant.Delete
                 End If
              End If
           End If
        End If
    Next
End Sub

이후에이 코드에 디지털 서명을해야합니다. "도구"> "디지털 서명"을 누르십시오. 그런 다음 팝업 대화 상자에서 기존 인증서 하나를 선택할 수 있습니다. 기성 인증서가없는 경우 "VBA 프로젝트 용 디지털 인증서"를 사용하여 새 인증서를 만들 수 있습니다.
그 후 현재 창을 종료하고 매크로 설정을 변경하여 디지털 서명 된 매크로 만 허용 할 수 있습니다.
마지막으로 Outlook을 다시 시작하면 새 매크로가 활성화됩니다. 이제부터 받은 편지함에 새 이메일이 도착하면 Outlook에서 기존 이메일을 자동으로 확인합니다.

이전 이메일의 제목이 새 이메일과 동일한 경우 Outlook은 자동으로 이메일 제목에 "(이전)"접미사를 추가합니다.
이전 이메일이 2 개월 이상 Inbox에 저장되어있는 경우 아래 그림과 같이 삭제할 것인지 묻는 메시지가 표시됩니다. 필요에 따라 "예"또는 "아니요"를 선택할 수 있습니다.

큰 크기로 인한 Outlook 파일 손상

일부 사용자들은 Outlook에서 오래된 항목을 정기적으로 삭제하는 습관이 없습니다. 그 결과 Outlook 파일 크기가 커지게 되는데, 이는 바람직하지 않습니다. 크기가 큰 Outlook 파일은 작은 파일보다 훨씬 취약하기 때문입니다. 파일이 손상되면 내장된 복구 도구인 Scanpst.exe로는 대부분의 경우 복구할 수 없습니다. 따라서 다른 효과적인 복구 방법을 사용하는 것이 최선의 선택일 수 있습니다. 손상된 Outlook PST 복구 도구, 처럼 DataNumen Outlook Repair.

저자 소개 :

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