6 วิธีในการเก็บไฟล์แนบอีเมลต้นฉบับเมื่อตอบกลับใน Outlook

โซลูชัน Outlook September 29, 2025

ผู้ใช้หลายคนหวังว่าจะกำหนดค่า Outlook ให้เก็บไฟล์แนบอีเมลต้นฉบับไว้เมื่อตอบกลับอีเมล บทความนี้จะแสดงวิธีแก้ปัญหา 5 ประการพร้อมทั้งวิธีที่ชาญฉลาดซึ่งใช้ VBA เพื่อให้ทราบโดยอัตโนมัติ

ฉันเคยได้ยินผู้ใช้จำนวนมากบ่นว่า Outlook ไม่มีคุณสมบัติดั้งเดิมที่จะเก็บไฟล์แนบต้นฉบับไว้เมื่อตอบกลับอีเมล ดังนั้นในที่นี้เราจะแบ่งปันวิธีการ 6 วิธีซึ่งหนึ่งในนั้นมีประโยชน์มากเนื่องจากใช้ VBA เพื่อทำให้ Outlook แนบไฟล์แนบดั้งเดิมในการตอบกลับอีเมลโดยอัตโนมัติ ตอนนี้อ่านเพื่อรับรายละเอียด

1. ตอบกลับด้วยอีเมลต้นฉบับที่แนบมา

แม้ว่า Outlook จะไม่มีคุณลักษณะในการเก็บไฟล์แนบอีเมลต้นฉบับเมื่อตอบกลับอีเมล แต่ก็อนุญาตให้ผู้ใช้แนบอีเมลต้นฉบับไว้ได้ ดังนั้นจึงเป็นวิธีแก้ปัญหาเฉพาะสำหรับคุณ คุณสามารถไปที่ส่วน“ ไฟล์”>“ ตัวเลือก”>“ จดหมาย”>“ การตอบกลับและการส่งต่อ” เพื่อเปลี่ยนการตั้งค่าการตอบกลับ สำหรับรายละเอียดเพิ่มเติมขอแนะนำให้คุณดูบทความก่อนหน้าของฉัน -“5 ขั้นตอนในการตอบกลับด้วยไฟล์แนบดั้งเดิมใน Outlook”. แต่ถ้าคุณยังหวังว่าจะเก็บไฟล์แนบต้นฉบับไว้เท่านั้นให้ไปเรียนรู้วิธีการอื่น

2. ลากและวางไฟล์แนบด้วยตนเอง

ขั้นแรก ให้ดับเบิ้ลคลิกที่อีเมลต้นทางเพื่อเปิดในหน้าต่างใหม่
จากนั้นคลิกปุ่ม "ตอบกลับ" ซึ่งจะเป็นการแสดงอีเมลตอบกลับ
ถัดไปคุณควรย่อทั้งสองหน้าต่างข้อความจนกว่าคุณจะเห็นในหน้าจอเดียวกัน
หลังจากนั้นเลือกไฟล์แนบทั้งหมดในอีเมลต้นฉบับ
สุดท้ายให้ลากและวางไว้ในบรรทัด "แนบ" ในอีเมลตอบกลับ

3. คัดลอกและวางไฟล์แนบด้วยตนเอง

ในตอนแรกหลังจากเปิดอีเมลต้นทางให้เลือกไฟล์แนบทั้งหมด
จากนั้นคลิกปุ่ม "คัดลอก" ใต้แท็บ "ไฟล์แนบ"
หลังจากนั้นคลิกปุ่ม "ตอบกลับ" ใต้แท็บ "ข้อความ" เพื่อเปิดอีเมลตอบกลับ
ในที่สุดในอีเมลตอบกลับให้คลิกที่บรรทัด "แนบ" แล้วกดปุ่ม "Ctrl + V" เพื่อวางไฟล์แนบที่คัดลอกไว้ก่อนหน้านี้

4. ส่งต่ออีเมลและกรอกผู้รับ

ก่อนอื่นให้เลือกอีเมลดังกล่าวจากนั้นคลิกปุ่ม“ ส่งต่อ” ใน Ribbon
ในหน้าต่างข้อความป๊อปอัปใหม่ไฟล์แนบดั้งเดิมจะถูกเก็บไว้ ตอนนี้คุณต้องกรอกข้อมูลในช่อง "ถึง" ให้กับผู้ส่งอีเมลต้นฉบับ
คุณสามารถเลือกเปลี่ยนหัวข้อได้ตามความต้องการของคุณ

5. ส่งอีเมลนี้อีกครั้งและเปลี่ยนผู้รับ

เริ่มต้นด้วยการเปิดอีเมลต้นทาง
จากนั้นคลิกปุ่ม "การดำเนินการ" ในกลุ่ม "ย้าย"
จากนั้นเลือก“ ส่งข้อความนี้อีกครั้ง” จากรายการแบบเลื่อนลง
บางทีคุณอาจได้รับการแจ้งเตือนว่าคุณไม่ใช่ผู้ส่งดั้งเดิม เพียงแค่เพิกเฉยและกด "ใช่"
ในอีเมลใหม่ที่ตามมาคุณควรแก้ไขช่อง "ถึง" เป็นผู้ส่งอีเมลเดิม
นอกจากนี้อย่าลืมเปลี่ยนการส่งโดยใช้บัญชีอีเมลเป็นบัญชีของคุณเอง

6. เพิ่มไฟล์แนบต้นฉบับโดยอัตโนมัติผ่าน VBA

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

ในหน้าต่างหลักของ Outlook ให้กดปุ่ม“ Alt + F11”
จากนั้นในหน้าต่าง“ Microsoft Visual Basic for Applications” คัดลอกโค้ด VBA ด้านล่างลงในโครงการ“ ThisOutlookSession”

Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeName(objExplorer.Selection.Item(1)) = "MailItem" Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when clicking "Reply" button
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

'Occurs when clicking "Reply All" button
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

Private Sub KeepOriginalAttachments(ByVal objOriginalMail As MailItem, objReply As Object)
    Dim strEnviro As String
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim objAttachment As Outlook.Attachment
 
    'Get the temp folder in Windows
    strEnviro = CStr(Environ("USERPROFILE"))
    strTempFolder = strEnviro & "\AppData\Local\Temp"
 
    For Each objAttachment In objOriginalMail.Attachments
        'Skip the embedded image attachments
        If IsEmbeddedAttachment(objAttachment) = False Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile strFilePath
 
           'Attach the temporarily saved attachments to the Reply
           objReply.Attachments.Add strFilePath
 
           'Delete the temporarily saved attachments
           Kill strFilePath
       End If
    Next
End Sub

'Function for checking if an attachment is embedded image attachment
Function IsEmbeddedAttachment(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbeddedAttachment = True
    Else
       IsEmbeddedAttachment = False
    End If
End Function

ลงชื่อเข้าใช้แมโครนี้ในภายหลังและเปลี่ยนการตั้งค่าแมโคร Outlook ของคุณเพื่ออนุญาตให้ใช้แมโครที่ลงนาม
หลังจากนั้น ให้รีสตาร์ทแอปพลิเคชัน Outlook เพื่อเปิดใช้งานโปรเจ็กต์ VBA นี้
จากนี้ไปทุกครั้งที่คุณคลิกปุ่ม "ตอบกลับ" อีเมลตอบกลับจะแสดงพร้อมไฟล์แนบต้นฉบับพร้อมกัน

ใช้เครื่องมือซ่อมแซมที่โดดเด่น

Outlook อยู่เหนือไคลเอนต์อีเมลอื่น ๆ เนื่องจากมีคุณสมบัติมากมาย แต่ก็ยังมีแนวโน้มที่จะเกิดการทุจริต ดังนั้นคุณควรใส่ใจกับสุขภาพของมันให้มากขึ้น โดยทั่วไปเมื่อพบปัญหาเล็กน้อยคุณสามารถกลับไปที่ยูทิลิตีแก้ไขในตัวได้ อย่างไรก็ตามหากคุณประสบปัญหาร้ายแรงคุณควรกลับมาใช้เครื่องมือที่มีความเชี่ยวชาญมากกว่านี้เช่น DataNumen Outlook Repair. มันสามารถ แก้ไข Outlook ไฟล์ในทันที

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.