วิธีการลบฉบับร่างที่แก้ไขในปัจจุบันโดยไม่ต้องลบอีเมลต้นฉบับใน Outlook?

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

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

ลบฉบับร่างที่แก้ไขในบานหน้าต่างการอ่าน
ลบฉบับร่างที่แก้ไขแล้วในหน้าต่างใหม่

ลบร่างแก้ไขในปัจจุบันในบานหน้าต่างการอ่าน

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

1. เปิดโปรแกรม Outlook ของคุณกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก Project1 > วัตถุ Microsoft Outlook > นี้OutlookSession เพื่อเปิด ThisOutlookSession (รหัส) หน้าต่าง. จากนั้นคัดลอกรหัส VBA ต่อไปนี้ไปยังหน้าต่างรหัส

รหัส VBA: ลบร่างที่แก้ไขในปัจจุบันในบานหน้าต่างการอ่าน

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. บันทึกรหัสแล้วกดปุ่ม อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

ตอนนี้คุณต้องมีปุ่มเพื่อเรียกใช้แมโคร

4 คลิก ปรับแต่งแถบเครื่องมือด่วน > คำสั่งเพิ่มเติม.

5 ใน ตัวเลือกของ outlook คุณต้องกำหนดค่าดังต่อไปนี้

5.1) ใน เลือกคำสั่งจาก รายการแบบเลื่อนลงเลือก มาโคร;

5.2) เลือกมาโครที่คุณเพิ่มในขั้นตอนก่อนหน้า

5.3) คลิกปุ่ม เพิ่ม เพื่อเพิ่มมาโครนี้ลงในไฟล์ ปรับแต่งแถบเครื่องมือด่วน กล่อง.

6. เก็บสคริปต์ที่เลือกไว้ในช่องด้านขวา จากนั้นคลิกปุ่ม แก้ไข ปุ่ม. ใน ปุ่มปรับเปลี่ยน กล่องโต้ตอบ กำหนดปุ่มใหม่ให้กับสคริปต์แล้วคลิก ตกลง

7 คลิก OK ใน ตัวเลือกของ outlook กล่องโต้ตอบเพื่อบันทึกการเปลี่ยนแปลง

จากนั้นปุ่มที่คุณระบุในขั้นตอนที่ 6 จะถูกเพิ่มไปที่ แถบเครื่องมือด่วน.

8. รีสตาร์ท Outlook เพื่อเปิดใช้งานรหัส

จากนี้ไป เมื่อตอบกลับอีเมลในบานหน้าต่างการอ่าน คุณสามารถลบการตอบกลับพร้อมกับฉบับร่างได้โดยคลิกปุ่มบนแถบเครื่องมือด่วน

หมายเหตุ หลังจากเรียกใช้สคริปต์ คุณต้องเลือกอีเมลอื่นในรายชื่อผู้รับจดหมายเพื่อรีเฟรชมุมมองจดหมายในโฟลเดอร์ปัจจุบัน

ลบฉบับร่างที่แก้ไขแล้วในหน้าต่างใหม่

หากคุณต้องการตอบกลับอีเมลในหน้าต่างใหม่ รหัส VBA ต่อไปนี้สามารถช่วยลบอีเมลตอบกลับพร้อมกับฉบับร่างได้อย่างง่ายดายใน Outlook

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ต่อไปนี้ไปยังหน้าต่างโมดูล

Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

3 กด อื่น ๆ + F11 เพื่อปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

ตอนนี้คุณต้องมีปุ่มเพื่อเรียกใช้แมโคร

4 คลิก หน้าแรก > อีเมลใหม่ เพื่อสร้างอีเมลใหม่ ในหน้าต่างข้อความ คลิก ปรับแต่งแถบเครื่องมือด่วน > คำสั่งเพิ่มเติม.

5. จากนั้นทำซ้ำขั้นตอนข้างต้น จาก 5 ถึง 7 เพื่อสร้างปุ่มสำหรับสคริปต์ และเพิ่มไปที่ แถบเครื่องมือด่วน ของหน้าต่างข้อความ

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