Как удалить все вложения из электронной почты в Outlook?

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

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

Вручную удалить все вложения в одном сообщении электронной почты в Outlook

Легко удалить все вложения в выбранных сообщениях электронной почты с помощью Удалить вложения функция в Outlook.

Шаг 1. Выберите сообщение электронной почты, вложения которого вы удалите позже.

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

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

Этот шаг позволит вам выбрать сразу все вложения в выбранных сообщениях электронной почты.

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

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

Затем все вложения в выбранных сообщениях электронной почты удаляются как можно скорее.

Внимание: Функция удаления вложений отлично работает в Outlook 2010 и более поздних версиях, но не в Outlook 2007.

Удалите все вложения из нескольких сообщений электронной почты в Outlook с кодом VBA

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

Шаг 1. Перейдите в папку Мой документ, создайте новую папку и назовите ее OLПриложения

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

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

Вы можете выбрать последовательные сообщения электронной почты, удерживая Shift ключ и щелкнув.

Шаг 3: Откройте редактор VBA, нажав другой ключа и F11 в то же время.

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

Шаг 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 for Outlook

Ассоциация Отключить все навесное оборудование Kutools for Outlook может быстро удалить все вложения из одного или нескольких выбранных писем в Outlook. Пожалуйста, сделайте следующее.

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

1. Выберите одно или несколько сообщений электронной почты с вложениями, которые вы хотите удалить, затем нажмите Кутулс > Инструменты для вложения > Отключить все. Смотрите скриншот:

2. в Отключить настройки диалоговое окно, настройте следующим образом.

• 2.1 Щелкните значок ЛИСТАТЬ СПИСКИ кнопку, чтобы выбрать папку для сохранения всех удаленных вложений.
• 2.2 По умолчанию Отсоедините насадки в стиле ниже флажок установлен, выберите вариант сохранения вложений в разные папки на основе электронных писем по мере необходимости.
• 2.3 Щелкните значок OK кнопка. Смотрите скриншот:

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

4. Затем Kutools for Outlook появится диалоговое окно, в котором будет указано, сколько вложений было удалено. Пожалуйста, нажмите на OK . 

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

---

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения Pro: Пакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

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

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      Купите