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

วิธีการบันทึกเฉพาะไฟล์แนบ (Excel) ใน Outlook?

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2022-06-17

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 ใน บันทึกการตั้งค่า คุณต้องกำหนดค่าดังต่อไปนี้

3.1) ใน บันทึกไฟล์แนบลงในโฟลเดอร์นี้ คลิกแท็บ ปุ่มเพื่อเลือกโฟลเดอร์เพื่อบันทึกไฟล์แนบ
3.2) คลิกปุ่ม ตัวเลือกขั้นสูง ปุ่มเพื่อคลี่กล่องโต้ตอบ
3.3) ใน เงื่อนไขการกรอง ตรวจสอบ ประเภทไฟล์แนบ ช่องทำเครื่องหมาย จากนั้นป้อนนามสกุลไฟล์ของไฟล์แนบที่คุณจะบันทึกลงในข้อความ
ทิปส์: สำหรับนามสกุลไฟล์หลายนามสกุล คุณต้องแยกไฟล์เหล่านั้นด้วยเครื่องหมายอัฒภาค
3.4) คลิกปุ่ม OK ปุ่ม. ดูภาพหน้าจอ:

4. กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณหากคุณต้องการบันทึกไฟล์แนบ คลิก OK เพื่อดำเนินการต่อ

5. จากนั้นกล่องโต้ตอบอื่นจะปรากฏขึ้นเพื่อแจ้งจำนวนไฟล์แนบที่บันทึกไว้ ให้คลิกที่ OK ปุ่ม

ตอนนี้บันทึกเฉพาะไฟล์แนบรูปแบบไฟล์ที่ระบุเท่านั้น

คลิก คลิกที่นี่เพื่ออ่านรายละเอียดเพิ่มเติม เพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะนี้

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


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


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

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

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

🤖 Kutools AI : ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

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

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

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

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

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

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

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

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

 

 

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