Note: The other languages of the website are Google-translated. Back to English
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

Làm cách nào để chỉ lưu tệp đính kèm (excel) cụ thể trong Outlook?

Outlook cung cấp tính năng Lưu Tất cả Tệp đính kèm để bạn nhanh chóng 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 loại tệp đính kèm cụ thể trong email, chẳng hạn như tệp đính kèm Excel, tài liệu Word, v.v., bạn có thể làm gì để đạt được nó? Ở đây chúng tôi cung cấp một phương pháp VBA để giải quyết vấn đề.

Chỉ lưu tệp đính kèm cụ thể trong Outlook


Dễ dàng lưu tất cả các tệp đính kèm từ nhiều email đã chọn vào thư mục:

Với Tách tất cả các tệp đính kèm tiện ích của Kutools cho Excel, bạn có thể dễ dàng lưu tất cả các tệp đính kèm từ nhiều email đã chọn vào thư mục được chỉ định trong Outlook như ảnh chụp màn hình bên dưới.

Kutools cho Outlook: với hơn 40 bổ trợ Outlook tiện dụng, dùng thử miễn phí không giới hạn trong 45 ngày. Tải xuống và dùng thử miễn phí ngay!

Tab Office - Cho phép Chỉnh sửa và Duyệt theo Tab trong Office và Giúp Công việc Dễ dàng hơn Nhiều ...
Kutools cho Outlook - Mang đến 100 tính năng nâng cao mạnh mẽ cho Microsoft Outlook
  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo quy tắc; 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ỉ mail 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 cùng một lúc; Tự động thêm lời chào khi trả lời; Tự động Thêm Ngày & Giờ vào chủ đề ...
  • Công cụ đính kèm: Tự động tách, Nén tất cả, Đổi tên tất cả, Tự động lưu tất cả ... Báo cáo nhanh, Đếm Thư đã Chọn, Xóa Thư và Địa chỉ Liên hệ Trùng lặp ...
  • Hơn 100 tính năng nâng cao sẽ giải quyết hầu hết các vấn đề của bạn trong Outlook 2010-2019 và 365. Có đầy đủ các tính năng dùng thử miễn phí 60 ngày.

Chỉ lưu tệp đính kèm cụ thể trong Outlook

Mã VBA dưới đây có thể giúp 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 cụ thể. Hãy làm như sau.

1. Khởi chạy Outlook của bạn, trong danh sách gửi thư, hãy chọn một email hoặc nhiều email mà bạn sẽ lưu tệp đính kèm 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 20181130
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 & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        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 Microsoft Scripting Runtime 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.

Sau đó, chỉ các tệp đính kèm được chỉ định mới được lưu.

Chú ý:

1. Nếu bạn muốn lưu các loại tệp đính kèm khác nhau, vui lòng nhập phần mở rộng tệp vào hộp văn bản và phân tách chúng bằng dấu phẩy.

2. Sau khi lưu, một đường dẫn lưu tệp đính kèm được hiển thị trên nội dung thư. Bạn có thể mở tệp đính kèm bằng cách nhấp trực tiếp vào siêu liên kết.


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
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.