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

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

วิธีดาวน์โหลดไฟล์แนบอีเมล Microsoft Outlook^{(Microsoft Outlook Email Attachments)} ทั้งหมด พร้อมกัน^(Once)บนWindows

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

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

1. ในกล่องโต้ตอบใหม่ ให้กด ปุ่ม CTRLบนคีย์บอร์ดค้างไว้แล้วเลือกไฟล์แนบทั้งหมดที่คุณต้องการดาวน์โหลด คลิก^{(Click OK)}ตกลง

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

วิธีดาวน์โหลดไฟล์แนบอีเมล Microsoft Outlook^{(Microsoft Outlook Email Attachments)} ทั้งหมด พร้อมกัน^(Once)บนMac

ต่อไปนี้เป็นวิธีดาวน์โหลดไฟล์แนบทั้งหมดโดยใช้Outlook for Mac :

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

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

วิธีดาวน์โหลดไฟล์แนบ Outlook หลายไฟล์^{(Download Multiple Outlook Attachments)}จากอีเมลหลายฉบับ^{(Multiple Emails)}

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

ใช้โค้ด VBA

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

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

1. คัดลอกโค้ดต่อไปนี้ลงในตัวแก้ไขแล้วกด Enter:

Dim GCount เป็นจำนวนเต็ม

Dim GFilepath เป็นสตริง

บันทึกย่อยสาธารณะสิ่งที่แนบมา()

'อัปเดต 20200821

Dim xMailItem เป็น Outlook.MailItem

หรี่^(Dim) xAttachments เป็น Outlook.Attachments

Dim xSelection เป็น Outlook.Selection

ติ่มซำฉันตราบเท่าที่

Dim xAttCount ตราบเท่าที่

Dim xFilePath As String , xFolderPath As String , xSaveFiles As String

เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป

xFolderPath = CreateObject (“WScript.Shell”).โฟลเดอร์พิเศษ(16)

ตั้งค่า^(Set) xSelection = Outlook.Application.ActiveExplorer.Selection

xFolderPath = xFolderPath & “ไฟล์แนบ”

ถ้าVBA.Dir ( xFolderPath , vbDirectory) = vbNullString จากนั้น

VBA.MkDir xFolderPath

สิ้นสุดถ้า

GFilepath = “”

สำหรับ xMailItem แต่ละรายการใน xSelection

ตั้งค่า^(Set) xAttachments = xMailItem.Attachments

xAttCount = xAttachments.Count

xSaveFiles = “”

ถ้า xAttCount > 0 แล้ว

สำหรับ i = xAttCount ถึง 1 ขั้นตอน^(Step) -1

GCount = 0

xFilePath = xFolderPath & xAttachments.Item (i).ชื่อไฟล์

GFilepath = xFilePath

xFilePath = ชื่อไฟล์^(FileRename) (xFilePath)

ถ้าIsEmbeddedAttachment ( xAttachments.Item (i)) = False จากนั้น

xAttachments.Item(i).SaveAsFile xFilePath

ถ้า xMailItem.BodyFormat <> olFormatHTML แล้ว

xSaveFiles = xSaveFiles & vbCrLf & “การอ้างอิงไฮเปอร์ลิงก์ไม่ถูกต้อง>”

อื่น

xSaveFiles = xSaveFiles & “
” & “ xFilePath & “‘>” & xFilePath & “ ”

สิ้นสุดถ้า

สิ้นสุดถ้า

ถัดไป

สิ้นสุดถ้า

ต่อไป

ตั้งค่า xAttachments = ไม่มีเลย

ตั้งค่า xMailItem = ไม่มีเลย

ตั้งค่า xSelection = ไม่มีเลย

จบหมวดย่อย

ฟังก์ชั่นFileRename ( FilePath As String ) เป็นString

Dim xPath เป็นสตริง

Dim xFso เป็น FileSystemObject

เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป

Set xFso = CreateObject (“ Scripting.FileSystemObject ”)

xPath = ไฟล์พาธ

การเปลี่ยนชื่อไฟล์ = xPath

ถ้า xFso.FileExists(xPath) แล้ว

GCount = GCount + 1

xPath = xFso.GetParentFolderName( GFilepath ) & “” & xFso.GetBaseName ( GFilepath ) & ” ” & GCount & “” + xFso.GetExtensionName( GFilepath )

FileRename = เปลี่ยนชื่อไฟล์(xPath)

สิ้นสุดถ้า

xFso = ไม่มีอะไร

ฟังก์ชันสิ้นสุด

ฟังก์ชั่น IsEmbeddedAttachment^{(Function IsEmbeddedAttachment)} ( แนบ^(Attach)เป็นไฟล์แนบ^(Attachment) )

Dim xItem เป็น MailItem

Dim xCid เป็นสตริง

Dim xID เป็นสตริง

Dim xHtml เป็นสตริง

เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป

IsEmbeddedAttachment = เท็จ

ตั้งค่า xItem = Attach.Parent

ถ้า xItem.BodyFormat <> olFormatHTML จากนั้นออกจากฟังก์ชัน^(Function)

xCid = “”

xCid = Attach.PropertyAccessor.GetProperty (“http://schemas.microsoft.com/mapi/proptag/0x3712001F”)

ถ้า xCid <> “” จากนั้น

xHtml = xItem.HTMLBody

xID = “ซิด:” & xCid

ถ้า InStr(xHtml, xID) > 0 แล้ว

IsEmbeddedAttachment = จริง^(True)

สิ้นสุดถ้า

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

หมายเหตุ: คุณสามารถคัดลอกโค้ดต้นฉบับด้านบนจาก Extended Office^{(original code above from Extend Office)}และวางลงในโปรแกรมแก้ไข

1. กด F5^{(Press F5)}เพื่อเรียกใช้สคริปต์ คุณอาจได้รับหน้าต่างป๊อปอัปแจ้งให้คุณอนุญาตการดำเนินการ

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

หากคุณใช้Outlook เวอร์ชันอื่น ต้องการดาวน์โหลดไฟล์ประเภทอื่นที่ไม่ใช่ PST^{(a file type other than PST)}หรือพบว่า วิธี VBAยุ่งยาก คุณสามารถดาวน์โหลดเครื่องมือที่สามารถช่วยคุณดาวน์โหลด ไฟล์แนบ Outlook หลาย ไฟล์พร้อมกันได้

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

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

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

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

1. Outlook 2019: ไฟล์ C: โปรแกรม (x86) Microsoft Office\root\Office16
2. Outlook 2016: ไฟล์ C: โปรแกรม (x86) Microsoft Office\root\Office16
3. Outlook 2013: C: ไฟล์โปรแกรม (x86) Microsoft Office\Office15
4. Outlook 2010: C: ไฟล์โปรแกรม (x86) Microsoft Office\Office14
5. Outlook 2007: C: ไฟล์โปรแกรม (x86) Microsoft Office\Office12

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

เลือก เรียกดู^{(Select Browse)}ค้นหา ไฟล์ข้อมูล Outlookที่ คุณต้องการสแกน แล้วกดStart

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

ปรับปรุงกิจกรรมอีเมลของคุณ

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

How to Download All Attachments From Outlook Emails

If you’re іn an industry where you receive countless emails every day, you likely get many emails with multiple attachments. Using a manual method to extract attachments can be time-consuming if there are many to download. Luckily, it’s easy to save multіple email attachmentѕ at once using Microsoft Outloоk.

In this tutorial, we’ll show you how to download all attachments from Outlook.

How to Download All Microsoft Outlook Email Attachments at Once on Windows

To download all attachments at once using the Windows Microsoft Outlook app, do the following:

1. Open Outlook and sign in to your Outlook profile.
2. Select the email with your desired Outlook attachments.
3. Right-click any of the attachment files and select Save all attachments in the drop-down menu. If you only want to save one file, select Save As.

1. In the new dialog box, hold down the CTRL key on your keyboard and select all of the attachments you want to download. Click OK.

1. Select the location that you would like to save the files to and press the OK button.

How to Download All Microsoft Outlook Email Attachments at Once on Mac

Here’s how to download all attachments using Outlook for Mac:

1. Open the MS Outlook application.
2. Select the Email message that contains your attachments.
3. Click on Attachments and select Download All.

1. Select the location that you would like to save your attachments and select Choose.

How to Download Multiple Outlook Attachments From Multiple Emails

It’s also possible to download multiple attachments from many emails at once. To do so:

Use VBA Code

If you are using Outlook 2019, 2016, 2013, 2010, 2007, or 2003, you can use the VBA editor to download multiple attachments from multiple emails.

1. Open your Documents folder and create a new folder named “Attachments.” This is where your attachments will download to.
2. Open Microsoft Outlook.
3. Press the Alt and F11 keys on the keyboard to open the VBA editor.
4. Right-click Microsoft Outlook Object > Insert > Insert Module.

1. Copy the following code into the editor and press 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 & “<Error! Hyperlink reference not valid.>”

Else

xSaveFiles = xSaveFiles & “<br>” & “<a href=’file://” & xFilePath & “‘>” & xFilePath & “</a>”

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(“http://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

Note: You can copy the original code above from Extend Office and paste it into the editor.

1. Press F5 to run the script. You may get a pop-up window prompting you to allow the action.

Using an External Tool

If you’re using another version of Outlook, want to download a file type other than PST, or find the VBA method cumbersome, you can download a tool that can help you download multiple Outlook attachments at once.

Apps such as Outlook Attachment Extractor have the functionality to save attachments not only from PST files, but from other file formats such as OST, BAK, MSG, OLK, and OLM files, too. You can also configure the app to filter attachments by file size, date, or sender.

How to Download All Attachments From a Corrupted File

If you cannot open, view, or save file attachments in Outlook, the Microsoft Outlook PST file may be corrupted or damaged. You can repair the PST file to retrieve the attachment using tools such as the SCANPST.exe application.

To use this tool, close Outlook and navigate to one of the following locations, depending on your version of 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

Then, double-click SCANPST.EXE.

Select Browse, locate the Outlook data file you want to scan and press Start.

If the tool finds errors, select Repair to attempt to fix them. Once complete, restart Outlook and check whether it now works.

Streamline Your Email Activities

Downloading multiple files from Outlook is easy and you can even download multiple files from multiple emails all at once. If you find the built-in methods in Outlook too difficult, you can download tools such as Outlook Attachment Extractor to help you out.

Related posts

• MacBook Pro หยุดการเชื่อมต่อไร้สายอย่างต่อเนื่อง?

• ถ่ายภาพหน้าจอบน Mac อย่างมืออาชีพด้วยคำแนะนำและเคล็ดลับเหล่านี้

• ฮาร์ดไดรฟ์ภายนอกไม่แสดงใน Windows หรือ OS X?

• เปลี่ยนหรือปลอมแปลงที่อยู่ MAC ใน Windows หรือ OS X

• วิธีปรับเทียบจอภาพของคุณใน Windows และ OS X

• Mac Firewall: วิธีเปิดใช้งานและกำหนดค่า

• 5 วิธีในการบังคับปิดแอปบน Mac ของคุณ

• วิธีพิมพ์ขาวดำบน Mac

• APFS กับ Mac OS Extended – รูปแบบดิสก์ Mac ใดดีที่สุด?

• แป้นพิมพ์ลัด Mac OS X ที่ดีที่สุด

• แอพที่ดีที่สุดสำหรับ Mac ในปี 2020

• วิธีดาวน์เกรด macOS

• วิธีฮาร์ดรีเซ็ตคอมพิวเตอร์ Mac OS X และติดตั้ง OS ใหม่

• ปุ่มบางปุ่มบน Mac ของคุณทำงานไม่ถูกต้องใช่ไหม

• วิธีอัปเดตแอป Mac OS X และ Mac จาก Terminal

• สำรองข้อมูล Mac ของคุณโดยใช้ Time Machine

• 9 สิ่งที่ต้องทำก่อนขาย Mac ของคุณ

• วิธีสร้างตัวติดตั้ง MacOS บน USB Stick

• วิธีเพิ่มทางลัดเมนูเพื่อปิด MacOS Finder

• แก้ไข “Cannot Install the Software for Printer” บน OS X