Note: The other languages of the website are Google-translated. Back to English

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

通常、メールをプレビューするときは、右クリックして添付ファイルを削除し、 添付ファイルを削除する 項目。 電子メールメッセージに多くの添付ファイルが含まれている場合があり、それらをXNUMXつずつ削除するのは面倒です。 ここでは、XNUMXつの電子メール内のすべての添付ファイルを削除し、Outlookでも複数の電子メールからすべての添付ファイルを削除するXNUMXつの簡単なトリックを用意しています。

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


OutlookでXNUMXつの電子メールメッセージのすべての添付ファイルを手動で削除する

選択した電子メールメッセージのすべての添付ファイルを簡単に削除できます。 添付ファイルを削除する Outlookの機能。

手順1:後で添付ファイルを削除する電子メールメッセージを選択します。

手順2:閲覧ウィンドウで添付ファイルのXNUMXつをクリックして、添付ファイルツールをアクティブにします。

ステップ3: すべてを選択します。 ボタンの 選択 グループを 添付ファイル タブでを確認できます。

この手順により、この選択した電子メールメッセージのすべての添付ファイルを一度に選択できるようになります。

ステップ4: 添付ファイルを削除する ボタンの アクション グループを 添付ファイル タブでを確認できます。

手順5:警告ダイアログボックスで、 添付ファイルを削除する ボタン。

次に、この選択した電子メールメッセージのすべての添付ファイルができるだけ早く削除されます。

注意:添付ファイルの削除機能は、Outlook 2010以降のバージョンでは正常に機能しますが、Outlook2007では機能しません。


Outlookで選択した複数の電子メールからすべての添付ファイルを簡単に削除できます。

とともに すべての添付ファイルを切り離します の有用性 Kutools for Excel、以下のデモに示すように、選択した複数の電子メールからすべての添付ファイルを簡単に削除できます。 (添付ファイルは指定したフォルダに保存されます) 今すぐダウンロードしてお試しください! (30日間の無料トレイル)


VBAコードを使用してOutlookの複数の電子メールメッセージからすべての添付ファイルを削除します

Microsoft Outlookの複数の電子メールメッセージからすべての添付ファイルを削除する場合は、次の方法で簡単に削除できます。 私たちはあなたをお勧めします MicrosoftOutlookですべてのマクロを有効にする 最初に。

ステップ1:のフォルダに移動します マイドキュメント、新しいフォルダを作成し、名前を付けます OLA添付ファイル

ステップ2:添付ファイルを後で削除する複数の電子メールメッセージを選択します。

注意: を押し続けると、連続しないメールメッセージを選択できます Ctrlキー キーを押してクリックします。

を押したまま、連続したメールメッセージを選択できます シフト キーを押してクリックします。

ステップ3:を押してVBAエディターを開きます 他の キーと F11 同時にキーを押します。

ステップ4:展開する Project1 > MicrosoftOutlookオブジェクト 左側のバーで、をダブルクリックします 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を使用すると、XNUMXつまたは複数の電子メールからすべての添付ファイルを簡単に削除できます

世界 すべてを切り離す の添付ファイルユーティリティ Outlook用Kutools Outlookで選択したXNUMXつまたは複数の電子メールからすべての添付ファイルをすばやく削除できます。 次のようにしてください。

Outlook用Kutools :100を超える便利なOutlookアドインを使用して、 60日以内に制限なしで無料でお試しいただけます.

1.削除する添付ファイルを含むXNUMXつまたは複数の電子メールメッセージを選択し、[ クツール > アタッチメントツールすべてを切り離す。 スクリーンショットを参照してください:

2。 の中に デタッチ設定 ダイアログボックスで、次のように構成してください。

  • 2.1 ブラウズ ボタンをクリックして、削除されたすべての添付ファイルを保存するフォルダを選択します。
  • 2.2デフォルトでは、 以下のスタイルでアタッチメントを取り外します チェックボックスがオンになっている場合は、必要に応じて電子メールに基づいて添付ファイルを別のフォルダに保存するオプションを選択してください。
  • 2.3 OK ボタン。 スクリーンショットを参照してください:

免責事項:
1.すべての添付ファイルを同じフォルダに保存する場合は、チェックを外してください 次のスタイルでサブフォルダーを作成します ボックス。
2.添付ファイルを削除すると、メーリングリストの電子メールから添付ファイルアイコンが消えます。 あなたはチェックすることができます 添付ファイルアイコンはまだメールに残っています 常にそれを保つための箱。
2.選択した電子メールからすべての添付ファイルを削除する以外に、特定の条件でのみ添付ファイルを削除できます。 たとえば、サイズが500KBを超える添付ファイルのみを削除する場合は、[ 詳細オプション ボタンをクリックして条件を展開し、次に示すように構成します。

3。 クリック あり ボタンの すべてを切り離す ダイアログボックス。

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

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

  このユーティリティの無料トライアル(60日)をご希望の場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。


Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします!

  • 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
  • BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
  • メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
  • 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
  • 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
ショットkutoolsの見通しkutoolsタブ1180x121
ショットkutoolsの見通しkutoolsプラスタブ1180x121
 
コメントを並べ替える
コメント (32)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
ありがとうございました!!! それは御馳走を働いた。
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい、ありがとう(MSの恥!!!)
このコメントは、サイトのモデレーターによって最小化されました
チャームのように働いた! どうもありがとう
このコメントは、サイトのモデレーターによって最小化されました
まさに私が探していたもの-素晴らしいコード-ありがとう
このコメントは、サイトのモデレーターによって最小化されました
これは素晴らしいです。 ただし、2つの添付ファイルに同じ名前が付いている場合は、古い添付ファイルが上書きされることに注意してください。
このコメントは、サイトのモデレーターによって最小化されました
同じ名前のXNUMXつの添付ファイルの問題を解決し、コードの次の行を変更することで逆トレーサビリティを作成できます。 'アイテムから削除する前に添付ファイルを保存します。 'ファイル名を取得します。 sFile = Format(aMail.SentOn、 "YYYYMMDDHHNNSS")& "_"&oAttachments.Item(i).FileNameこれにより、添付ファイル名の前に日付とタイムスタンプが追加されます。
このコメントは、サイトのモデレーターによって最小化されました
作成された添付ファイルは切り離されているように見えますが、メールやPDFを開くことはできますが、何かアイデアはありますか? ありがとう。
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい。 これは私が必要としていたものです、どうもありがとう
このコメントは、サイトのモデレーターによって最小化されました
これは部分的に機能します。 一部の添付ファイルは削除されますが、多くは削除されません。 Outlook 2013、15.0.4701.1000を実行しています。 これが最初に解決できない場合は、KUツールの購入を躊躇します。
このコメントは、サイトのモデレーターによって最小化されました
このコードは、選択したメールアイテムから添付ファイルのみを削除します。 それが問題である場合、私は2013を使用しています
このコメントは、サイトのモデレーターによって最小化されました
コードはうまく機能します、添付ファイルが保存される場所を変更することは可能ですか? 私は仕事でいくつかの異なるPCを使用しており、添付ファイルをC:/に保存しています。 パスがわかっている場合、ネットワークドライブに保存できますか?
このコメントは、サイトのモデレーターによって最小化されました
VBAは非常に優れていると思いますが、Outlook .pstファイル内のハイパーリンクが多すぎるとメモリを消費するため、ハイパーリンクを純粋なテキストに変換することは可能ですか。 実際、メールを読んだときに関連ファイルが(必要に応じて)すでに保存されているので、添付ファイル名だけを保持したいと思います。 誰か助けてくれませんか? ありがとう。
このコメントは、サイトのモデレーターによって最小化されました
素晴らしいヒント! ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
そんなにThx。 実際、「Outlookの複数の電子メールメッセージからすべての添付ファイルをVBAコードで削除する」に示すようにvbaコードを使用していますが、コードは正常に機能します。コードを変更してハイパーリンクをプレーンテキストに変換することはできません。 。ボリュームが特定のサイズに増加すると、リンクされたフォルダ/ファイルが遅かれ早かれ削除されるため、ハイパーリンクを表示しても意味がありません。今後のアドバイスをお待ちしております。よろしくお願いします。
このコメントは、サイトのモデレーターによって最小化されました
マクロから下部のセクションを削除します

If aMail.BodyFormat <> olFormatHTML Then

sDeletedFiles = sDeletedFiles&vbCrLf& "
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい、ありがとう、まさに私が探していたものです!
このコメントは、サイトのモデレーターによって最小化されました
個々のOutlookメッセージで機能しますが、複数のメッセージの場合、添付ファイルの名前が同じである場合、添付ファイルは互いに上書きされます。
このコメントは、サイトのモデレーターによって最小化されました
フォルダパスを、たとえばマイドキュメントではなくDに変更するにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
KUを使用して複数の電子メール(これまでのところ約100)の添付ファイルを削除しましたが、メールボックスのファイルサイズは減少しませんでした。 なぜそうなるのか説明できますか?
このコメントは、サイトのモデレーターによって最小化されました
コードは美しく機能します。 私が気付いたのは、招待状や配信不能な電子メールなど、特定の種類の電子メールの添付ファイルがコードに登録されていないことです。 したがって、これらの電子メールが選択した電子メールの行にある場合、コードはこれらの電子メールのXNUMXつに到達すると停止します。 これらの添付ファイルを手動で(または電子メール全体で)削除してから、コードを再実行する必要があります。 これらのタイプの電子メールを考慮に入れるようにコードを変更する方法があるかどうかはわかりません。 そうでなければ、これは非常に役に立ちました。
このコメントは、サイトのモデレーターによって最小化されました
このコードはまさに私が探していたものでした。 さらに一歩進めたい場合は..[その他のコマンド]を使用し、ドロップダウンからコマンドを選択して[マクロ]を選択します...このマクロと[追加>>]が表示されます...これでボタンが表示されます一番上に。 添付ファイル付きのメールをカスタム選択し、上部の新しいマクロボタンをクリックします。 このコードを投稿していただきありがとうございます!!!!! :-)
このコメントは、サイトのモデレーターによって最小化されました
こんにちはこれは本当に役に立ちましたが、再試行するとすべての添付ファイルが保存されなかったため、「このプロジェクトのマクロは無効になっています」というメッセージが表示されます。 よろしくリサ
このコメントは、サイトのモデレーターによって最小化されました
VBAコードはうまく機能しました。 どうもありがとう!
ここにはまだコメントが投稿されていません
もっと読み込む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0  文字
推奨される場所