จะตอบกลับทั้งหมดด้วยไฟล์แนบต้นฉบับใน Outlook ได้อย่างไร
เคยกด "ตอบกลับทั้งหมด" ใน 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

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

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

6. ใน ตัวเลือกของ outlook ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:
(1. ) เลือก แมโคร จาก เลือกคำสั่งจาก รายการแบบหล่นลง
(2.) คลิกชื่อมาโครที่คุณใส่ไว้ตอนนี้
(3. ) จากนั้นคลิก เพิ่ม ปุ่มเพื่อเพิ่มแมโครลงใน ปรับแต่งแถบเครื่องมือด่วน.

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

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

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

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

คลิกเพื่อดาวน์โหลด Kutools สำหรับ Outlook เวอร์ชันฟรี ในขณะนี้!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!
สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!
🤖 Kutools AI : ใช้เทคโนโลยี AI ขั้นสูงเพื่อจัดการอีเมลได้อย่างง่ายดาย รวมถึงการตอบกลับ การสรุป การเพิ่มประสิทธิภาพ การขยาย การแปล และการเขียนอีเมล
📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมล / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เตือนคุณเมื่อมีอีเมลสำคัญมาถึง / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...

