2 เคล็ดลับง่ายๆในการลบอีเมลต้นฉบับโดยอัตโนมัติหลังจากตอบกลับใน Outlook

ผู้ใช้บางรายต้องการลบอีเมลเดิมหลังจากตอบกลับเนื่องจากการตอบกลับมีข้อมูลของอีเมลต้นฉบับ บทความนี้จะแบ่งปัน 2 วิธีการที่รวดเร็วเพื่อให้ตระหนักโดยอัตโนมัติ

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

เคล็ดลับ 1: ใช้ขั้นตอนด่วน

Outlook มาพร้อมกับขั้นตอนง่ายๆ "ตอบกลับและลบ" เช่นเดียวกับภาพต่อไปนี้ ขั้นตอนด่วนนี้สามารถลบข้อความต้นฉบับโดยอัตโนมัติและแสดงการตอบกลับเมื่อคุณคลิก

หากคุณไม่พบขั้นตอนด่วนนี้เป็นไปได้มากว่าคุณได้ลบไปก่อนหน้านี้โดยไม่ได้ตั้งใจ คุณยังสามารถสร้างใหม่ได้โดยทำตามขั้นตอนด้านล่างนี้

1. ขั้นแรกให้คลิกปุ่ม "สร้างใหม่" ในกลุ่ม "ขั้นตอนด่วน"
2. จากนั้นในกล่องโต้ตอบป๊อปอัปให้กำหนดชื่อเช่น "ตอบกลับและลบ"
3. ถัดไปในส่วน "การดำเนินการ" เลือก "ตอบกลับ"
4. จากนั้นคลิกปุ่ม "เพิ่มการดำเนินการ"
5. จากนั้นเพิ่มการดำเนินการ "ลบข้อความ"
6. สุดท้ายกดปุ่ม "บันทึก"

ด้วยวิธีนี้คุณต้องใช้ขั้นตอนสั้น ๆ นี้เสมอเพื่อตอบกลับอีเมล หากคุณยังคงต้องการใช้ปุ่ม "ตอบกลับ" มาตรฐานในกลุ่ม "ตอบกลับ" เพื่อให้ได้ "ตอบกลับและลบ" คุณสามารถอ้างถึงวิธีการต่อไปนี้

เคล็ดลับ 2: ใช้ Outlook VBA

1. ในขั้นแรกให้กดปุ่ม“ Alt + F11” ใน Outlook
2. จากนั้นในหน้าต่างตัวแก้ไข VBA ที่ตามมาให้เปิดโครงการ“ ThisOutlookSession”
3. ถัดไปคัดลอกและวางรหัส VBA ต่อไปนี้ลงไป

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_SelectionChange()
    On Error Resume Next
    If TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
       Set objMail = Application.ActiveExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    objMail.Delete
    'If you want to only delete the specific email when replying it
    'You can specify the condition of the email as per your needs
    'like the following lines
    'If (InStr(LCase(objMail.Subject), "test") > 0) Then
    ' objMail.Delete
    'End If
End Sub

4. หลังจากนั้นให้เซ็นรหัสนี้แบบดิจิทัล
5. นอกจากนี้อย่าลืมเปลี่ยนการตั้งค่าแมโคร Outlook ของคุณเพื่ออนุญาตแมโครที่เซ็นชื่อแบบดิจิทัล
6. สุดท้ายนี้ ให้รีสตาร์ท Outlook เพื่อเปิดใช้งานโปรเจ็กต์ VBA ใหม่ จากนี้ไป เมื่อคุณตอบอีเมลโดยกดปุ่ม "ตอบกลับ" อีเมลต้นฉบับจะถูกลบโดยอัตโนมัติ

กู้คืนข้อมูล Outlook ที่ถูกบุกรุกของคุณ

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

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

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