ไปยังเนื้อหาหลัก

วิธีการลบฉบับร่างที่แก้ไขในปัจจุบันโดยไม่ต้องลบอีเมลต้นฉบับใน 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

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

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 เพื่อสร้างปุ่มสำหรับสคริปต์ และเพิ่มไปที่ แถบเครื่องมือด่วน ของหน้าต่างข้อความ

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


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations