Как удалить все вложения из письма в Outlook?

АвторКеллиДата изменения2024-08-28

Обычно при просмотре письма вы можете удалить вложение, щёлкнув по нему правой кнопкой мыши и выбрав пункт Удалить вложение. Однако если в одном письме содержится сразу несколько вложений, удалять их по одному может быть утомительно. Ниже мы предлагаем два простых способа: как удалить все вложения из одного письма и как удалить все вложения сразу из нескольких писем в Outlook.

Удаление всех вложений вручную из одного письма в Outlook
Удаление всех вложений из нескольких писем в Outlook с помощью кода VBA
Легкое удаление всех вложений из одного или нескольких писем с помощью Kutools для Outlook

Удаление всех вложений вручную из одного письма в Outlook

Удалить все вложения из выделенного письма легко с помощью функции Удалить вложения в Outlook.

Шаг 1: Выберите письмо, из которого хотите удалить вложения.

Шаг 2: Щёлкните по любому вложению в области чтения, чтобы активировать вкладку «Инструменты вложений».

doc-save-attachments-1

Шаг 3: Нажмите кнопку Выбрать всё в группе Выделение на вкладке Вложения.

doc-save-attachments-2

Этот шаг позволяет мгновенно выделить все вложения в выбранном письме.

Шаг 4: Нажмите кнопку Удалить вложение в группе Действия на вкладке Вложения.

Шаг 5: В диалоговом окне предупреждения нажмите кнопку Удалить вложения.

doc-save-attachments-3

После этого все вложения из выбранного письма будут удалены немедленно.

Примечание: функция «Удалить вложения» работает корректно в Outlook 2010 и более поздних версиях, но не поддерживается в Outlook 2007.

С помощью утилиты Отсоединить все вложения из Kutools для Excel вы можете легко удалить все вложения из нескольких выделенных писем, как показано на демонстрации ниже. (Вложения будут сохранены в указанную папку.) Скачайте и попробуйте прямо сейчас! (30-дневная бесплатная пробная версия)

Удаление всех вложений из нескольких писем в Outlook с помощью кода VBA

Хотите удалить все вложения из нескольких писем в Microsoft Outlook? Следующий метод поможет сделать это легко! Мы рекомендуем сначала включить все макросы в вашем Microsoft Outlook.

Шаг 1: Перейдите в папку Мои документы, создайте папку Новая папка и назовите её OLAttachments

Шаг 2: Выделите несколько писем, вложения из которых необходимо удалить.

Примечание: Вы можете выделять несмежные письма, удерживая клавишу Ctrl и щёлкая по ним.

Вы можете выделить несколько подряд идущих писем, удерживая клавишу Shift и щёлкнув по первому и последнему из них.

Шаг 3: Откройте редактор VBA, одновременно нажав клавиши Alt и F11.

Шаг 4: В левой панели разверните узел Project1 > Объекты Microsoft Outlook, затем дважды щёлкните элемент ThisOutlookSession, чтобы открыть его в редакторе. См. снимок экрана:

doc-delete-attachments-4

Шаг 5: Скопируйте приведённый ниже код VBA и вставьте его в область редактирования.

Public Sub ReplaceAttachmentsToLink()
Dim objApp As Outlook.Application
Dim aMail As Outlook.MailItem 'Object
Dim oAttachments As Outlook.Attachments
Dim oSelection As Outlook.Selection
Dim i As Long
Dim iCount As Long
Dim sFile As String
Dim sFolderPath As String
Dim sDeletedFiles As String
 
    ' Get the path to your My Documents folder
    sFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next
 
    ' Instantiate an Outlook Application object.
    Set objApp = CreateObject("Outlook.Application")
 
    ' Get the collection of selected objects.
    Set oSelection = objApp.ActiveExplorer.Selection
 
    ' Set the Attachment folder.
    sFolderPath = sFolderPath & "\OLAttachments"
 
    
    ' Check each selected item for attachments. If attachments exist,
    ' save them to the Temp folder and strip them from the item.
    For Each aMail In oSelection
 
    ' This code only strips attachments from mail items.
    ' If aMail.class=olMail Then
    ' Get the Attachments collection of the item.
    Set oAttachments = aMail.Attachments
    iCount = oAttachments.Count
     
       
    If iCount > 0 Then
     
        ' We need to use a count down loop for removing items
        ' from a collection. Otherwise, the loop counter gets
        ' confused and only every other item is removed.
         
        For i = iCount To 1 Step -1
         
            ' Save attachment before deleting from item.
            ' Get the file name.
            sFile = oAttachments.Item(i).FileName
             
            ' Combine with the path to the Temp folder.
            sFile = sFolderPath & "\" & sFile
             
            ' Save the attachment as a file.
            oAttachments.Item(i).SaveAsFile sFile
             
            ' Delete the attachment.
            oAttachments.Item(i).Delete
             
            'write the save as path to a string to add to the message
            'check for html and use html tags in link
            If aMail.BodyFormat <> olFormatHTML Then
                sDeletedFiles = sDeletedFiles & vbCrLf & "<file://" & sFile & ">"
            Else
                sDeletedFiles = sDeletedFiles & "<br>" & "<a href='file://" & _
                sFile & "'>" & sFile & "</a>"
            End If
             
                         
        Next i
        'End If
             
       ' Adds the filename string to the message body and save it
       ' Check for HTML body
       If aMail.BodyFormat <> olFormatHTML Then
           aMail.Body = aMail.Body & vbCrLf & _
           "The file(s) were saved to " & sDeletedFiles
       Else
           aMail.HTMLBody = aMail.HTMLBody & "<p>" & _
           "The file(s) were saved to " & sDeletedFiles & "</p>"
       End If
       
       aMail.Save
       'sets the attachment path to nothing before it moves on to the next message.
       sDeletedFiles = ""
    
       End If
    Next 'end aMail
     
ExitSub:
 
Set oAttachments = Nothing
Set aMail = Nothing
Set oSelection = Nothing
Set objApp = Nothing
End Sub

Шаг 6: Нажмите клавишу F5, чтобы запустить этот код VBA.

Теперь все вложения из выделенных писем удалены, а внизу каждого письма добавлены гиперссылки на соответствующие удалённые файлы.

doc-delete-attachments-7

Легкое удаление всех вложений из одного или нескольких писем с помощью Kutools для Outlook

Утилита Отсоединить все вложений из Kutools для Outlook позволяет быстро удалить все вложения из одного или нескольких выделенных писем в Outlook. Выполните следующие действия.

Kutools для Outlook: более 100 удобных надстроек для Outlook,бесплатная пробная версия без ограничений на 30 дней.

1. Выделите одно или несколько писем с вложениями, которые нужно удалить, затем нажмите Kutools > Инструменты вложений > Отсоединить все. См. снимок экрана:

doc-save-attachments-multiple-emails6

2. В диалоговом окне Настройки открепления выполните следующую настройку.

2,1 Нажмите кнопку Обзор, чтобы указать папку для сохранения всех удалённых вложений.
2,2 По умолчанию установлен флажок в поле Открепить вложения со следующим стилем. Выберите нужный вариант, чтобы сохранять вложения в разные папки в зависимости от писем.
2,3 Нажмите кнопку ОК. См. снимок экрана:

doc-save-attachments-multiple-emails7

Примечания:

1. Если вы хотите сохранить все вложения в одну и ту же папку, снимите флажок с поля Создавать подпапки в следующем стиле.

2. После удаления вложений значок вложения исчезнет из письма в Список писем. Установите флажок в поле После открепления вложений, электронная почта все равно сохраняет значок вложения, чтобы всегда сохранять его.

2. Помимо удаления всех вложений из выделенных писем, вы можете удалять вложения только по определённым условиям. Например, если вы хотите удалить только вложения размером более 500 КБ, нажмите кнопку Дополнительные параметры, чтобы раскрыть условия, и настройте их, как показано на снимке экрана ниже.

doc-save-attachments-multiple-emails08

3. Нажмите кнопку Да в диалоговом окне Отсоединить все.

doc-save-attachments-multiple-emails9

4. Затем появится диалоговое окно Kutools для Outlook, в котором будет указано количество удалённых вложений. Нажмите кнопку ОК.

doc-save-attachments-multiple-emails10

Теперь все вложения удалены, а в выделенных письмах остались только гиперссылки. При необходимости просто щёлкните по гиперссылке, чтобы открыть соответствующее вложение.

Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для удобной работы с электронной почтой: ответы, составление резюме, оптимизация, расширение, перевод и создание писем.

📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…

Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним щелчком! Не теряйте время — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook Скачать сейчас Перейти к покупке

🚀 Скачать одним щелчком — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

✅Удобство одним щелчком: Скачайте все пять установочных пакетов за одно действие.
🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете ⬇ Скачать пакет 💳 Приобрести пакет