Direkt zum Inhalt

Wie entferne ich alle Anhänge aus E-Mails in Outlook?

Normalerweise können Sie bei der Vorschau einer E-Mail einen Anhang mit einem Rechtsklick löschen und die auswählen Anhang entfernen Artikel. Manchmal enthält eine E-Mail-Nachricht viele Anhänge, und es ist mühsam, sie einzeln zu entfernen. Hier arrangieren wir zwei einfache Tricks, um alle Anhänge in einer E-Mail und alle Anhänge aus mehreren E-Mails in Outlook zu entfernen.

Entfernen Sie manuell alle Anhänge in einer E-Mail-Nachricht in Outlook
Entfernen Sie alle Anhänge aus mehreren E-Mail-Nachrichten in Outlook mit VBA-Code
Entfernen Sie mit Kutools for Outlook ganz einfach alle Anhänge aus einer oder mehreren E-Mails


Entfernen Sie manuell alle Anhänge in einer E-Mail-Nachricht in Outlook

Es ist einfach, alle Anhänge in ausgewählten E-Mail-Nachrichten mit dem zu entfernen Anhänge entfernen Funktion in Outlook.

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

Schritt 2: Klicken Sie im Lesebereich auf einen der Anhänge, um die Anhänge-Tools zu aktivieren.

Schritt 3: Klicken Sie auf Alle auswählen Knopf im Auswahl Gruppe auf der Anlagen Tab.

In diesem Schritt können Sie alle Anhänge in diesen ausgewählten E-Mail-Nachrichten gleichzeitig auswählen.

Schritt 4: Klicken Sie auf Anhang entfernen Knopf im Aktionen Gruppe auf der Anlagen Tab.

Schritt 5: Klicken Sie im Warndialogfeld auf Anhänge entfernen .

Dann werden alle Anhänge in diesen ausgewählten E-Mail-Nachrichten so schnell wie möglich gelöscht.

Note: Die Funktion zum Entfernen von Anhängen funktioniert in Outlook 2010 und der späteren Version einwandfrei, jedoch nicht in Outlook 2007.


Entfernen Sie einfach alle Anhänge aus mehreren ausgewählten E-Mails in Outlook:

Mit der Alle Anhänge abnehmen Nutzen von Kutools for Excelkönnen Sie ganz einfach alle Anhänge aus mehreren ausgewählten E-Mails entfernen, wie in der folgenden Demo gezeigt. (Die Anhänge werden in einem bestimmten Ordner gespeichert.) Jetzt herunterladen und ausprobieren! (30-tägiger kostenloser Trail)


Entfernen Sie alle Anhänge aus mehreren E-Mail-Nachrichten in Outlook mit VBA-Code

Wenn Sie alle Anhänge aus mehreren E-Mail-Nachrichten in Microsoft Outlook entfernen möchten, können Sie dies mithilfe der folgenden Methode problemlos tun. Wir empfehlen Sie Aktivieren Sie alle Makros in Ihrem Microsoft Outlook zuerst.

Schritt 1: Gehen Sie zum Ordner von Mein Dokument, erstellen Sie einen neuen Ordner und benennen Sie ihn als OLAAnhänge

Schritt 2: Wählen Sie mehrere E-Mail-Nachrichten aus, deren Anhänge Sie später entfernen werden.

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

Sie können aufeinanderfolgende E-Mail-Nachrichten auswählen, indem Sie die Taste gedrückt halten Shift Taste und klicken.

Schritt 3: Öffnen Sie den VBA-Editor durch Drücken der Taste Andere Schlüssel und F11 Schlüssel gleichzeitig.

Schritt 4: Erweitern Sie die Project1 > Microsoft Outlook-Objekte Klicken Sie in der linken Leiste auf DieseOutlookSession um es im Editor zu öffnen. Siehe folgenden 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 von F5 um diesen VBA-Code auszuführen.

Jetzt werden alle Anhänge aus ausgewählten E-Mail-Nachrichten entfernt, wobei Hyperlinks zu jedem gelöschten Anhang am Ende aller ausgewählten E-Mail-Nachrichten verbleiben.


Entfernen Sie mit Kutools for Outlook ganz einfach alle Anhänge aus einer oder mehreren E-Mails

Das Alle abnehmen Anhänge Dienstprogramm von Kutools for Outlook kann schnell alle Anhänge aus einer oder mehreren ausgewählten E-Mails in Outlook entfernen. Bitte gehen Sie wie folgt vor.

Kutools for Outlook : mit mehr als 100 praktischen Outlook-Add-Ins, Kostenlos ohne Einschränkung in 60 Tagen zu versuchen.

1. Wählen Sie eine oder mehrere E-Mail-Nachrichten mit den Anhängen aus, die Sie entfernen möchten, und klicken Sie dann auf Kutoolen > AnbaugeräteAlle abnehmen. Siehe Screenshot:

2. In dem Einstellungen trennen Dialogfeld, bitte wie folgt konfigurieren.

  • 2.1 Klicken Sie auf Entdecken Klicken Sie auf die Schaltfläche, um einen Ordner zum Speichern aller gelöschten Anhänge auszuwählen.
  • 2.2 Standardmäßig ist die Befestigen Sie die Anhänge im folgenden Stil Wenn das Kontrollkästchen aktiviert ist, wählen Sie eine Option aus, um die Anhänge je nach Bedarf in verschiedenen Ordnern basierend auf E-Mails zu speichern.
  • 2.3 Klicken Sie auf OK Taste. Siehe Screenshot:

Notizen:
1. Wenn Sie alle Anhänge in demselben Ordner speichern möchten, deaktivieren Sie bitte das Kontrollkästchen Erstellen Sie Unterordner im folgenden Stil Box.
2. Nach dem Entfernen von Anhängen verschwindet das Anhangssymbol aus der E-Mail der Mailingliste. Sie können die überprüfen Das Anhangssymbol bleibt in den E-Mails erhalten Box, um es immer zu behalten.
2. Neben dem Entfernen aller Anhänge aus ausgewählten E-Mails können Sie Anhänge nur unter bestimmten Bedingungen entfernen. Wenn Sie beispielsweise nur die Anhänge entfernen möchten, deren Größe mehr als 500 KB beträgt, klicken Sie auf Erweiterte Optionen Klicken Sie auf die Schaltfläche, um die Bedingungen zu erweitern, und konfigurieren Sie sie dann wie unten gezeigt.

3. Klicken Sie auf die Ja Knopf im Alle abnehmen Dialogbox.

4. Dann a Kutools for Outlook Das Dialogfeld zeigt an, wie viele Anhänge gelöscht wurden. Bitte klicken Sie auf OK

Jetzt werden alle Anhänge sofort entfernt, und nur die Hyperlinks verbleiben in ausgewählten E-Mails. Sie können auf den Hyperlink klicken, um den entsprechenden Anhang nach Bedarf zu öffnen.

  Wenn Sie eine kostenlose Testversion (60 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

Comments (33)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello,
MS recently changed the storage limits for Hotmail. Attachments are counted towards storage used.
Many users would like to remove only the attachments in bulk. Your VBA script may be the solution for these users.
Can you confirm if this script still works for Hotmail users in 2023?
Thank you in advance.
This comment was minimized by the moderator on the site
The article and the comments below are very helpful! Thanks!
This comment was minimized by the moderator on the site
 Hello, I use the VBA code, unfortunaltely all the attachements were deleted from the emails, and they were not storage in any of the folders... so i lost many attachment files. anyone knows how can i restored
This comment was minimized by the moderator on the site
The VBA code shown in solution 2 works fine, however, but my goal is to remove only attachments which are not inline the message. Being VBA ignorant I would like to ask if it is possible to modify the code in that manner it would remove only attached files, not pictures inside the email text. It would surely make my day :)

Thank you in advance
This comment was minimized by the moderator on the site
Can somebody change the code so that only for example attachments named "TermsAndConditions.pdf" are deleted
This comment was minimized by the moderator on the site
Dear Rene,
Please follow the steps in the above second method, run the below VBA code. In an opening dialog box, please enter the attachment's name with the file extension (such as test.docx), and then click the OK button to just remove it from the selected email.

Sub ReplaceAttachmentsToLink()
Dim xMail As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i, xCount As Long
Dim xFile, xFldPath, xDelFiles, xFileName As String
Dim xFlag As Boolean

xFldPath = CreateObject("shell.Application").NameSpace(5).self.Path
On Error Resume Next
Set xSelection = Outlook.ActiveExplorer.Selection
xFldPath = xFldPath & "\OLAttachments"
xFlag = False
xFileName = InputBox("Attachment name:", "Kutools for Outlook")

If StrPtr(xFileName) = 0 Then Exit Sub
If xFileName <> "" Then
For Each xMail In xSelection
Set xAttachments = xMail.Attachments
xCount = xAttachments.Count
If xCount > 0 Then
For i = xCount To 1 Step -1
xFile = xAttachments.Item(i).FileName
If xFileName = xFile Then
xFlag = True
xFile = xFldPath & "\" & xFile
xAttachments.Item(i).SaveAsFile xFile
xAttachments.Item(i).Delete
If xMail.BodyFormat <> olFormatHTML Then
xDelFiles = xDelFiles & vbCrLf & ""
Else
xDelFiles = xDelFiles & "
" & "" & xFile & ""
End If
End If
Next i
If xFlag = True Then
If xMail.BodyFormat <> olFormatHTML Then
xMail.Body = xMail.Body & vbCrLf & "The file(s) were saved to " & xDelFiles
Else
xMail.HTMLBody = xMail.HTMLBody & "
" & "The file(s) were saved to " & xDelFiles & "
"
End If
End If
xMail.Save
xDelFiles = ""
End If
Next
If xFlag = False Then
MsgBox "The Attachment does not exist!"
Else
MsgBox "The attachment has been deleted."
End If
Else
MsgBox "Please input a attachment name"
End If
Set xAttachments = Nothing
Set xMail = Nothing
Set xSelection = Nothing
End Sub
This comment was minimized by the moderator on the site
Method 1 doesn't work here, as there's only 1 option under 'Selection': Copy.
This comment was minimized by the moderator on the site
Dear Peter,
Outlook users are reporting that the Select All (attachments) feature in Outlook 2016 is missing.
This comment was minimized by the moderator on the site
The VBA Code solution was great .... worked beautifully
This comment was minimized by the moderator on the site
Compile Error Sub or Function not defined??
This comment was minimized by the moderator on the site
VBA code worked great. Many thanks!
This comment was minimized by the moderator on the site
Hi This was really helpful , but as all attachments were not saved when i tried again it gives a message "the macros in this project are disabled".....tried enabling macros in outlook but no luck, any one can help! Regards Lisa
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations