Nếu bạn hoạt động trong ngành nơi bạn nhận được vô số email mỗi ngày, bạn có thể nhận được nhiều email có nhiều tệp đính kèm. Sử dụng phương pháp thủ công để trích xuất tệp đính kèm có thể tốn thời gian nếu có nhiều tệp để tải xuống. May mắn thay, thật dễ dàng để lưu nhiều tệp đính kèm email cùng một lúc bằng Microsoft Outlook.
Trong hướng dẫn này, chúng tôi sẽ chỉ cho bạn cách tải xuống tất cả tệp đính kèm từ Outlook.
Cách tải xuống tất cả tệp đính kèm email Microsoft Outlook cùng một lúc trên Windows
Để tải xuống tất cả tệp đính kèm cùng lúc bằng ứng dụng Windows Microsoft Outlook, hãy làm như sau:
Cách tải xuống tất cả tệp đính kèm email Microsoft Outlook cùng một lúc trên máy Mac
Dưới đây là cách tải xuống tất cả tệp đính kèm bằng Outlook dành cho Mac:
Cách tải xuống nhiều tệp đính kèm Outlook từ nhiều email
Bạn cũng có thể tải xuống nhiều tệp đính kèm từ nhiều email cùng một lúc. Để làm như vậy:
Sử dụngMã VBA
Nếu bạn đang sử dụng Outlook 2019, 2016, 2013, 2010, 2007 hoặc 2003, bạn có thể sử dụng Trình soạn thảo VBA để tải xuống nhiều tệp đính kèm từ nhiều email.
Dim GCount dưới dạng số nguyên
Dim GFilepath dưới dạng chuỗi
SaveAttachments phụ công khai()
'Cập nhật 20200821
Dim xMailItem dưới dạng Outlook.MailItem
Dim xAttachments Như Outlook.Attachments
Dim xSelection Như Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath dưới dạng chuỗi, xFolderPath dưới dạng chuỗi, xSaveFiles dưới dạng chuỗi
Khi có lỗi Tiếp tục tiếp theo
xFolderPath = CreateObject(“WScript.Shell”). SpecialFolders(16)
Đặt xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & “\Attachments\”
Nếu VBA.Dir(xFolderPath, vbDirectory) = vbNullString thì
VBA.MkDir xFolderPath
Kết thúc nếu
GFilepath = “”
Đối với mỗi xMailItem trong xSelection
Đặt xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = “”
Nếu xAttCount >0 thì
Với i = xAttCount Đến 1 Bước -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
Nếu IsEmbeddedAttachment(xAttachments.Item(i)) = Sai thì
xAttachments.Item(i).SaveAsFile xFilePath
Nếu xMailItem.BodyFormat <>olFormatHTML thì
xSaveFiles = xSaveFiles & vbCrLf & “
Khác
xSaveFiles = xSaveFiles & “
” & “” & xFilePath & “ ”
Kết thúc nếu
Kết thúc nếu
Tiếp theo tôi
Kết thúc nếu
Tiếp theo
Đặt xAttachments = Không có gì.
Đặt xMailItem = Không có gì
Đặt xSelection = Không có gì
Kết thúc phụ
Hàm FileRename(FilePath As String) As String
Dim xPath dưới dạng chuỗi
Dim xFso As FileSystemObject
Khi có lỗi Tiếp tục tiếp theo
Đặt xFso = CreateObject(“Scripting.FileSystemObject”)
xPath = Đường dẫn tệp
FileRename = xPath
Nếu xFso.FileExists(xPath) thì
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & “\” & xFso.GetBaseName(GFilepath) & ” ” & GCount & “.” + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
Kết thúc nếu
xFso = Không có gì
Chức năng kết thúc
Chức năng IsEmbeddedAttachment(Đính kèm dưới dạng tệp đính kèm)
Dim xItem dưới dạng MailItem
Dim xCid dưới dạng chuỗi
Dim xID dưới dạng chuỗi
Dim xHtml dưới dạng chuỗi
Khi có lỗi Tiếp tục tiếp theo
IsEmbeddedAttachment = Sai
Đặt xItem = Attach.Parent
Nếu xItem.BodyFormat <>olFormatHTML thì thoát chức năng
xCid = “”
xCid = Attach.PropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/proptag/0x3712001F”)
Nếu xCid <>“” Thì
xHtml = xItem.HTMLBody
xID = “cid:” & xCid
Nếu InStr(xHtml, xID) >0 thì
IsEmbeddedAttachment = Đúng
Kết thúc nếu
Kết thúc nếu
Chức năng kết thúc
Lưu ý: Bạn có thể sao chép mã gốc ở trên từ Extend Office và dán vào trình chỉnh sửa.
Sử dụng công cụ bên ngoài
Nếu bạn đang sử dụng một phiên bản khác của Outlook, muốn tải xuống một loại tệp không phải là PST hoặc thấy phương pháp VBA rườm rà, bạn có thể tải xuống một công cụ có thể giúp bạn tải xuống nhiều tệp đính kèm Outlook cùng một lúc.
Các ứng dụng như Trình trích xuất tệp đính kèm Outlook có chức năng lưu tệp đính kèm không chỉ từ tệp PST mà còn từ các định dạng tệp khác như tệp OST, BAK, MSG, OLK và OLM. Bạn cũng có thể định cấu hình ứng dụng để lọc tệp đính kèm theo kích thước tệp, ngày hoặc người gửi.
Cách tải xuống tất cả tệp đính kèm từ tệp bị hỏng
Nếu bạn không thể mở, xem hoặc lưu tệp đính kèm trong Outlook thì tệp Microsoft Outlook PST có thể bị hỏng hoặc bị hỏng. Bạn có thể sửa chữa tập tin PST truy xuất tệp đính kèm bằng các công cụ như ứng dụng SCANPST.exe..
Để sử dụng công cụ này, hãy đóng Outlook và điều hướng đến một trong các vị trí sau, tùy thuộc vào phiên bản Outlook của bạn:
Sau đó, nhấp đúp vào SCANPST.EXE.
Chọn Duyệt, tìm tệp dữ liệu Outlook mà bạn muốn quét và nhấn Bắt đầu.
Nếu công cụ tìm thấy lỗi, hãy chọn Sửa chữađể cố gắng khắc phục chúng. Sau khi hoàn tất, hãy khởi động lại Outlook và kiểm tra xem nó có hoạt động không.
Hợp lý hóa các hoạt động email của bạn
Tải xuống nhiều tệp từ Outlook thật dễ dàng và thậm chí bạn có thể tải xuống nhiều tệp từ nhiều email cùng một lúc. Nếu bạn thấy các phương pháp tích hợp trong Outlook quá khó, bạn có thể tải xuống các công cụ như Trình trích xuất tệp đính kèm Outlook để trợ giúp.
.