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

Outlook 솔루션 2025 년 9 월 29 일

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

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

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

처음에는 다음을 수행 할 수 있습니다.tart 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 프로젝트 용 디지털 인증서"를 사용하여 새 인증서를 만들 수 있습니다.
그 후 현재 창을 종료하고 매크로 설정을 변경하여 디지털 서명 된 매크로 만 허용 할 수 있습니다.
결국, 당신은 res 수 있습니다tart Outlook에서 새 매크로를 활성화합니다. 이제부터 새 이메일이받은 편지함에 도착하면 Outlook은 기존 이메일을 모두 자동으로 확인합니다.

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

큰 크기로 인한 Outlook 파일 손상

어떤 사람들은 Outlook에서 정기적으로 오래된 항목을 삭제하는 습관이 없습니다. 따라서 Outlook 파일은 크기가 크므로 정확히 권장하지 않습니다. 크기가 큰 Outlook 파일은 작은 크기의 파일보다 훨씬 취약하기 때문입니다. 파일이 손상되면 내장 복구 도구 인 Scanpst.exe가 m에서 무력합니다.ost 케이스. 당신의 독특한 리조트는 놀랍고 잘 입증 될 수 있습니다 손상된 Outlook PST 복구 도구, 처럼 DataNumen Outlook Repair.

저자 소개 :

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