ดาวน์โหลดไฟล์แนบอีเมล Outlook ทั้งหมดพร้อมกัน – คู่มือ 빠르고 簡単

หากคุณอยู่ในอุตสาหกรรมที่รับอีเมลจำนวนมากทุกวัน คุณอาจได้รับอีเมลหลายฉบับที่มีไฟล์แนบหลายไฟล์ การใช้วิธีด้วยตนเองในการแยกไฟล์แนบอาจใช้เวลานานหากมีจำนวนมากที่ต้องดาวน์โหลด โชคดีที่การบันทึกไฟล์แนบอีเมลหลายไฟล์พร้อมกันเป็นเรื่องง่ายด้วย Microsoft Outlook

ในบทช่วยสอนนี้ เราจะแสดงวิธีดาวน์โหลดไฟล์แนบทั้งหมดจาก Outlook

วิธีดาวน์โหลดไฟล์แนบอีเมล Microsoft Outlook ทั้งหมดพร้อมกันบน Windows

ในการดาวน์โหลดไฟล์แนบทั้งหมดพร้อมกันโดยใช้แอป Microsoft Outlook บน Windows ให้ทำดังนี้:

1. เปิด Outlook และลงชื่อเข้าใช้โปรไฟล์ Outlook ของคุณ
2. เลือกอีเมลที่มีไฟล์แนบ Outlook ที่คุณต้องการ
3. คลิกขวาที่ไฟล์แนบใดๆ และเลือก Save all attachments ในเมนูดรอปดาวน์ หากคุณต้องการบันทึกไฟล์เดียว ให้เลือก Save As

4. ในกล่องโต้ตอบใหม่ ให้กดค้างปุ่ม CTRL บนแป้นพิมพ์ของคุณและเลือกไฟล์แนบทั้งหมดที่คุณต้องการดาวน์โหลด คลิก OK

5. เลือกตำแหน่งที่คุณต้องการบันทึกไฟล์และกดปุ่ม OK

วิธีดาวน์โหลดไฟล์แนบอีเมล Microsoft Outlook ทั้งหมดพร้อมกันบน Mac

นี่คือวิธีดาวน์โหลดไฟล์แนบทั้งหมดโดยใช้ Outlook สำหรับ Mac:

1. เปิดแอปพลิเคชัน MS Outlook
2. เลือกข้อความอีเมลที่มีไฟล์แนบของคุณ
3. คลิกที่ Attachments และเลือก Download All

4. เลือกตำแหน่งที่คุณต้องการบันทึกไฟล์แนบและเลือก Choose

วิธีดาวน์โหลดไฟล์แนบ Outlook หลายไฟล์จากอีเมลหลายฉบับ

ก็สามารถดาวน์โหลดไฟล์แนบหลายไฟล์จากอีเมลหลายฉบับพร้อมกันได้ ในการทำเช่นนั้น:

ใช้โค้ด VBA

หากคุณใช้ Outlook 2019, 2016, 2013, 2010, 2007 หรือ 2003 คุณสามารถใช้โปรแกรมแก้ไข VBA เพื่อดาวน์โหลดไฟล์แนบหลายไฟล์จากอีเมลหลายฉบับ

1. เปิดโฟลเดอร์ Documents ของคุณและสร้างโฟลเดอร์ใหม่ชื่อว่า "Attachments" นี่คือที่ที่ไฟล์แนบจะดาวน์โหลดไป
2. เปิด Microsoft Outlook
3. กดปุ่ม Alt และ F11 บนแป้นพิมพ์เพื่อเปิดโปรแกรมแก้ไข VBA
4. คลิกขวา Microsoft Outlook Object > Insert > Insert Module

5. คัดลอกโค้ดต่อไปนี้ลงในโปรแกรมแก้ไขและกด Enter:

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
 VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
 Set xAttachments = xMailItem.Attachments
 xAttCount = xAttachments.Count
 xSaveFiles = ""
 If xAttCount > 0 Then
 For i = xAttCount To 1 Step -1
 GCount = 0
 xFilePath = xFolderPath & xAttachments.Item(i).FileName
 GFilepath = xFilePath
 xFilePath = FileRename(xFilePath)
 If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
 xAttachments.Item(i).SaveAsFile xFilePath
 If xMailItem.BodyFormat <> olFormatHTML Then
 xSaveFiles = xSaveFiles & vbCrLf & ""
 Else
 xSaveFiles = xSaveFiles & "
" & "" & xFilePath & ""
 End If
 End If
 Next i
 End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
 GCount = GCount + 1
 xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
 FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("https://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
 xHtml = xItem.HTMLBody
 xID = "cid:" & xCid
 If InStr(xHtml, xID) > 0 Then
 IsEmbeddedAttachment = True
 End If
 End If
End Function

หมายเหตุ: คุณสามารถคัดลอกโค้ดต้นฉบับด้านบนจาก Extend Office และวางลงในโปรแกรมแก้ไข

6. กด F5 เพื่อรันสคริปต์ คุณอาจได้รับหน้าต่างป๊อปอัพแจ้งให้คุณอนุญาตการกระทำ

ใช้เครื่องมือภายนอก

หากคุณใช้เวอร์ชัน Outlook อื่น ต้องการดาวน์โหลดประเภทไฟล์อื่นนอกจาก PST หรือพบว่าวิธี VBA ซับซ้อน คุณสามารถดาวน์โหลดเครื่องมือที่ช่วยให้คุณดาวน์โหลดไฟล์แนบ Outlook หลายไฟล์พร้อมกันได้

แอปอย่าง Outlook Attachment Extractor มีฟังก์ชันในการบันทึกไฟล์แนบไม่เพียงจากไฟล์ PST แต่ยังจากรูปแบบไฟล์อื่นๆ เช่น OST, BAK, MSG, OLK และ OLM คุณยังสามารถกำหนดค่าแอปเพื่อกรองไฟล์แนบโดยขนาดไฟล์ วันที่ หรือผู้ส่ง

วิธีดาวน์โหลดไฟล์แนบทั้งหมดจากไฟล์ที่เสียหาย

หากคุณไม่สามารถเปิด ดู หรือบันทึกไฟล์แนบใน Outlook ไฟล์ PST ของ Microsoft Outlook อาจเสียหายหรือเสียหาย คุณสามารถซ่อมแซมไฟล์ PST เพื่อดึงคืนไฟล์แนบโดยใช้เครื่องมืออย่างแอปพลิเคชัน SCANPST.exe

ในการใช้เครื่องมือนี้ ให้ปิด Outlook และไปที่ตำแหน่งต่อไปนี้ ขึ้นอยู่กับเวอร์ชัน Outlook ของคุณ:

1. Outlook 2019: C:\Program Files (x86)\Microsoft Office\root\Office16
2. Outlook 2016: C:\Program Files (x86)\Microsoft Office\root\Office16
3. Outlook 2013: C:\Program Files (x86)\Microsoft Office\Office15
4. Outlook 2010: C:\Program Files (x86)\Microsoft Office\Office14
5. Outlook 2007: C:\Program Files (x86)\Microsoft Office\Office12

จากนั้น ดับเบิลคลิก SCANPST.EXE

เลือก Browse ค้นหาไฟล์ข้อมูล Outlook ที่คุณต้องการสแกน และกด Start

หากเครื่องมือพบข้อผิดพลาด ให้เลือก Repair เพื่อพยายามแก้ไข เมื่อเสร็จสิ้น ให้รีสตาร์ท Outlook และตรวจสอบว่าทำงานได้แล้วหรือไม่

เพิ่มประสิทธิภาพกิจกรรมอีเมลของคุณ

การดาวน์โหลดไฟล์หลายไฟล์จาก Outlook เป็นเรื่องง่าย และคุณแม้แต่สามารถดาวน์โหลดไฟล์หลายไฟล์จากอีเมลหลายฉบับพร้อมกันได้ หากคุณพบว่าวิธีในตัวของ Outlook ยากเกินไป คุณสามารถดาวน์โหลดเครื่องมืออย่าง Outlook Attachment Extractor เพื่อช่วยคุณได้