Cách tạo Outlook để không lưu tệp đính kèm đi

Khi một tin nhắn được gửi trong Outlook, tin nhắn sẽ được lưu trong thư mục các mục đã gửi thích hợp. Trong nỗ lực giữ kích thước hộp thư nhỏ (er), chúng tôi muốn xem liệu có cách nào để tự động loại bỏ bất kỳ tệp đính kèm nào khỏi các thư đã lưu đi không. Điều này không cần phải được thực hiện thông qua chính sách nhóm hay bất cứ điều gì, đó chỉ là điều chúng tôi đang xem xét tại thời điểm này.

Điều này có thể thực hiện trong Outlook 2010 hoặc 2013 (Windows 7 hoặc 8.1) không?

windows email microsoft-outlook

— vaindil
nguồn

Nguồn Xóa tệp đính kèm khỏi tin nhắn

Câu hỏi này từ người dùng Outlook muốn biết cách xóa một số tệp đính kèm khỏi thư trong một bước.

Tôi muốn giữ tin nhắn đã gửi nhưng không đính kèm. Có một phương pháp dễ dàng hơn so với nhấp vào tệp đính kèm để xóa nó? Tốt hơn nữa, tôi có thể chọn một số tin nhắn đã gửi và xóa tệp đính kèm khỏi tất cả các tin nhắn không?

Outlook không có chức năng này được tích hợp sẵn nên bạn sẽ cần sử dụng bổ trợ hoặc VBA, nhưng vâng, có thể thực hiện được.

Xem Công cụ quản lý tệp đính kèm cho Outlook để biết thêm hoặc thêm thông tin cho các macro bổ sung, bao gồm các mẫu mã có thể lưu tệp đính kèm vào ổ cứng trước khi xóa chúng khỏi tin nhắn.

Mã này sẽ hoạt động với các tin nhắn đã gửi hoặc nhận, trong bất kỳ thư mục nào. Để sử dụng, hãy thêm mã vào trình soạn thảo VBA , chọn các tin nhắn mà bạn muốn xóa tệp đính kèm và chạy nó.

Sub DeleteAllAttachmentsFromSelectedMessages()
    Dim myAttachment        As Attachment
    Dim myAttachments       As Attachments
    Dim selItems            As Selection
    Dim myItem              As Object
    Dim lngAttachmentCount  As Long

    ' Set reference to the Selection.
    Set selItems = ActiveExplorer.Selection

    '  Loop though each item in the selection.
    For Each myItem In selItems
        Set myAttachments = myItem.Attachments

        lngAttachmentCount = myAttachments.Count

    ' Loop through attachments until attachment count = 0.
        While lngAttachmentCount > 0
            myAttachments(1).Delete
            lngAttachmentCount = myAttachments.Count
        Wend

        myItem.Save
    Next

    MsgBox "All Done. Attachments were removed.", vbOKOnly, "Message"

    Set myAttachment = Nothing
    Set myAttachments = Nothing
    Set selItems = Nothing
    Set myItem = Nothing
End Sub

— DavidPostill
nguồn