วิธีการคัดลอกไฟล์แนบทั้งหมดจากอีเมลหลายฉบับไปยังอีเมลใหม่ใน Outlook

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

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

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

คัดลอกไฟล์แนบทั้งหมดจากอีเมลหลายฉบับไปยังอีเมลใหม่

ในขั้นแรก ให้เปิดโปรแกรม Outlook ตามปกติ
ถัดไปในหน้าต่างหลักของ Outlook ให้กดปุ่ม "Alt + F11"
ในหน้าต่าง“ Microsoft Visual Basic for Applications” ที่ตามมาให้ใส่โมดูลใหม่หรือเปิดโมดูลที่ไม่ได้ใช้งาน
จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในโมดูลดังกล่าว

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

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

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

ท้าทายปัญหา Outlook PST ที่พบบ่อย

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

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

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