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

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.
doc đổi tên lưu đính kèm 1

Đổ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í!
 
doc trả lời có đính kèm
 
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.
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 2021 - 2010 hoặc Office 365. Tính năng đầy đủ Bản dùng thử miễn phí 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 + F11 keys, 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

doc đổi tên lưu tệp đính kèm trong thư mục 2

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.

doc đổi tên lưu tệp đính kèm trong thư mục 3 mũi tên doc sang phải doc đổi tên lưu tệp đính kèm trong thư mục 4

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.
doc đổi tên lưu tệp đính kèm trong thư mục 5

5. nhấp chuột OK, sau đó đặt tên cho các tệp đính kèm.
doc đổi tên lưu tệp đính kèm trong thư mục 6

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.

Kutools for Outlook , Bao gồm
100
 các tính năng và công cụ mạnh mẽ dành cho Microsoft Outlook 2016, 2013, 2010 và Office 365.

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ả.
doc đổi tên lưu đính kèm 2

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.
doc đổi tên lưu đính kèm 3 

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.
doc đổi tên lưu đính kèm 5 
doc đổi tên lưu đính kèm 5


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 (4)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này đó! Bạn có biết làm thế nào chúng tôi có thể cải thiện đoạn mã dưới đây để đổi tên tệp khi lưu không?

Public Sub UnzipFileInOutlook (itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C: \ Users \ acheng \ Desktop"
Đối với mỗi objAtt Trong itm.Attachments
objAtt.SaveAsFile saveFolder
Đặt objAtt = Không có gì
Sau
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Lipe, có thể mã này có thể giúp bạn.

Private Sub CopyToDefaultCalendarFld (ByVal Item As Object)
Làm mờ xCopiedAppointment dưới dạng Outlook.AppointmentItem
Làm mờ xMvedAppointment As Outlook.AppointmentItem
Làm mờ xMeeting As MeetingItem
Làm mờ xApoint As AppointmentItem
On Error Resume Next
Nếu Item.Class = olAppointment thì
Đặt xApoint = Item
Đặt xCopiedAppointment = xApoint.Copy
Đặt xMovedAppointment = xCopiedAppointment.Move (GMovedCalendarFolder)
If xApoint.Subject <> xMovedAppointment.Subject Then
Nếu InStr (1, xMishedAppointment.Subject, "Copy:")> 0 Thì
xMovedAppointment.Subject = VBA.Replace (xMovedAppointment.Subject, "Sao chép:", "", 1, 1)
xMvedAppointment.Save
Cuối Nếu
Cuối Nếu
ElseIf Item.Class = olMeetingRequest Sau đó
Đặt xMeeting = Item
Đặt xCopiedAppointment = xMeeting.GetAssociatedAppointment (True) .Copy
Đặt xMovedAppointment = xCopiedAppointment.Move (GMovedCalendarFolder)
Nếu xMeeting.Subject <> xMishedAppointment.Subject Then
Nếu InStr (1, xMishedAppointment.Subject, "Copy:")> 0 Thì
xMovedAppointment.Subject = VBA.Replace (xMovedAppointment.Subject, "Sao chép:", "", 1, 1)
xMvedAppointment.Save
Cuối Nếu
Cuối Nếu
xCopiedAppointment.Delete
Cuối Nếu
Đặt xCopiedAppointment = Không có gì
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào! Làm thế nào điều này có thể hoạt động nếu có nhiều email? Điều này chỉ dành cho nhiều tệp đính kèm trong cùng một email? Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn, thật nực cười khi chúng tôi phải trải qua những khoảng thời gian dài như vậy để làm một việc gì đó mà ứng dụng sẽ xử lý
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