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

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

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

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

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

วิธีนี้จะแนะนำแมโคร 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 แล้วตอบกลับอีกครั้ง

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

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

Kutools สำหรับ Outlook: เพิ่มเครื่องมือที่มีประโยชน์มากกว่า 100 รายการสำหรับ Outlook ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน อ่านเพิ่มเติม      ทดลองใช้ฟรีทันที

1. เลือกอีเมลที่คุณจะตอบกลับแล้วคลิก Kutools > เครื่องมือแนบ > คัดลอกชื่อ.

จากนั้นกล่องโต้ตอบจะปรากฏขึ้นและแจ้งให้คุณทราบว่ามีการคัดลอกชื่อไฟล์แนบไปยังคลิปบอร์ด คลิก OK เพื่อปิด

2. คลิกเลย หน้าแรก > ตอบ เพื่อตอบกลับอีเมลที่เลือก

3. ในหน้าต่างข้อความตอบกลับให้วางเคอร์เซอร์ไว้ในเนื้อหาของข้อความแล้วกด Ctrl + V เพื่อวางชื่อไฟล์แนบได้อย่างง่ายดาย

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

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

Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

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