Note: The other languages of the website are Google-translated. Back to English

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 Sub

3. 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.

3.1) Trong Lưu (các) tệp đính kèm vào thư mục này phần, nhấp vào nút để chọn một thư mục để lưu các tệp đính kèm;
3.2) Nhấp vào Tùy chọn cấp cao nút để mở hộp thoại;
3.3) Trong Điều kiện lọc phần, kiểm tra Kiểu đính kèm hộp kiểm, sau đó nhập phần mở rộng tệp của phần đính kèm mà bạn sẽ lưu vào văn bản.
Lời khuyên: Đố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 chấm phẩy.
3.4) Nhấp vào OK cái nút. Xem ảnh chụp màn hình:

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 ở đâ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-day) của 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:


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL