วิธีการบันทึกเฉพาะไฟล์แนบ (Excel) ใน Outlook?
Outlook มีคุณลักษณะ บันทึกไฟล์แนบทั้งหมด เพื่อช่วยคุณบันทึกไฟล์แนบทั้งหมดในอีเมลไปยังโฟลเดอร์เฉพาะในคราวเดียว อย่างไรก็ตาม ถ้าคุณต้องการบันทึกเฉพาะไฟล์แนบบางประเภทในอีเมลหนึ่งฉบับขึ้นไป เช่น สมุดงาน Excel เอกสาร Word และอื่นๆ คุณจะบรรลุผลได้อย่างไร ในบทช่วยสอนนี้ เราให้คุณสองวิธีในการแก้ปัญหานี้
บันทึกเฉพาะไฟล์แนบรูปแบบเฉพาะใน Outlook ด้วยรหัส VBA
บันทึกเฉพาะไฟล์แนบรูปแบบเฉพาะใน Outlook ได้อย่างง่ายดายด้วยเครื่องมือที่น่าทึ่ง
บันทึกเฉพาะไฟล์แนบรูปแบบเฉพาะใน Outlook ด้วยรหัส VBA
โค้ด VBA ต่อไปนี้สามารถช่วยบันทึกเฉพาะไฟล์แนบของรูปแบบไฟล์ที่ระบุในอีเมลที่เลือกอย่างน้อยหนึ่งรายการไปยังโฟลเดอร์เฉพาะ กรุณาทำดังนี้
1. เปิด Outlook ของคุณ ในรายการ Mail ให้เลือกอีเมลที่คุณต้องการบันทึกเฉพาะสิ่งที่แนบมาในรูปแบบไฟล์เฉพาะ
2 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. ในหน้าต่างเปิดคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล
รหัส VBA: บันทึกเฉพาะสิ่งที่แนบมาในอีเมลหรืออีเมลหลายฉบับลงในโฟลเดอร์
Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
If xItem.Class = olMail Then
xFilesSavePath = ""
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xExt = "." & xFSO.GetExtensionName(xFilePath)
xExtArr = VBA.Split(xExtStr, ",")
xS = VBA.Filter(xExtArr, xExt)
If UBound(xS) > -1 Then
xAttachment.SaveAsFile xFilePath
If xItem.BodyFormat <> olFormatHTML Then
xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xFilesSavePath = xFilesSavePath & "
" & "" & xFilePath & ""
End If
End If
Next
xItem.Save
End If
Next
Set xFSO = Nothing
End Sub
3 คลิก เครื่องมือ > อ้างอิงใน เอกสารอ้างอิง - โครงการ ให้ตรวจสอบไฟล์ รันไทม์การเขียนสคริปต์ของ Microsoft แล้วคลิกไฟล์ OK ปุ่ม
4 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ออกมา เรียกดูโฟลเดอร์ ไดอะล็อกบ็อกซ์เลือกหนึ่งโฟลเดอร์เพื่อบันทึกไฟล์แนบ
5. จากนั้นคลิก OKดังต่อไปนี้ Kutools สำหรับ Outlook กล่องโต้ตอบป้อนนามสกุลไฟล์ของไฟล์แนบที่คุณจะบันทึกลงในกล่องข้อความแล้วคลิก OK.
หมายเหตุ: สำหรับนามสกุลไฟล์หลายนามสกุล คุณต้องคั่นด้วยเครื่องหมายจุลภาค
จากนั้นจะบันทึกเฉพาะไฟล์แนบที่ระบุเท่านั้น
บันทึกเฉพาะไฟล์แนบรูปแบบเฉพาะใน Outlook ได้อย่างง่ายดายด้วยเครื่องมือที่น่าทึ่ง
หากคุณเพิ่งเริ่มใช้ VBA เราขอแนะนำให้คุณใช้ บันทึกไฟล์แนบทั้งหมด คุณลักษณะของ Kutools สำหรับ Outlook. ด้วยฟีเจอร์นี้ คุณสามารถบันทึกเฉพาะสิ่งที่แนบมาในรูปแบบไฟล์เฉพาะใน Outlook ได้อย่างง่ายดาย
1. เลือกอีเมลที่คุณต้องการบันทึกเฉพาะไฟล์แนบในรูปแบบไฟล์เฉพาะ
2 คลิก Kutools > เครื่องมือแนบ > บันทึกทั้งหมด.
3 ใน บันทึกการตั้งค่า คุณต้องกำหนดค่าดังต่อไปนี้

4. กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณหากคุณต้องการบันทึกไฟล์แนบ คลิก OK เพื่อดำเนินการต่อ
5. จากนั้นกล่องโต้ตอบอื่นจะปรากฏขึ้นเพื่อแจ้งจำนวนไฟล์แนบที่บันทึกไว้ ให้คลิกที่ OK ปุ่ม
ตอนนี้บันทึกเฉพาะไฟล์แนบรูปแบบไฟล์ที่ระบุเท่านั้น
คลิก โปรดคลิกที่นี่เพื่ออ่านรายละเอียดเพิ่มเติม เพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะนี้
หากคุณต้องการทดลองใช้ฟรี (30วัน) ของโปรแกรมอรรถประโยชน์นี้ กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น
บทความที่เกี่ยวข้อง:
Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก
- CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
- คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
- ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
- เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
- อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook

