หากเราแปลงอีเมล HTML เป็น RTF ก่อนตอบกลับชื่อของไฟล์แนบทั้งหมดจะถูกคัดลอกไปยังข้อความตอบกลับหลังจากคลิกหน้าแรก> ตอบกลับใน Outlook

1. ดับเบิลคลิกเพื่อเปิดอีเมลที่มีชื่อไฟล์แนบที่คุณต้องคัดลอกจากนั้นคลิก ระบุความประสงค์หรือข้อมูลเพิ่มเติม > สถานะ > แก้ไขข้อความ ในหน้าต่างข้อความ ดูภาพหน้าจอ:

2. คลิกเลย จัดรูปแบบข้อความ > Rich Textแล้วบันทึกและปิดอีเมล

3. ตอนนี้คุณกลับไปที่มุมมองหลัก เลือกอีเมลต่อไปแล้วคลิก หน้าแรก > ตอบ.

4. ตอนนี้ชื่อไฟล์แนบทั้งหมดจะถูกคัดลอกจากอีเมลต้นฉบับและวางลงในข้อความตอบกลับตามภาพหน้าจอด้านล่าง กรุณาเขียนข้อความตอบกลับและส่ง

ตอบกลับอีเมลที่เลือกได้อย่างง่ายดายด้วยไฟล์แนบต้นฉบับทั้งหมดที่เก็บไว้ใน Outlook

โดยทั่วไปไฟล์แนบต้นฉบับจะถูกลบออกเมื่อตอบกลับอีเมลใน Outlook แต่ด้วยความยอดเยี่ยม ตอบกลับด้วยไฟล์แนบ คุณลักษณะของ Kutools for Outlook คุณสามารถเก็บไฟล์แนบทั้งหมดของอีเมลเมื่อตอบกลับใน Outlook

วิธีนี้จะแนะนำแมโคร VBA เพื่อคัดลอกชื่อไฟล์แนบทั้งหมดเมื่อตอบกลับอีเมลจากนั้นวางชื่อลงในเนื้อหาข้อความของการตอบกลับอีเมลใน Outlook

1. กด อื่น ๆ + F11 คีย์พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2. ใน Project Explorer ด้านซ้ายขยายโครงการ 1 ดับเบิลคลิกเพื่อเปิดไฟล์ นี้OutlookSession หน้าต่าง (ดูภาพหน้าจอด้านล่าง) จากนั้นวางโค้ดด้านล่างลงในหน้าต่าง

VBA: คัดลอกชื่อไฟล์แนบทั้งหมดเมื่อตอบกลับอีเมลใน Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. คลิก เครื่องมือ > อ้างอิง.

4. ในการเปิดหน้าต่างอ้างอิง - โครงการ 1 สำหรับ Outlook 2016 โปรดตรวจสอบไฟล์ ไลบรารีวัตถุ Microsoft Word 16.0 อ้างอิงในกล่องการอ้างอิงที่พร้อมใช้งานและคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

หมายเหตุ: โปรดเลือกไฟล์ ไลบรารีวัตถุ Microsoft Word 15.0 อ้างอิงว่าคุณกำลังทำงานกับ Outlook 2013 หรือ ไลบรารีวัตถุ Microsoft Word 14.0 อ้างอิงกับ Outlook 2010

5. บันทึก VBA และปิดหน้าต่าง Microsoft Visual Basic for Applications

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

ตอนนี้ชื่อของไฟล์แนบทั้งหมดจะถูกคัดลอกจากอีเมลที่เลือกและวางลงในอีเมลตอบกลับ ดูภาพหน้าจอ: