Outlookでメールからすべての添付ファイルを削除するにはどうすればよいですか？

Author: Kelly Last Modified: 2025-05-23

通常、メールをプレビューしているとき、右クリックして「添付ファイルを削除」を選択することで添付ファイルを削除できます。時々、1通のメールに多くの添付ファイルが含まれている場合があり、それらを1つずつ削除するのは面倒です。ここでは、Outlookで1通のメールからすべての添付ファイルを削除するための簡単な2つの方法と、複数のメールからすべての添付ファイルを削除する方法をご紹介します。

Outlookで1通のメールメッセージからすべての添付ファイルを手動で削除する
 VBAコードを使用してOutlookで複数のメールメッセージからすべての添付ファイルを削除する
Kutools for Outlookを使用して、1通または複数のメールからすべての添付ファイルを簡単に削除する

Outlookで1通のメールメッセージからすべての添付ファイルを手動で削除する

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: このVBAコードを実行するためにF5キーを押します。

これで、選択されたメールメッセージからすべての添付ファイルが削除され、削除された各添付ファイルへのハイパーリンクがすべての選択されたメールメッセージの下部に残ります。

doc-delete-attachments-7

Kutools for Outlookを使用して、1通または複数のメールからすべての添付ファイルを簡単に削除する

Kutools for Outlookの「すべての添付ファイルを切り離す」機能は、Outlookで1通または複数の選択されたメールからすべての添付ファイルを迅速に削除できます。以下のように操作してください。

Kutools for Outlook : 100以上の便利なOutlookアドイン付き、 30日間無制限で無料試用可能。

1. 削除したい添付ファイルを持つ1通または複数のメールメッセージを選択し、次に Kutools > 添付ファイルツール > すべて切り離し をクリックします。スクリーンショットをご覧ください：

doc-save-attachments-multiple-emails6

2. 切り離し設定 ダイアログボックスで、次の設定を行ってください。

2.1 「参照」ボタンをクリックして、すべての削除された添付ファイルを保存するフォルダを選択します。
2.2 デフォルトでは、「次のスタイルで添付ファイルを切り離す」ボックスがチェックされています。必要に応じて、添付ファイルを異なるフォルダに保存するオプションを選択してください。
2.3 「OK」ボタンをクリックします。スクリーンショットをご覧ください：

doc-save-attachments-multiple-emails7

注意：

1. すべての添付ファイルを同じフォルダに保存したい場合は、「次のスタイルでサブフォルダを作成する」ボックスのチェックを外してください。

2. 添付ファイルを削除した後、メーリングリストのメールから添付ファイルアイコンが消えます。添付ファイルアイコンを常に保持するには、「メールに添付ファイルアイコンが表示されたまま」ボックスを確認してください。

2. 選択したメールからすべての添付ファイルを削除するだけでなく、特定の条件に基づいて添付ファイルを削除することもできます。たとえば、サイズが500KBより大きい添付ファイルのみを削除したい場合、「詳細オプション」ボタンをクリックして条件を展開し、以下のスクリーンショットのように設定します。

doc-save-attachments-multiple-emails08