Note: The other languages of the website are Google-translated. Back to English

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

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ