Outlook 이메일을 전달할 때 원래 보낸 사람 및받는 사람의 이메일 주소를 자동으로 제거하는 방법

Outlook 솔루션 2025 년 9 월 29 일

Outlook에서 이메일을 전달할 때 원래 보낸 사람과받는 사람의 이메일 주소가 메시지 본문에 포함됩니다. 이때 보안을 위해 이러한 주소를 제거하는 것이 좋습니다. 이 post Outlook이 자동으로 이 작업을 수행하도록 알려줍니다.

대부분의 경우 일부 이메일을 다른 사람에게 전달해야 합니다. 기본적으로 원본 이메일의 헤더는 전달 이메일의 본문에 표시됩니다. 헤더에는 원래 보낸 사람과 받는 사람의 이메일 주소가 포함됩니다. 이 시점에서 보안 또는 개인 정보 보호를 위해 이러한 이메일 주소를 제거할 수 있습니다. 그러나 수동으로 제거하는 것은 너무 지루합니다. 따라서 여기서는 Outlook이 귀하를 대신하여 이 작업을 자동으로 수행하도록 안내합니다.

이메일을 전달할 때 원래 보낸 사람 및 받는 사람의 이메일 주소 자동 제거

로tart, Outlook을 시작합니다.
그런 다음 "Alt + F11"키 버튼을 눌러 VBA 편집기에 액세스합니다.
다음으로 다음 VBA 코드를 "ThisOutlookSession"프로젝트에 복사합니다.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    Dim objRegExp As Object
    Dim strHTMLBody As String
 
    Forward.Display
    strHTMLBody = Forward.HTMLBody
 
    'Find email addresses in the body via Regular Expression
    Set objRegExp = CreateObject("vbscript.RegExp")
    With objRegExp
        .Pattern = "(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|""(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*"")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])"
        .IgnoreCase = True
        .Global = True
    End With
 
    'Remove email addresses
    If objRegExp.Test(strHTMLBody) Then
       Set objFoundResults = objRegExp.Execute(strHTMLBody)
       For i = 1 To objFoundResults.Count
           Forward.HTMLBody = Replace(Forward.HTMLBody, objFoundResults.Item(i - 1).Value, "")
       Next
    End If
 
    'Remove useless characters
    Forward.HTMLBody = Replace(Forward.HTMLBody, "[mailto:]", "")
    Forward.HTMLBody = Replace(Forward.HTMLBody, "()", "")
End Sub

그 후, 입술tar이 새 매크로를 활성화하려면 Outlook 프로그램을 사용하십시오.
결국 다음과 같이 촬영할 수 있습니다.

이메일을 선택하거나 엽니 다.
그런 다음 "응답" 그룹에서 "전달" 버튼을 클릭합니다.
마지막으로 원래 보낸 사람과 받는 사람의 이메일 주소가 삭제된 새 전달 이메일이 표시됩니다.

Outlook 손상의 경우 진정

Outlook에서 문제가 발생하면 공포에 질릴 수 있습니다. Outlook 손상. 그러나 솔직히 서두르고 걱정하면 일반적으로 Outlook에 다른 많은 문제가 발생할 수 있습니다. 그러므로 당황하지 말고 관련 상황에 침착하십시오. 또한 다음과 같은 강력한 PST 수정 도구를 유지했다면 DataNumen Outlook Repair, Outlook 문제를 해결하기 위해 간단히 사용할 수 있습니다.

저자 소개 :

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