Cookie giúp chúng tôi cung cấp dịch vụ của chúng tôi. Bằng cách sử dụng dịch vụ của chúng tôi, bạn đồng ý sử dụng cookie.
Mẹo: Các ngôn ngữ khác được Dịch bởi Google. Bạn có thể ghé thăm English phiên bản của liên kết này.
Đăng nhập
x
or
x
x
Ghi danh
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 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 Tháo Tất 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 chỉ định trong Outlook như hình ảnh dưới đây.

Kutools cho Outlook: với hơn 40 tiện ích Outlook add-ins, miễn phí để thử mà không có giới hạn trong 45 ngày. Tải xuống và dùng thử ngay bây giờ!

Kutools cho Outlook: 100 + Các công cụ nâng cao mới cho Outlook.
Tab Office: Bật tính năng Chỉnh sửa và Duyệt qua Tab trong Văn phòng, Giống như Chrome, Firefox, IE 8 / 9 / 10.
Menu Cổ điển: Mang theo menu cũ và thanh công cụ Quay lại đến Văn phòng 2007, 2010, 2013, 2016 và 2019.

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 email hoặc nhiều email vào một thư mục cụ thể. Hãy làm như sau.

XUẤT KHẨU. Khởi chạy Outlook của bạn, trong danh sách gửi thư, chọn một email hoặc nhiều email bạn sẽ lưu tệp đính kèm cụ thể từ đó.

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ở, bấm vào Chèn > Mô-đunvà 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 email hoặc nhiều email vào 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 Tham khảo - Dự án hộp thoại, kiểm tra Thời gian chạy tập lệnh Microsoft và nhấp vào OK nút.

4. Nhấn nút F5 chìa khóa để chạy mã. Trong bật ra Chọn thư mục hộp thoại, chọn một thư mục để lưu các tệp đính kèm.

5. Và sau đó, nhấp OK, trong những điều sau đây Kutools cho Outlook hộp thoại, nhập phần mở rộng tập tin của tệp đính kèm bạn sẽ lưu vào hộp văn bản và nhấp OK.

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

Chú ý:

XUẤT KHẨU. 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.

XUẤT KHẨU. Sau khi lưu, đường dẫn lưu tệp đính kèm được hiển thị trên thân thư. Bạn có thể mở tệp đính kèm bằng cách nhấp vào liên kết trực tiếp.


Các bài liên quan:



Kutools cho Outlook

Nhiều hơn các chức năng nâng cao 100 cho Outlook 2010, 2013, 2016, 2019 và 365

kutools chụp màn hình cho triển vọng nhỏ cho banner 201812

Các tính năng khác | Tải xuống miễn phí | Chỉ có $ 39.00 cho hàng trăm chức năng

Say something here...
symbols left.
You are guest ( Sign Up? )
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.