Làm cách nào để lưu tệp đính kèm mà không cần mở email trong Outlook?
Bạn có thể thường xuyên phải lưu các tệp đính kèm từ các email đã nhận vào đĩa máy tính của mình. Thật dễ dàng để lưu một tệp đính kèm hoặc tất cả các tệp đính kèm từ một email, nhưng làm thế nào để lưu tệp đính kèm từ nhiều email cùng một lúc? Thông thường, bạn cần mở nhiều lần email và lưu các tệp đính kèm. Có bất kỳ thủ thuật nào để thoát khỏi các hoạt động lặp lại? Ở đây các phương pháp trong hướng dẫn này có thể giúp bạn.
Lưu tệp đính kèm từ một hoặc nhiều email mà không cần mở bằng mã VBA
Lưu tệp đính kèm từ một hoặc nhiều email mà không cần mở bằng một công cụ tuyệt vời
Lưu tệp đính kèm từ một hoặc nhiều email mà không cần mở bằng mã VBA
Mã VBA dưới đây có thể giúp lưu tệp đính kèm từ một hoặc nhiều email cùng một lúc mà không cần mở email trong Outlook. Hãy làm như sau.
1. Chọn một email hoặc nhiều email mà bạn sẽ lưu các tệp đính kèm, bấm Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Mở rộng Đối tượng Microsoft Outlook thư mục, nhấp đúp vào ĐâyOutlookSession để mở Mã và sau đó sao chép mã VBA bên dưới vào đó.
Mã VBA: Lưu tệp đính kèm mà không cần mở email
Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xSavePath = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
Set xAttachments = xMailItem.Attachments
xCount = xAttachments.Count
xOriginalFiles = ""
If xCount > 0 Then
For i = xCount To 1 Step -1
Set xAttachment = xAttachments.Item(i)
If IsEmbeddedAttachment(xAttachment) = False Then
xFileName = xSavePath & xAttachment.FileName
xAttachment.SaveAsFile xFileName
xAttachment.Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
Else
xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
End If
End If
Next i
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
End If
xMailItem.Save
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub
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
4. Nhấn nút F5 phím để chạy mã. Sau đó a Chọn thư mục cửa sổ bật lên, vui lòng chọn một thư mục để lưu các tệp đính kèm, sau đó nhấp vào OK .
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 đã chọn ngay lập tức.
Lưu ý: Tất cả các tệp đính kèm sẽ được tách ra khỏi email và giữ các liên kết đường dẫn lưu tương ứng trong nội dung email.
Lưu tệp đính kèm từ một hoặc nhiều email mà không cần mở bằng một công cụ tuyệt vời
Nếu bạn là người mới trong VBA, phương pháp trong phần này sẽ là lựa chọn tốt cho bạn.
Ở đây giới thiệu Lưu tất cả tệp đính kèm tiện ích của Kutools cho Outlook cho bạn. Nếu bạn chỉ muốn lưu tệp đính kèm mà không tách khỏi các email đã chọn, tính năng Lưu tất cả tệp đính kèm có thể giúp bạn dễ dàng hoàn thành. Hãy làm như sau.
Trước khi áp dụng Kutools cho Outlook, vui lòng tải về và cài đặt nó trước hết.
1. Chọn các email có chứa các tệp đính kèm bạn sẽ lưu, nhấp vào Kutools > Công cụ đính kèm > Lưu tất cả.
2. bên trong Lưu các thiết lập hộp thoại, bạn cần:
- 2.1) Trong Lưu (các) tệp đính kèm vào thư mục này phần, chọn một thư mục để lưu các tệp đính kèm;
- 2.2) Lưu (các) tệp đính kèm theo kiểu bên dưới là tùy chọn để bạn tạo một thư mục con với kiểu certian để lưu các tệp đính kèm hoặc đổi tên các tệp đính kèm đã lưu bằng kiểu certian.
- 2.3) Nhấp OK để bắt đầu lưu tất cả các tệp đính kèm từ các email đã chọn.
Lời khuyên: Với các cấu hình trên, tất cả các tệp đính kèm sẽ được lưu vào thư mục được chỉ định. Nếu bạn chỉ muốn lưu một số tệp đính kèm chứng nhận, chẳng hạn như chỉ lưu tệp PDF với từ "hóa đơn" chứng nhận trong tên tệp, bạn có thể định cấu hình các điều kiện bộ lọc như sau.
- Nhấn vào Tùy chọn cấp cao nút để mở rộng Điều kiện lọcs;
- Chỉ định các điều kiện dựa trên nhu cầu của bạn.
Lời khuyên: Ở đây tôi kiểm tra Tên tệp đính kèm hộp chứa và sau đó nhập "hóa đơn" vào hộp văn bản, sau đó chọn Kiểu đính kèm , nhập ".pdf" vào hộp văn bản.
3. Trong hộp thoại bật lên tiếp theo, hãy nhấp vào Có để tiếp tục.
Sau đó, các tệp đính kèm trong các email đã chọn sẽ được lưu vào thư mục được chỉ định cùng một lúc.
Lời khuyên: Để tách các tệp đính kèm khỏi các email đã chọn và chỉ để lại các siêu liên kết tệp đính kèm trong nội dung email, Tách tất cả các tệp đính kèm tính năng có thể giúp.
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
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.
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.
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.
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.