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

จะตอบกลับทั้งหมดด้วยไฟล์แนบต้นฉบับใน Outlook ได้อย่างไร

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-09-19

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

ตอบกลับทั้งหมดด้วยไฟล์แนบต้นฉบับพร้อมรหัส VBA

ตอบกลับทั้งหมดด้วยไฟล์แนบต้นฉบับด้วย Kutools for Outlook


ตอบกลับทั้งหมดด้วยไฟล์แนบต้นฉบับพร้อมรหัส VBA

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

1. เปิด Outlook จากนั้นกดไฟล์ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก นี้OutlookSession จาก โครงการ 1 (VbaProject.O ™) บานหน้าต่างเพื่อเปิดโหมดจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า

รหัส VBA: ตอบทุกคนด้วย ahhachments ดั้งเดิม:

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function
เอกสารตอบกลับทั้งหมดพร้อมไฟล์แนบ 1

3. จากนั้นคลิก เครื่องมือ > อ้างอิง ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ในหน้าต่างที่โผล่ออกมา เอกสารอ้างอิง - โครงการ 1 กล่องโต้ตอบตรวจสอบ รันไทม์การเขียนสคริปต์ของ Microsoft ตัวเลือกจาก อ้างอิงที่มีอยู่ กล่องรายการดูภาพหน้าจอ:

เอกสารตอบกลับทั้งหมดพร้อมไฟล์แนบ 9

4. จากนั้นให้บันทึกและปิดหน้าต่างโค้ด จากนั้นคุณสามารถเพิ่มปุ่มมาโครลงในได้ แถบเครื่องมือด่วน.

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

เอกสารตอบกลับทั้งหมดพร้อมไฟล์แนบ 2

6. ใน ตัวเลือกของ outlook ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:

(1. ) เลือก แมโคร จาก เลือกคำสั่งจาก รายการแบบหล่นลง

(2.) คลิกชื่อมาโครที่คุณใส่ไว้ตอนนี้

(3. ) จากนั้นคลิก เพิ่ม ปุ่มเพื่อเพิ่มแมโครลงใน ปรับแต่งแถบเครื่องมือด่วน.

เอกสารตอบกลับทั้งหมดพร้อมไฟล์แนบ 3

7. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบ ขณะนี้ปุ่มมาโครถูกแทรกลงในแล้ว แถบเครื่องมือด่วนดูภาพหน้าจอ:

เอกสารตอบกลับทั้งหมดพร้อมไฟล์แนบ 4

8. ตอนนี้คลิกปุ่มมาโครและหน้าต่างข้อความตอบกลับพร้อมไฟล์แนบต้นฉบับจะเปิดขึ้น จากนั้นจึงเขียนข้อความตอบกลับแล้วคลิก ส่ง ปุ่มดูภาพหน้าจอ:

เอกสารตอบกลับทั้งหมดพร้อมไฟล์แนบ 5

ตอบกลับทั้งหมดด้วยไฟล์แนบต้นฉบับด้วย Kutools for Outlook

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

ปลดล็อกประสิทธิภาพอีเมลขั้นสูงสุดด้วย Kutools สำหรับ Outlook- เข้าถึง 70 คุณสมบัติอันทรงพลัง ฟรีอย่างแน่นอน, ตลอดไป. ดาวน์โหลดเวอร์ชันฟรีทันที!

หลังจากการติดตั้ง Kutools สำหรับ Outlookโปรดทำตามนี้:

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

doc ตอบกลับทั้งหมดด้วย attch kto 1

2. และหน้าต่างข้อความตอบกลับจะเปิดขึ้นพร้อมไฟล์แนบต้นฉบับ จากนั้นเขียนข้อความของคุณและส่งไป ดูภาพหน้าจอ:

เอกสารตอบกลับทั้งหมดพร้อมไฟล์แนบ 7

คลิกเพื่อดาวน์โหลด Kutools สำหรับ Outlook เวอร์ชันฟรี ในขณะนี้!


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

ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!

สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!

🤖 Kutools AI : ใช้เทคโนโลยี AI ขั้นสูงเพื่อจัดการอีเมลได้อย่างง่ายดาย รวมถึงการตอบกลับ การสรุป การเพิ่มประสิทธิภาพ การขยาย การแปล และการเขียนอีเมล

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

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

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

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

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

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

ปลดล็อค Kutools for Outlook ทันทีด้วยการคลิกเพียงครั้งเดียว—ฟรีอย่างถาวร- อย่ารอช้า ดาวน์โหลดตอนนี้และเพิ่มประสิทธิภาพของคุณ!

kutools สำหรับคุณสมบัติ Outlook1 kutools สำหรับคุณสมบัติ Outlook2