Lưu trữ không có tệp đính kèm bằng VBA

Lưu trữ không có tệp đính kèm bởi Kutools cho Outlook

Phương pháp này sẽ giới thiệu một VBA để xóa tất cả các tệp đính kèm khỏi thư mục được chỉ định mà bạn sẽ lưu trữ và sau đó bạn có thể lưu trữ mà không có tệp đính kèm. Vui lòng làm như sau:

1. Trong email xem, chọn thư mục bạn sẽ lưu trữ và nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đun, rồi dán VBA bên dưới vào cửa sổ mô-đun mới.

VBA: Xóa tất cả các tệp đính kèm khỏi thư mục thư đã chọn trong Outlook

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

3. Nhấn nút F5 phím hoặc nhấp vào chạy để chạy mã. Sau đó, tất cả các tệp đính kèm sẽ bị xóa khỏi thư mục thư đã chọn ngay lập tức.

4. Nhấp chuột Tập tin > Thông tin > CÔNG CỤ > Dọn dẹp đồ cũ (Hoặc Tập tin > Thông tin > Công cụ dọn dẹp > lưu trữ).

5. Trong hộp thoại Lưu trữ, vui lòng nhấp để đánh dấu thư mục đã sao chép, nhập TODAY trong Lưu trữ các mục cũ hơn và sau đó bấm vào Xem cái nút. Xem ảnh chụp màn hình:

6. Trong hộp thoại Mở Tệp Dữ liệu Outlook, vui lòng mở thư mục bạn sẽ lưu tệp PST đã lưu trữ, đặt tên tệp PST trong Tên tập tin và sau đó bấm vào OK cái nút. Xem ảnh chụp màn hình:

7. Bây giờ bạn trở lại hộp thoại Lưu trữ, vui lòng nhấp vào OK để hoàn tất quá trình lưu trữ.
Cho đến nay, bạn đã lưu trữ thư mục thư mà không có bất kỳ tệp đính kèm nào.

Nếu bạn đã cài đặt Kutools cho Outlook, bạn có thể áp dụng Tách tất cả tính năng xóa nhanh tất cả các tệp đính kèm khỏi thư mục được chỉ định mà bạn sẽ lưu trữ, sau đó dễ dàng lưu trữ mà không có tệp đính kèm.

1. Trong email xem, mở thư mục thư được chỉ định mà bạn sẽ lưu trữ, chọn tất cả các email bằng cách nhấn Ctrl + A phím, sau đó bấm Kutools > Tách tất cả. Xem ảnh chụp màn hình:

2. Trong hộp thoại Vui lòng chọn một thư mục, hãy nhấp vào Xem nút  để chỉ định thư mục mà bạn sẽ lưu tệp đính kèm, chỉ định kiểu thư mục con từ tạo các thư mục con theo kiểu sau danh sách thả xuống và nhấp vào Ok cái nút. Xem ảnh chụp màn hình:

3. Hãy nhấp Có nút và OK liên tiếp trong các hộp thoại hiện ra.

4. Tiếp tục nhấp vào Tập tin > Thông tin > CÔNG CỤ > Dọn dẹp đồ cũ (Hoặc Tập tin > Thông tin > Công cụ dọn dẹp > lưu trữ).

5. Trong hộp thoại Lưu trữ, vui lòng nhấp để đánh dấu thư mục được chỉ định mà bạn sẽ lưu trữ mà không có tệp đính kèm, nhập TODAY trong Lưu trữ các mục cũ hơn và sau đó bấm vào Xem cái nút. Xem ảnh chụp màn hình:

6. Trong hộp thoại Mở Tệp Dữ liệu Outlook, vui lòng mở thư mục bạn sẽ lưu tệp PST đã lưu trữ, đặt tên tệp PST trong Tên tập tin và sau đó bấm vào OK cái nút. Xem ảnh chụp màn hình:

7. Bây giờ bạn trở lại hộp thoại Lưu trữ, vui lòng nhấp vào OK để hoàn tất quá trình lưu trữ.

Cho đến nay, bạn đã lưu trữ thư mục thư được chỉ định mà không có tệp đính kèm.

Làm cách nào để chỉ tự động lưu trữ tệp đính kèm trong Outlook?

Làm cách nào để lưu trữ email theo năm / tháng / ngày trong Outlook?