Làm cách nào để lưu tất cả các tệp đính kèm từ nhiều email vào thư mục trong Outlook?
Thật dễ dàng lưu tất cả các tệp đính kèm từ email với tính năng Lưu Tất cả Tệp đính kèm tích hợp trong Outlook. Tuy nhiên, nếu bạn muốn lưu tất cả các tệp đính kèm từ nhiều email cùng một lúc thì không có tính năng trực tiếp nào có thể giúp được. Bạn cần áp dụng nhiều lần tính năng Lưu tất cả tệp đính kèm trong mỗi email cho đến khi tất cả tệp đính kèm được lưu từ những email đó. Thật là tốn thời gian. Trong bài viết này, chúng tôi giới thiệu hai phương pháp để bạn lưu hàng loạt tất cả các tệp đính kèm từ nhiều email vào một thư mục cụ thể một cách dễ dàng trong Outlook.
Lưu tất cả các tệp đính kèm từ nhiều email vào thư mục với mã VBA
Một vài cú nhấp chuột để lưu tất cả các tệp đính kèm từ nhiều email vào thư mục bằng một công cụ tuyệt vời
Lưu tất cả các tệp đính kèm từ nhiều email vào thư mục với mã VBA
Phần này trình bày mã VBA trong hướng dẫn từng bước để giúp bạn nhanh chóng lưu tất cả các tệp đính kèm từ nhiều email vào một thư mục cụ thể cùng một lúc. Hãy làm như sau.
1. Đầu tiên, bạn cần tạo một thư mục để lưu các tệp đính kèm trong máy tính của mình.
Vao trong Tài liệu thư mục và tạo một thư mục có tên "Phần đính kèm". Xem ảnh chụp màn hình:
2. Chọn các email mà bạn sẽ lưu các tệp đính kèm, sau đó nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
3. nhấp chuột Chèn > Mô-đun để mở Mô-đun cửa sổ, rồi sao chép một trong các mã VBA sau vào cửa sổ.
Mã VBA 1: Lưu hàng loạt tệp đính kèm từ nhiều email (lưu trực tiếp các tệp đính kèm cùng tên chính xác)
Lời khuyên: Mã này sẽ lưu các tệp đính kèm cùng tên chính xác bằng cách thêm các chữ số 1, 2, 3 ... sau tên tệp.
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
Mã VBA 2: Lưu hàng loạt tệp đính kèm từ nhiều email (kiểm tra các bản sao)
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
Dim xYesNo As Integer
Dim xFlag As Boolean
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
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
xFilePath = xFolderPath & xAttachments.Item(i).FileName
xFlag = True
If VBA.Dir(xFilePath, 16) <> Empty Then
xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
If xYesNo = vbNo Then xFlag = False
End If
If xFlag = True 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
Chú ý:
5. Nhấn nút F5 phím để chạy mã.
Sau đó, tất cả các tệp đính kèm trong các email đã chọn sẽ được lưu vào thư mục bạn đã tạo ở bước 1.
Ghi chú: Có thể có một Microsoft Outlook hộp nhắc nhở bật lên, vui lòng nhấp vào Cho phép để tiếp tục.
Lưu tất cả các tệp đính kèm từ nhiều email vào thư mục bằng một công cụ tuyệt vời
Nếu bạn là một người mới trong VBA, đây rất khuyến khích Lưu tất cả tệp đính kèm tiện ích của Kutools cho Outook cho bạn. Với tiện ích này, bạn có thể nhanh chóng lưu tất cả các tệp đính kèm từ nhiều email cùng một lúc chỉ với vài cú nhấp chuột trong Outlook.
Trước khi áp dụng tính năng, vui lòng tải xuống và cài đặt Kutools cho Outlook trước tiên.
1. Chọn email có chứa các tệp đính kèm mà bạn muốn lưu.
Lời khuyên: Bạn có thể chọn nhiều email không liền kề bằng cách giữ Ctrl phím và chọn từng cái một;
Hoặc chọn nhiều email liền kề bằng cách giữ sự thay đổi và chọn email đầu tiên và email cuối cùng.
2. nhấp chuột Kutools >Công cụ đính kèm > Lưu tất cả. Xem ảnh chụp màn hình:
3. bên trong Lưu các thiết lập hộp thoại, nhấp vào 
để chọn một thư mục để lưu các tệp đính kèm, sau đó bấm vào OK .
3. nhấp chuột OK hai lần trong hộp thoại bật lên tiếp theo, Sau đó, tất cả các tệp đính kèm trong các email đã chọn được lưu trong thư mục được chỉ định cùng một lúc.
Ghi chú:
- 1. Nếu bạn muốn lưu tệp đính kèm trong các thư mục khác nhau dựa trên email, vui lòng kiểm tra Tạo các thư mục con theo kiểu sau và chọn một kiểu thư mục từ menu thả xuống.
- 2. Bên cạnh việc lưu tất cả các tệp đính kèm, bạn có thể lưu tệp đính kèm theo các điều kiện cụ thể. Ví dụ: bạn chỉ muốn lưu các tệp đính kèm pdf có tên tệp chứa từ "Hóa đơn", vui lòng nhấp vào Tùy chọn cấp cao để mở rộng các điều kiện, rồi cấu hình như ảnh chụp màn hình bên dưới.
- 3. Nếu bạn muốn tự động lưu tệp đính kèm khi email đến, Tự động lưu tệp đính kèm tính năng có thể giúp.
- 4. Để tách các tệp đính kèm trực tiếp khỏi các email đã chọn, Tách tất cả các tệp đính kèm tính năng của Kutools cho Outlook có thể làm bạn một ân huệ.
Nếu bạn muốn dùng thử miễn phí (60 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.
Các bài liên quan
Chèn tệp đính kèm vào nội dung email trong Outlook
Thông thường, tệp đính kèm được hiển thị trong trường Đính kèm trong email soạn thảo. Ở đây hướng dẫn này cung cấp các phương pháp giúp bạn dễ dàng chèn tệp đính kèm vào nội dung email trong Outlook.
Tự động tải xuống / lưu tệp đính kèm từ Outlook vào một thư mục nhất định
Nói chung, bạn có thể lưu tất cả các tệp đính kèm của một email bằng cách nhấp vào Tệp đính kèm> Lưu Tất cả Tệp đính kèm trong Outlook. Nhưng, nếu bạn cần lưu tất cả các tệp đính kèm từ tất cả các email đã nhận và email đã nhận, thì có lý tưởng nào không? Bài viết này sẽ giới thiệu hai giải pháp để tự động tải xuống tệp đính kèm từ Outlook vào một thư mục nhất định.
In tất cả các tệp đính kèm trong một / nhiều email trong Outlook
Như bạn đã biết, nó sẽ chỉ in nội dung email như tiêu đề, nội dung khi bạn nhấp vào Tệp> In trong Microsoft Outlook, nhưng không in các tệp đính kèm. Sau đây, chúng tôi sẽ chỉ cho bạn cách in tất cả các tệp đính kèm trong một email đã chọn một cách dễ dàng trong Microsoft Outlook.
Tìm kiếm từ trong tệp đính kèm (nội dung) trong Outlook
Khi chúng tôi nhập một từ khóa vào hộp Tìm kiếm Tức thì trong Outlook, nó sẽ tìm kiếm từ khóa đó trong các chủ đề, nội dung, tệp đính kèm của email, v.v. Nhưng bây giờ tôi chỉ cần tìm kiếm từ khóa trong nội dung tệp đính kèm duy nhất trong Outlook, có ý kiến gì không? Bài viết này chỉ cho bạn các bước chi tiết để dễ dàng tìm kiếm các từ trong nội dung phần đính kèm trong Outlook.
Giữ tệp đính kèm khi trả lời trong Outlook
Khi chúng tôi chuyển tiếp một thư email trong Microsoft Outlook, các tệp đính kèm ban đầu trong thư email này vẫn còn trong thư được chuyển tiếp. Tuy nhiên, khi chúng tôi trả lời thư email, các tệp đính kèm ban đầu sẽ không được đính kèm trong thư trả lời mới. Ở đây chúng tôi sẽ giới thiệu một số thủ thuật về việc giữ các tệp đính kèm gốc khi trả lời trong Microsoft Outlook.
Công cụ năng suất văn phòng tốt nhất
Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn
📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP) / Lên lịch gửi email / Tự động CC/BCC theo quy định khi gửi Email / Tự động chuyển tiếp (Quy tắc nâng cao) / Tự động thêm lời chào / Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !
📨 Quản lý email: Dễ dàng thu hồi email / Chặn email lừa đảo theo chủ đề và những người khác / Xóa các email trùng lặp / Tìm Kiếm Nâng Cao / Hợp nhất các thư mục hữu ích. Cảm ơn !
📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt / Tách hàng loạt / Nén hàng loạt / Tự động lưu / Tự động tách / Tự động nén hữu ích. Cảm ơn !
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Tăng năng suất Outlook của bạn với chế độ xem theo thẻ / Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !
👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến / Email chống lừa đảo / 🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !
👩🏼🤝👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn / Chia nhóm liên hệ thành các nhóm riêng lẻ / Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !
Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.
