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

通常、メールをプレビューしている際には、添付ファイルを右クリックして添付ファイルを削除を選択すれば、その添付ファイルを簡単に削除できます。しかし、1 通のメールに多数の添付ファイルがある場合、1 つずつ削除するのは手間ですよね。そこで今回は、Outlook で1 通のメール内のすべての添付ファイルを一括削除する方法と、複数のメールから添付ファイルをまとめて削除するための2 つの簡単なテクニックをご紹介します！

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

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

Outlook の添付ファイルを削除機能を使えば、選択したメールに含まれるすべての添付ファイルをかんたんに削除できます。

手順1：後で添付ファイルを削除するメールを選択します。

手順2：リーディングペインで任意の添付ファイルをクリックして、添付ファイルツールを有効にします。

手順3：すべて選択するには、選択グループにある添付ファイルタブをクリックしてください。

この操作により、選択したメール内のすべての添付ファイルを一度に選択できます。

手順4：添付ファイルを削除アクショングループの添付ファイルタブをクリックします。

手順5：警告ダイアログボックスで、添付ファイルを削除ボタンをクリックしてください。

これにより、選択したメール内のすべての添付ファイルがすぐに削除されます。

注：「添付ファイルを削除」機能は、Outlook 2010 以降のバージョンでは正常に動作しますが、Outlook 2007 ではご利用いただけません。

VBA コードでOutlook の複数メールからすべての添付ファイルを削除する

Microsoft Outlook で複数のメールからすべての添付ファイルを一括削除したい場合は、以下の方法で簡単に実行できます。まずは、Microsoft Outlook でマクロをすべて有効にしておくことをお勧めします。

手順1：マイドキュメントフォルダーに移動し、新しいフォルダを作成してOLAttachments

手順2：後で添付ファイルを削除する複数のメールを選択します。

注：Ctrlキーを押しながらクリックすると、連続していないメールを複数選択できます。

Shiftキーを押しながらクリックすれば、連続するメールを一括で選択できます。

手順3：AltキーとF11キーを同時に押して、VBA エディターを開きます。

手順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 for Outlook で1 通または複数のメールから簡単にすべての添付ファイルを削除する

すべての添付ファイルを分離機能（)Kutools for Outlook）を使えば、Outlook で1 通または複数のメールから、すべての添付ファイルをすばやく削除できます。以下の手順に従ってください。

Kutools for Outlook：300 以上の便利なOutlook アドインを提供しており、30 日間、すべての機能を無料で制限なくお試しいただけます。

1。添付ファイルを削除したいメールを1 通または複数選択し、次にKutools>添付ファイルツール>すべての添付ファイルを分離をクリックします。スクリーンショットを参照してください：

2。添付ファイルの設定ダイアログボックスで、次のように設定してください。

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

3。はいをクリックすると、すべての添付ファイルを分離ダイアログボックスが開きます。

4。Kutools for Outlookダイアログボックスが表示され、削除された添付ファイルの件数が通知されます。OKボタンをクリックしてください。

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

---

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

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

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

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧      今すぐダウンロード      購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

• ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
• 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
• 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて⬇ スイートをダウンロード💳 スイートを購入