メインコンテンツへスキップ

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では動作しません。


Outlookで複数の選択されたメールからすべての添付ファイルを簡単に削除する:

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

3. 「すべて切り離し」ダイアログボックスで「はい」ボタンをクリックします。

doc-save-attachments-multiple-emails9

4. その後、削除された添付ファイルの数を知らせるKutools for Outlookダイアログボックスがポップアップ表示されます。「OK」ボタンをクリックしてください。 

doc-save-attachments-multiple-emails10

これで、選択したメールにはハイパーリンクのみが残り、すべての添付ファイルが即座に削除されます。必要に応じて、ハイパーリンクをクリックして対応する添付ファイルを開くことができます。

  このユーティリティを無料で試用したい場合(30日間)、こちらをクリックしてダウンロードし、上記の手順に従って操作を適用してください。


最高のオフィス生産性ツール

速報: Kutools for Outlook が無料版をリリース!

新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます!今すぐダウンロードをクリック!

🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。

📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...

📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...

📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...

🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...

👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除...

Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう!

kutools for outlook features1 kutools for outlook features2