如何在Outlook中删除邮件中的所有附件？

Author: Kelly Last Modified: 2025-07-31

通常，当您预览电子邮件时，可以通过右键单击并选择“删除附件”选项来删除附件。有时一封电子邮件中可能包含多个附件，逐个删除它们会非常繁琐。在这里，我们为您提供两种简单的方法，可以一次性删除一封邮件中的所有附件，也可以删除多封邮件中的所有附件。

手动删除Outlook中某一封邮件的所有附件
 使用VBA代码删除Outlook中多封邮件的所有附件
使用Kutools for 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 for Excel的“拆离所有附件”工具，您可以轻松删除多个选定邮件中的所有附件，如下方演示所示。（附件将保存到指定文件夹）立即下载试用！(30-天免费试用)

使用VBA代码删除Outlook中多封邮件的所有附件

如果您想从Microsoft Outlook中的多封邮件中删除所有附件，以下方法可以帮助您轻松实现。我们建议您首先在Microsoft Outlook中启用所有宏。

步骤1：转到“我的文档”文件夹，创建一个新文件夹，并将其命名为OLAttachments。

步骤2：选择多封邮件，这些邮件的附件您将在稍后删除。

备注：您可以通过按住Ctrl 键并点击来选择不连续的邮件。

您可以通过按住Shift 键并点击来选择连续的邮件。

步骤3：同时按下Alt键和F11键打开VBA编辑器。

步骤4：在左侧栏中展开Project1 > Microsoft Outlook Objects，然后双击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