☰

如何让 Outlook 不保存发送的附件

tag-icon • tag-icon windows email microsoft-outlook
如何让 Outlook 不保存发送的附件

在 Outlook 中发送邮件时，该邮件会保存在相应的已发送邮件文件夹中。为了尽量减小邮箱大小，我们希望了解是否有办法自动从已保存的外发邮件中删除任何附件。这不需要通过组策略或其他方式来实现，这只是我们目前正在研究的问题。

这可以在 Outlook 2010 或 2013（Windows 7 或 8.1）中执行吗？

答案1

来源从邮件中删除附件

Outlook 用户提出了这个问题，他想知道如何一步从一封邮件中删除多个附件。

我想保留已发送的消息，但不保留附件。有没有比单击附件删除它更简单的方法？更好的方法是，我可以选择多条已发送的消息并从所有消息中删除附件吗？

Outlook 没有内置此功能，因此您需要使用插件或 VBA，但是是的，可以做到。

看Outlook 附件管理工具对于插件或更多信息获取附加宏，包括可以在从消息中删除附件之前将其保存到硬盘的代码示例。

此代码可处理任何文件夹中已发送或已接收的消息。使用时，将代码添加到 VBA 编辑器，选择要从中删除附件的消息并运行它。

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

相关内容