Как заставить Outlook не сохранять исходящие вложения

Question

Когда сообщение отправляется в Outlook, оно сохраняется в соответствующей папке отправленных элементов. Чтобы сохранить размеры почтовых ящиков маленькими (э), мы хотели бы посмотреть, есть ли способ автоматически удалять любые вложения из исходящих сохраненных сообщений. Это не нужно реализовывать с помощью групповой политики или чего-то еще, это просто то, что мы рассматриваем на данный момент.

Это можно сделать в Outlook 2010 или 2013 (Windows 7 или 8.1)?

Answer 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