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では動作しません。
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」をダブルクリックしてエディターで開きます。次のスクリーンショットをご覧ください:
ステップ 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キーを押します。
これで、選択されたメールメッセージからすべての添付ファイルが削除され、削除された各添付ファイルへのハイパーリンクがすべての選択されたメールメッセージの下部に残ります。
Kutools for Outlookを使用して、1通または複数のメールからすべての添付ファイルを簡単に削除する
Kutools for Outlookの「すべての添付ファイルを切り離す」機能は、Outlookで1通または複数の選択されたメールからすべての添付ファイルを迅速に削除できます。以下のように操作してください。
Kutools for Outlook : 100以上の便利なOutlookアドイン付き、 30日間無制限で無料試用可能。
1. 削除したい添付ファイルを持つ1通または複数のメールメッセージを選択し、次に Kutools > 添付ファイルツール > すべて切り離し をクリックします。スクリーンショットをご覧ください:
2. 切り離し設定 ダイアログボックスで、次の設定を行ってください。
- 2.1 「参照」ボタンをクリックして、すべての削除された添付ファイルを保存するフォルダを選択します。
- 2.2 デフォルトでは、「次のスタイルで添付ファイルを切り離す」ボックスがチェックされています。必要に応じて、添付ファイルを異なるフォルダに保存するオプションを選択してください。
- 2.3 「OK」ボタンをクリックします。スクリーンショットをご覧ください:
3. 「すべて切り離し」ダイアログボックスで「はい」ボタンをクリックします。
4. その後、削除された添付ファイルの数を知らせるKutools for Outlookダイアログボックスがポップアップ表示されます。「OK」ボタンをクリックしてください。
これで、選択したメールにはハイパーリンクのみが残り、すべての添付ファイルが即座に削除されます。必要に応じて、ハイパーリンクをクリックして対応する添付ファイルを開くことができます。
このユーティリティを無料で試用したい場合(30日間)、こちらをクリックしてダウンロードし、上記の手順に従って操作を適用してください。
最高のオフィス生産性ツール
最新情報: Kutools for Outlook 無料版リリース!
新しくなった Kutools for Outlook を100以上の素晴らしい機能とともに体験してください!今すぐダウンロードしてみましょう!
🤖 Kutools AI : 高度なAI技術を活用し、メールの返信、要約、最適化、拡張、翻訳、作成までを簡単に処理します。
📧 メール自動化: 自動返信(POPとIMAPに対応) / スケジュール電子メールを送信 /送信時にルールで自動 CC/BCC / 高度なルールによる自動転送 / 挨拶を自動追加 / 複数宛先メールを自動的に一通ずつ分割...
📨 メール管理: メールの取り消し / 件名などで詐欺メールをブロックする / 重複メールを削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: 一括保存 / 一括切り離し / 一括圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェイスマジック: 😊さらに美しくてクールな絵文字 /重要なメール到着時に通知 / Outlookを閉じるのではなくグループを最小化...
👍 ワンクリック便利機能: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーン表示...
👩🏼🤝👩🏻 連絡先&カレンダー: 選択したメールから一括で連絡先を追加 /連絡先グループを個別グループに分割 / 誕生日のリマインダーを削除...
お好みの言語で Kutools を利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語に対応!
Kutools for Outlookをワンクリックですぐに利用開始。待たずに今すぐダウンロードして効率を高めましょう!


🚀 ワンクリックダウンロード — Office用アドインをすべて入手
強くおすすめ: Kutools for Office(5-in-1)
ワンクリックで五つのインストーラーを同時ダウンロード ― Kutools for Excel、Outlook、Word、PowerPoint、Office Tab Pro。 今すぐダウンロード!
- ✅ ワンクリックの便利さ: 五つのセットアップパッケージを一度にダウンロードできます。
- 🚀 あらゆるOffice作業に準備完了: 必要なアドインをいつでもインストール可能です。
- 🧰 含まれるもの: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint