Wie behält man Anhänge beim Antworten in Outlook?

In Microsoft Outlook bleiben beim Weiterleiten einer E-Mail die ursprünglichen Anhänge erhalten. Beim Antworten hingegen entfernt Outlook automatisch alle Anhänge, da davon ausgegangen wird, dass diese im weiteren Gesprächsverlauf nicht mehr benötigt werden. Das kann besonders frustrierend und zeitaufwendig sein – etwa wenn Sie wichtige Dateien zitieren, Dokumente erneut versenden oder Anhänge zur besseren Kontextualisierung beibehalten möchten. Glücklicherweise gibt es mehrere Möglichkeiten, um sicherzustellen, dass Anhänge beim Antworten in Outlook erhalten bleiben – ganz gleich, ob Sie eine manuelle Methode, eine Ein-Klick-Lösung oder eine vollautomatische Variante bevorzugen:

Mit Anhängen antworten durch manuelles Kopieren und Einfügen(Grundlegend & mühsam)

Ein-Klick-Mit Anhängen antworten mit Kutools für Outlook 👍(Schnell & mühelos)

Mit Anhängen antworten automatisch mit VBA(Technisch & erfordert Einrichtung)

Mit Anhängen antworten durch manuelles Kopieren und Einfügen

Sie können die Anhänge einer E-Mail manuell kopieren und vor dem Versand in Ihre Antwortnachricht einfügen.

1. Öffnen Sie Outlook, wählen Sie die gewünschte E-Mail aus und zeigen Sie sie im Lesebereich an oder öffnen Sie sie in einem separaten Fenster.

2. Klicken Sie auf einen beliebigen Anhang und anschließend unter der Registerkarte Anhänge auf Alle auswählen und dann auf Kopieren.

3. Klicken Sie auf die Schaltfläche Antworten, um das Antwortfenster zu öffnen.

4. Klicken Sie im Antwortfenster an eine beliebige Stelle im Nachrichtentext und drücken Sie Strg+V oder klicken Sie auf Einfügen auf der Registerkarte Nachricht, um die kopierten Anhänge einzufügen.

5. Verfassen Sie Ihre Antwort, überprüfen Sie die Anhänge und klicken Sie auf Senden.

---

📂 Anhänge aus mehreren E-Mails mühelos speichern

Haben Sie es satt, Anhänge in Outlook eine E-Mail nach der anderen zu speichern? Optimieren Sie Ihren Arbeitsablauf mit Kutools für Outlook! Die leistungsstarke Alle speichern (Anhänge)-Funktion ermöglicht es Ihnen, Anhänge aus mehreren E-Mails oder ganzen Ordnern mit nur wenigen Klicks zu speichern. Verabschieden Sie sich von mühsamen manuellen Vorgängen und behalten Sie mühelos die Kontrolle über Ihr Postfach.

Laden Sie Kutools für Outlook jetzt herunter

Ein-Klick-Mit Anhängen antworten mit Kutools für Outlook 👍

Für eine schnelle und mühelose Möglichkeit, mit Anhängen zu antworten, können Sie Kutools für Outlook verwenden. Mit der Funktion Mit ursprünglichem Anhang antworten beantworten Sie E-Mails mit nur einem Klick – und behalten dabei alle ursprünglichen Anhänge bei.

Wählen Sie die E-Mail aus, die die gewünschten Anhänge enthält. Klicken Sie dann auf Kutools > Mit ursprünglichem Anhang antworten oder Allen mit ursprünglichem Anhang antworten.

Das war’s! Die Antwortnachricht enthält automatisch alle Anhänge der ursprünglichen E-Mail. Verfassen Sie einfach Ihre Nachricht und klicken Sie auf Senden.

Mit Anhängen antworten automatisch mit VBA

Für Benutzer, die mit VBA-Skripten vertraut sind, automatisiert diese Methode das Beantworten von E-Mails mit Anhängen. Allerdings müssen Makros in Outlook aktiviert und das Skript manuell hinzugefügt werden.

Schritt 1: Öffnen Sie den VBA-Editor

1. Wählen Sie die E-Mail-Nachricht aus, auf die Sie antworten möchten.

2. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Erweitern Sie im linken Bereich Projekt1 > Microsoft Outlook-Objekte. Doppelklicken Sie auf ThisOutlookSession, um es zu öffnen.

Schritt 2: Fügen Sie den VBA-Code ein

Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ThisOutlookSessionein:

Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub

Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub

Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.CurrentItem
    End Select
End Function

Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Object
    Dim xTmpFolder As Object
    Dim xFldPath As String
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

Schritt 3: Führen Sie das VBA-Makro aus

1. Drücken Sie F5 oder klicken Sie auf die Schaltfläche Ausführen, um das Makro auszuführen.

2. Wählen Sie im Dialogfeld Makros entweder ThisOutlookSession.RunReplyAllWithAttachments aus, um allen zu antworten, oder ThisOutlookSession.RunReplyWithAttachments, um einem Empfänger zu antworten. Klicken Sie auf Ausführen.

Ergebnis

Das Antwortfenster öffnet sich mit allen ursprünglichen Anhängen. Verfassen Sie einfach Ihre Nachricht und klicken Sie auf Senden.

Fazit: Welche Methode sollten Sie wählen?

Hier finden Sie einen Vergleich der drei Methoden, um die für Sie am besten geeignete auszuwählen:

Für die meisten Benutzer ist Kutools für Outlook die beste Option, denn es bietet den schnellsten und einfachsten Weg, um in Outlook mit Anhängen zu antworten. Jetzt können Sie mühelos mit Anhängen antworten – und zwar mit der Methode, die perfekt zu Ihrem Arbeitsablauf passt! 🚀

Demo: Mit einem Klick Mit Anhängen antworten mit Kutools für Outlook

Verwandte Artikel:

• Wie behält man Anhänge beim Antworten in Outlook?
• Wie speichert man alle Anhänge mehrerer E-Mails in einem einzigen Ordner in Outlook?
• Wie entfernt man alle Anhänge aus einer E-Mail in Outlook?

---

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