Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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

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

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


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


Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL