Làm cách nào để đổi tên và lưu tệp đính kèm của email trong một thư mục trong Outlook?

Trong triển vọng, bạn có thể thường nhận được thư có tệp đính kèm và bạn có thử đổi tên tệp đính kèm của thư và lưu chúng trong một thư mục như hình minh họa bên dưới không? Rõ ràng, bạn có thể lưu chúng vào một thư mục và đổi tên từng cái một, nhưng thực ra, tôi có một mã VBA có thể nhanh chóng đổi tên tất cả các tệp đính kèm có cùng tên sau đó lưu vào một thư mục.

Đổi tên và lưu các tệp đính kèm có cùng tên trong một thư mục

Đổi tên và lưu tệp đính kèm trong một thư mục với Kutools cho Outlook

---

Trả lời tin nhắn với tệp đính kèm ban đầu trong triển vọng

Như chúng ta đã biết, các tệp đính kèm sẽ bị xóa khỏi thư gốc khi bạn trả lời thư cho người nhận trong Outlook. Nếu bạn muốn trả lời mát-xa bằng cách giữ tệp đính kèm, bạn có thể thử Kutools cho Outlook's Trả lời bằng tệp đính kèm chức năng, nó có thể trả lời một tin nhắn với các tệp đính kèm ban đầu, cũng hoạt động cho tất cả các messafe.    Nhấp để xem đầy đủ các tính năng trong 60 ngày dùng thử miễn phí!

Kutools cho Outlook: với hàng tá bổ trợ Outlook tiện dụng, dùng thử miễn phí không giới hạn trong 60 ngày.

Đổi tên và lưu các tệp đính kèm có cùng tên trong một thư mục

1. Chọn tin nhắn mà bạn muốn lưu các phần đính kèm của nó và đổi tên thành cùng một tên.

2. nhấn Alt + F11keys, sau đó trong Project1 ngăn, nhấp đúp ĐâyOutlookSession để tạo một tập lệnh trống mới trong phần bên phải, sau đó sao chép và dán mã vào đó.

VBA: Đổi tên và lưu tệp đính kèm

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
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
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

3. nhấp chuột CÔNG CỤ > dự án, trong hộp thoại bật lên, hãy chọn Thời gian chạy Microsoft Script hộp kiểm.

4. nhấp chuột OK, nhấn F5 phím để chạy mã, một Chọn thư mục hộp thoại bật ra để chọn hoặc tạo thư mục để đặt tệp đính kèm.

5. nhấp chuột OK, sau đó đặt tên cho các tệp đính kèm.

6. nhấp chuột OK, bây giờ các tệp đính kèm được đổi tên với cùng một tên, nếu có trùng lặp, những tệp trùng lặp sẽ được thêm số làm hậu tố.

Đổi tên và lưu tệp đính kèm trong một thư mục với Kutools cho Outlook

Trên thực tế, có một tính năng trong Kutools cho Outlook - một công cụ addin tiện dụng của Outlook có thể đổi tên tất cả các tệp đính kèm trước khi lưu hoặc gửi.

Cài đặt miễn phí Kutools cho Outlook, và sau đó thực hiện như các bước dưới đây:

1. Kích hoạt email trong khung nagative hoặc trong hộp Message tùy thích, nhấp vào Kutools > Công cụ đính kèm > Đổi tên tất cả.

2. Trong hộp thoại bật lên, hãy nhập tên mới mà bạn sử dụng cho mỗi phần đính kèm. Nhấp chuột OK, các tệp đính kèm đã được đổi tên bằng tên mới.
 

3. Nhấp chuột phải vào một tệp đính kèm, chọn Lưu tất cả các tệp đính kèm, Click OK và chọn một thư mục để lưu các tệp đính kèm khi bạn cần. Sau đó, các tệp đính kèm được đổi tên đã được lưu trong một thư mục.
 

---

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

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

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

Tìm hiểu thêm       Tải xuống miễn phí      Mua