วิธีลบที่อยู่อีเมลของผู้ส่งและผู้รับดั้งเดิมโดยอัตโนมัติเมื่อส่งต่ออีเมล Outlook

เมื่อคุณส่งต่ออีเมลใน Outlook ที่อยู่อีเมลของผู้ส่งและผู้รับต้นฉบับจะปรากฏอยู่ในเนื้อหาข้อความ เพื่อความปลอดภัย คุณควรลบที่อยู่อีเมลเหล่านี้ออก บทความนี้จะสอนวิธีการตั้งค่าให้ Outlook ลบที่อยู่อีเมลเหล่านี้โดยอัตโนมัติ

ในหลาย ๆ กรณีคุณจะต้องส่งต่ออีเมลบางฉบับให้คนอื่น โดยค่าเริ่มต้นส่วนหัวของอีเมลต้นฉบับจะแสดงในเนื้อหาของอีเมลส่งต่อ และส่วนหัวจะรวมที่อยู่อีเมลของผู้ส่งและผู้รับดั้งเดิม ณ จุดนี้เพื่อความปลอดภัยหรือความเป็นส่วนตัวคุณอาจต้องการลบที่อยู่อีเมลเหล่านี้ แต่มันน่าเบื่อเกินไปที่จะลบออกด้วยตนเอง ดังนั้นที่นี่เราจะแนะนำให้คุณทำให้ Outlook ของคุณทำงานนี้ให้สำเร็จโดยอัตโนมัติในนามของคุณ

ลบที่อยู่อีเมลของผู้ส่งและผู้รับดั้งเดิมโดยอัตโนมัติเมื่อส่งต่ออีเมล

1. เริ่มแรก ให้เปิดโปรแกรม Outlook ขึ้นมา
2. จากนั้นกดปุ่ม“ Alt + F11” เพื่อเข้าถึงตัวแก้ไข VBA
3. จากนั้นคัดลอกโค้ด 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

4. หลังจากนั้น ให้รีสตาร์ทโปรแกรม Outlook เพื่อเปิดใช้งานมาโครใหม่นี้
5. ในที่สุดคุณสามารถถ่ายภาพ:

• เลือกหรือเปิดอีเมล
• จากนั้นคลิกปุ่ม“ ส่งต่อ” ในกลุ่ม“ ตอบกลับ”
• สุดท้ายอีเมลส่งต่อใหม่จะแสดงขึ้นซึ่งที่อยู่อีเมลของผู้ส่งและผู้รับเดิมถูกลบไปแล้ว

ใจเย็น ๆ ในกรณีที่ Outlook เสียหาย

เมื่อคุณประสบปัญหาใด ๆ ใน Outlook ของคุณคุณอาจตกใจกลัว ความเสียหายของ Outlook. อย่างไรก็ตามด้วยความซื่อสัตย์ความรีบร้อนและความกังวลโดยทั่วไปอาจส่งผลให้เกิดปัญหาอื่น ๆ มากมายใน Outlook ของคุณ ดังนั้นอย่าตกใจ แต่ใจเย็น ๆ ในกรณีที่เกี่ยวข้อง ยิ่งไปกว่านั้นหากคุณมีเครื่องมือแก้ไข PST ที่มีประสิทธิภาพเช่น DataNumen Outlook Repairคุณสามารถใช้เพื่อแก้ไขปัญหา Outlook ได้

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.