Làm thế nào để Chỉ Lưu phần đính kèm Cụ thể (Excel) Trong Outlook?
Outlook cung cấp tính năng Lưu Tất cả Tệp đính kèm để giúp bạn lưu tất cả tệp đính kèm trong email vào một thư mục cụ thể cùng một lúc. Tuy nhiên, nếu bạn chỉ muốn lưu một số loại tệp đính kèm trong một hoặc nhiều email, chẳng hạn như sổ làm việc Excel, tài liệu Word, v.v., làm cách nào để đạt được điều đó? Trong hướng dẫn này, chúng tôi cung cấp cho bạn hai phương pháp để giải quyết vấn đề này.
Chỉ lưu các tệp đính kèm định dạng tệp cụ thể trong Outlook với mã VBA
Dễ dàng chỉ lưu các tệp đính kèm định dạng tệp cụ thể trong Outlook với một công cụ tuyệt vời
Chỉ lưu các tệp đính kèm định dạng tệp cụ thể trong Outlook với mã VBA
Mã VBA sau có thể giúp chỉ lưu các tệp đính kèm định dạng tệp cụ thể trong một hoặc nhiều email đã chọn vào một thư mục cụ thể. Hãy làm như sau.
1. Khởi chạy Outlook của bạn. Trong danh sách Thư, hãy chọn một hoặc nhiều email mà từ đó bạn chỉ muốn lưu các tệp đính kèm ở một định dạng tệp cụ thể.
2. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ. Trong cửa sổ mở, nhấp vào Chèn > Mô-đun, và sau đó sao chép mã VBA bên dưới vào cửa sổ Mô-đun.
Mã VBA: Chỉ lưu tệp đính kèm cụ thể trong một email hoặc nhiều email vào một thư mục
Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
If xItem.Class = olMail Then
xFilesSavePath = ""
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xExt = "." & xFSO.GetExtensionName(xFilePath)
xExtArr = VBA.Split(xExtStr, ",")
xS = VBA.Filter(xExtArr, xExt)
If UBound(xS) > -1 Then
xAttachment.SaveAsFile xFilePath
If xItem.BodyFormat <> olFormatHTML Then
xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xFilesSavePath = xFilesSavePath & "
" & "" & xFilePath & ""
End If
End If
Next
xItem.Save
End If
Next
Set xFSO = Nothing
End Sub3. nhấp chuột CÔNG CỤ > dự án, Trong Tài liệu tham khảo - Dự án hộp thoại, kiểm tra Thời gian chạy tập lệnh của Microsoft và nhấp vào OK .
4. Nhấn nút F5 phím để chạy mã. Trong cửa sổ bật ra Chọn thư mục hộp thoại, chọn một thư mục để lưu tệp đính kèm.
5. Và sau đó, nhấp vào OK, trong những điều sau đây Kutools cho Outlook hộp thoại, nhập phần mở rộng tệp của phần đính kèm mà bạn sẽ lưu vào hộp văn bản và nhấp vào OK.
Lưu ý: Đối với nhiều phần mở rộng tệp, bạn cần phân tách chúng bằng dấu phẩy.
Sau đó, chỉ các tệp đính kèm được chỉ định mới được lưu.
Dễ dàng chỉ lưu các tệp đính kèm định dạng tệp cụ thể trong Outlook với một công cụ tuyệt vời
Nếu bạn chưa quen với VBA, ở đây chúng tôi khuyên bạn nên sử dụng Lưu tất cả tệp đính kèm tính năng của Kutools cho Outlook. Với tính năng này, bạn có thể dễ dàng chỉ lưu các tệp đính kèm ở một định dạng tệp cụ thể trong Outlook.
1. Chọn các email mà bạn muốn chỉ lưu các tệp đính kèm ở một định dạng tệp cụ thể.
2. nhấp chuột Kutools > Công cụ đính kèm > Lưu tất cả.
3. bên trong Lưu các thiết lập hộp thoại, bạn cần cấu hình như sau.
nút để chọn một thư mục để lưu các tệp đính kèm;
4. Một hộp thoại bật lên nhắc bạn nếu bạn muốn lưu các tệp đính kèm, hãy nhấp vào OK để tiếp tục.
5. Sau đó, một hộp thoại khác bật lên để cho bạn biết có bao nhiêu tệp đính kèm đã được lưu, hãy nhấp vào OK .
Bây giờ chỉ các tệp đính kèm định dạng tệp cụ thể được lưu.
Nhấp chuột tại đây để biết thêm về tính năng này.
Nếu bạn muốn dùng thử miễn phí (30 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:
- Làm cách nào để lưu tất cả các tệp đính kèm từ thư email trong Outlook?
- Làm cách nào để xóa tất cả các tệp đính kèm khỏi email 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.
