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

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

บทความนี้จะแนะนำ VBA เพื่อคัดลอกไฟล์แนบทั้งหมดจากอีเมลหลายฉบับไปยังไฟล์ใหม่ใน Outlook ได้อย่างรวดเร็ว โปรดดำเนินการดังนี้:

1. เลือกอีเมลหลายฉบับที่มีไฟล์แนบที่คุณจะคัดลอกแล้วกด อื่น ๆ + F11 ปุ่มเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications
หมายเหตุ: โฮลดิ้ง Ctrl ที่สำคัญคุณสามารถเลือกอีเมลที่ไม่อยู่ติดกันได้หลายรายการโดยคลิกทีละรายการ ถือ เปลี่ยน คุณสามารถเลือกอีเมลที่อยู่ติดกันหลายฉบับโดยคลิกที่อีเมลแรกและอีเมลสุดท้าย

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลใหม่

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

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3. กด F5 คีย์หรือ วิ่ง เพื่อเรียกใช้ VBA นี้

ตอนนี้คุณจะเห็นไฟล์แนบทั้งหมดถูกคัดลอกจากอีเมลที่เลือก และวางลงในอีเมลใหม่

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

เลือกอีเมลที่คุณจะตอบกลับ และคลิก Kutools > ตอบกลับด้วยไฟล์แนบ > ตอบกลับพร้อมไฟล์แนบ ดูภาพหน้าจอ:

ตอนนี้คุณจะเห็นไฟล์แนบทั้งหมดถูกคัดลอกไปยังอีเมลตอบกลับโดยอัตโนมัติ

วิธีคัดลอกไฟล์แนบไปยังอีเมลอื่นใน Outlook