ไปยังเนื้อหาหลัก

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

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

Office Tab - เปิดใช้งานการแก้ไขแบบแท็บและการเรียกดูใน Microsoft Office ทำให้งานเป็นเรื่องง่าย
Kutools for Outlook - เพิ่ม Outlook ด้วยฟีเจอร์ขั้นสูงกว่า 100+ รายการเพื่อประสิทธิภาพที่เหนือกว่า
เพิ่มประสิทธิภาพ Outlook 2021 - 2010 หรือ Outlook 365 ของคุณด้วยฟีเจอร์ขั้นสูงเหล่านี้ เพลิดเพลินกับการทดลองใช้ฟรี 60 วันและยกระดับประสบการณ์อีเมลของคุณ!

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

บทความนี้จะแนะนำ 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: ชุดเครื่องมือ Outlook ขั้นสูงพร้อมเครื่องมือที่มีประโยชน์มากกว่า 100 รายการ ทดลองใช้ฟรี 60 วัน ไม่มีข้อจำกัด ไม่ต้องกังวล!   อ่านเพิ่มเติม ...   เริ่มทดลองใช้ฟรีทันที!

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

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


บทความที่เกี่ยวข้อง


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations