วิธีการบันทึกเฉพาะไฟล์แนบ (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 > เครื่องมือแนบ > บันทึกทั้งหมด.