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 の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます!今すぐダウンロードをクリック!
🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。
📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...
📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...
👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除...
Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう!

