Wie entfernt man alle Anhänge aus einer E-Mail in Outlook?

Normalerweise können Sie beim Vorschaufenster einer E-Mail einen Anhang löschen, indem Sie mit der rechten Maustaste darauf klicken und den Befehl Anhang entfernen auswählen. Enthält eine E-Mail-Nachricht jedoch viele Anhänge, wird das manuelle Entfernen einzeln schnell mühsam. Im Folgenden stellen wir Ihnen zwei einfache Methoden vor, um alle Anhänge gleichzeitig aus einer einzelnen E-Mail – oder sogar aus mehreren E-Mails auf einmal – in Outlook zu entfernen.

Manuelles Entfernen aller Anhänge aus einer E-Mail-Nachricht in Outlook
Entfernen aller Anhänge aus mehreren E-Mail-Nachrichten in Outlook mithilfe eines VBA-Codes
Einfaches Entfernen aller Anhänge aus einer oder mehreren E-Mails mit Kutools für Outlook

Manuelles Entfernen aller Anhänge aus einer E-Mail-Nachricht in Outlook

Es ist ganz einfach, alle Anhänge aus einer ausgewählten E-Mail-Nachricht mithilfe der Funktion Anhänge entfernen in Outlook zu löschen.

Schritt 1: Wählen Sie die E-Mail-Nachricht aus, deren Anhänge Sie später entfernen möchten.

Schritt 2: Klicken Sie im Lesebereich auf einen der Anhänge, um das Menüband „Anhangswerkzeuge“ zu aktivieren.

Schritt 3: Klicken Sie in der Gruppe Auswahl auf der Registerkarte Anhänge auf die Schaltfläche Alle auswählen.

Mit diesem Schritt markieren Sie alle Anhänge der ausgewählten E-Mail-Nachricht auf einmal.

Schritt 4: Klicken Sie in der Gruppe Aktionen auf der Registerkarte Anhänge auf die Schaltfläche Anhang entfernen.

Schritt 5: Klicken Sie im Warnungsdialogfeld auf die Schaltfläche Anhänge entfernen.

Anschließend werden sämtliche Anhänge der ausgewählten E-Mail-Nachricht umgehend gelöscht.

Hinweis: Die Funktion „Anhänge entfernen“ funktioniert einwandfrei in Outlook 2010 und neueren Versionen, ist jedoch in Outlook 2007 nicht verfügbar.

Entfernen aller Anhänge aus mehreren E-Mail-Nachrichten in Outlook mithilfe eines VBA-Codes

Wenn Sie alle Anhänge aus mehreren E-Mail-Nachrichten in Microsoft Outlook entfernen möchten, unterstützt Sie die folgende Methode dabei. Zunächst empfehlen wir Ihnen,alle Makros in Ihrem Microsoft Outlook zu aktivieren.

Schritt 1: Navigieren Sie zum Ordner Eigene Dokumente, erstellen Sie einen Neuer Ordner und benennen Sie ihn als OLAttachments

Schritt 2: Wählen Sie mehrere E-Mail-Nachrichten aus, deren Anhänge Sie anschließend entfernen möchten.

Hinweis: Sie können nicht aufeinanderfolgende E-Mail-Nachrichten auswählen, indem Sie die Strg-Taste gedrückt halten und auf die gewünschten Nachrichten klicken.

Wählen Sie aufeinanderfolgende E-Mail-Nachrichten aus, indem Sie die Umschalt-Taste gedrückt halten und klicken.

Schritt 3: Öffnen Sie den VBA-Editor, indem Sie gleichzeitig die Tasten Alt und F11 drücken.

Schritt 4: Erweitern Sie im linken Bereich Projekt1 > Microsoft Outlook-Objekte, und doppelklicken Sie anschließend auf ThisOutlookSession, um es im Editor zu öffnen. Siehe folgender Screenshot:

Schritt 5: Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in den Bearbeitungsbereich ein.

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

Schritt 6: Drücken Sie die Taste F5, um diesen VBA-Code auszuführen.

Nun werden alle Anhänge aus den ausgewählten E-Mail-Nachrichten entfernt, wobei am Ende jeder Nachricht Hyperlinks zu den jeweils gelöschten Anhängen verbleiben.

Einfaches Entfernen aller Anhänge aus einer oder mehreren E-Mails mit Kutools für Outlook

Mit dem Tool Alle Anhänge trennen von Kutools für Outlook können Sie schnell alle Anhänge aus einer oder mehreren ausgewählten E-Mails in Outlook entfernen. Gehen Sie dazu wie folgt vor:

Kutools für Outlook: Mit über 100 praktischen Outlook-Add-Ins können Sie 30 Tage lang kostenlos und ohne Einschränkungen testen.

1. Wählen Sie eine oder mehrere E-Mail-Nachrichten mit den gewünschten Anhängen aus, und klicken Sie anschließend auf Kutools > Anhangswerkzeuge > Alle Anhänge trennen. Siehe Screenshot:

2. Konfigurieren Sie im Dialogfeld Einstellungen für das Ablösen wie folgt.

• 2,1 Klicken Sie auf die Schaltfläche Durchsuchen, um alle gelöschten Anhänge zu speichern.
• 2,2 Standardmäßig ist das Kontrollkästchen Anhänge mit dem folgenden Stil ablösen aktiviert. Wählen Sie eine Option, um die Anhänge je nach Bedarf in verschiedene Ordner zu speichern – basierend auf den jeweiligen E-Mails.
• 2,3 Klicken Sie auf die Schaltfläche OK. Siehe Screenshot:

3. Klicken Sie im Dialogfeld „Alle Anhänge trennen“ auf die Schaltfläche Ja oder Alle Anhänge trennen.

4. Anschließend erscheint das Dialogfeld Kutools für Outlook, das Ihnen mitteilt, wie viele Anhänge gelöscht wurden. Klicken Sie auf die Schaltfläche OK.

Alle Anhänge werden nun sofort entfernt – es verbleiben nur die Hyperlinks in den ausgewählten E-Mails. Klicken Sie bei Bedarf einfach auf den jeweiligen Hyperlink, um den zugehörigen Anhang zu öffnen.

---

Beste Office-Produktivitätswerkzeuge

Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!

🤖KUTOOLS AI:Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – einschließlich Beantworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …

📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …

📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …

🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...

👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...

👩🏼‍🤝‍👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...

Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!

Kutools für Outlook mit nur einem Klick sofort freischalten! Warten Sie nicht – laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

Funktionsliste von Kutools für Outlook      Jetzt herunterladen      Zum Kauf gehen

🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins

Stark empfohlen: Kutools for Office (5-in-1)

Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!

• ✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
• 🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
• 🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint

Über das Paket⬇ Das Paket herunterladen💳 Das Paket kaufen