Как удалить все вложения из письма в Outlook?
Обычно, когда вы просматриваете электронное письмо, вы можете удалить вложение, щелкнув правой кнопкой мыши и выбрав пункт «Удалить вложение». Иногда в одном сообщении может быть много вложений, и их удаление по одному может занять много времени. Здесь мы предлагаем вам два простых способа: удалить все вложения из одного письма, а также из нескольких писем в Outlook.
Вручную удалить все вложения из одного письма в Outlook
Удалить все вложения из нескольких писем в Outlook с помощью кода VBA
Легко удалить все вложения из одного или нескольких писем с помощью Kutools для Outlook
Вручную удалить все вложения из одного письма в Outlook
Легко удалить все вложения из выбранного письма с помощью функции «Удалить вложения» в Outlook.
Шаг 1: Выберите письмо, из которого вы хотите удалить вложения.
Шаг 2: Щелкните одно из вложений в области чтения, чтобы активировать инструменты вложений.
Шаг 3: Нажмите кнопку «Выбрать все» в группе «Диапазон » на вкладке «Вложения».
Этот шаг позволит вам выбрать все вложения в этом выбранном письме сразу.
Шаг 4: Нажмите кнопку «Удалить вложение» в группе «Действия» на вкладке «Вложения».
Шаг 5: В предупреждающем диалоговом окне нажмите кнопку «Удалить вложения».
После этого все вложения в этом выбранном письме будут удалены как можно скорее.
Примечание: Функция «Удалить вложения» работает нормально в Outlook 2010 и более поздних версиях, но не в Outlook 2007.
Легко удалить все вложения из нескольких выбранных писем в Outlook:
С помощью утилиты «Отсоединить все вложения» Kutools для Excel вы можете легко удалить все вложения из нескольких выбранных писем, как показано в демо ниже. (Вложения будут сохранены в указанной папке) Скачайте и попробуйте прямо сейчас! (30-дневная бесплатная пробная версия)
Удалить все вложения из нескольких писем в Outlook с помощью кода VBA
Если вы хотите удалить все вложения из нескольких писем в Microsoft Outlook, следующий метод поможет вам сделать это легко. Мы рекомендуем вам сначала включить все макросы в вашем Microsoft Outlook.
Шаг 1: Перейдите в папку «Мои документы», создайте новую папку и назовите её OLAttachments.
Шаг 2: Выберите несколько писем, из которых вы хотите удалить вложения позже.
Примечание: Вы можете выбрать несмежные письма, удерживая клавишу Ctrl и кликая.
Вы можете выбрать смежные письма, удерживая клавишу Shift и кликая.
Шаг 3: Откройте редактор VBA, нажав клавиши Alt и F11 одновременно.
Шаг 4: Разверните Project1 > Объекты Microsoft Outlook в левой панели, затем дважды щелкните ThisOutlookSession, чтобы открыть его в редакторе. Смотрите скриншот ниже:
Шаг 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.
Теперь все вложения из выбранных писем удалены, оставляя гиперссылки на каждое удаленное вложение внизу всех выбранных писем.
Легко удалить все вложения из одного или нескольких писем с помощью Kutools для Outlook
Утилита «Отсоединить все вложения» Kutools для Outlook может быстро удалить все вложения из одного или нескольких выбранных писем в Outlook. Пожалуйста, выполните следующие действия.
Kutools для Outlook : более 100 удобных надстроек для Outlook, бесплатно попробовать без ограничений в течение 30 дней.
1. Выберите одно или несколько писем с вложениями, которые вы хотите удалить, затем нажмите Kutools > Инструменты вложений > Отсоединить все. Смотрите скриншот:
2. В диалоговом окне Настройки открепления настройте следующим образом.
- 2.1 Нажмите кнопку Обзор, чтобы выбрать папку для сохранения всех удаленных вложений.
- 2.2 По умолчанию отмечена опция «Открепить вложения в следующем стиле», выберите вариант сохранения вложений в разные папки на основе писем по необходимости.
- 2.3 Нажмите кнопку ОК. Смотрите скриншот:
3. Нажмите кнопку Да в диалоговом окне Отсоединить все.
4. Затем появится диалоговое окно Kutools для Outlook, которое сообщит вам, сколько вложений было удалено. Пожалуйста, нажмите кнопку ОК.
Теперь все вложения удаляются немедленно, оставляя только гиперссылки в выбранных письмах. Вы можете нажать на гиперссылку, чтобы открыть соответствующее вложение при необходимости.
Если вы хотите воспользоваться бесплатной пробной версией (30-дней) этой утилиты, пожалуйста, нажмите для загрузки, а затем перейдите к выполнению операции согласно вышеуказанным шагам.
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Kutools для Outlook запускает бесплатную версию!
Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
