Wie behalte ich Anhänge bei der Beantwortung in Outlook?

Wenn wir eine E-Mail-Nachricht in Microsoft Outlook weiterleiten, bleiben die ursprünglichen Anhänge in dieser E-Mail-Nachricht in der weitergeleiteten Nachricht erhalten. Wenn wir jedoch eine E-Mail-Nachricht beantworten, werden die ursprünglichen Anhänge nicht an die neue Antwortnachricht angehängt. Hier werden einige Tricks zum Beibehalten der ursprünglichen Anhänge beim Antworten in Microsoft Outlook vorgestellt.

Antworten Sie mit Anhängen, indem Sie sie manuell kopieren und einfügen
Antworten Sie automatisch mit Anhängen von VBA
Ein Klick, um mit Anhängen mit Kutools for Outlook zu antworten

Antworten Sie mit Anhängen, indem Sie sie manuell kopieren und einfügen

Wir können Originalanhänge manuell in eine E-Mail-Nachricht kopieren und sie in das Fenster "Antwortnachricht" einfügen, wenn wir die E-Mail-Nachricht später beantworten.

Schritt 1: Klicken Sie auf die E-Mail-Nachricht, um eine Vorschau im Lesebereich anzuzeigen.

Schritt 2: Klicken Sie mit der rechten Maustaste auf einen Anhang in der Vorschau der E-Mail-Nachricht und wählen Sie die Option aus Alle auswählen aus dem Kontextmenü.

Schritt 3: Klicken Sie mit der rechten Maustaste auf die ausgewählten Anhänge und wählen Sie die aus Kopieren aus dem Kontextmenü.

Schritt 4: Beantworten Sie die E-Mail-Nachricht mit einem Klick auf antworten Taste auf der Startseite Registerkarte (oder in der Symbolleiste in Outlook 2007).

Schritt 5: Klicken Sie im Fenster Antwortnachricht auf Pasta Taste auf der Nachricht Registerkarte, um diese Anhänge einzufügen.

Wenn Sie Outlook 2013 oder eine neuere Version verwenden, klicken Sie auf Herausspringen in der oberen linken Ecke des Lesebereichs, um das Fenster für die Antwortnachricht freizugeben. Klicken Sie hier, um mehr zu erfahren…

Schritt 6: Verfassen Sie die Antwortnachricht und klicken Sie auf Absenden .

Antworten Sie automatisch mit Anhängen von VBA 

Es gibt ein VBA-Makro, mit dem Sie automatisch mit Originalanhängen antworten können.

Hinweis: Bevor Sie VBA-Makros ausführen, müssen Sie dies tun Aktivieren Sie Makros in Microsoft Outlook.

Schritt 1: Wählen Sie die E-Mail-Nachricht aus, die Sie mit den Anhängen beantworten möchten.

Schritt 2: Drücken Sie die Taste Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

Schritt 3: Erweitern Sie die Project1- und Microsoft Outlook-Objekte in der linken Leiste und doppelklicken Sie auf DieseOutlookSession um es zu öffnen.

Schritt 4: Fügen Sie den folgenden Code in das Fenster ThisOutlookSession ein.

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    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 Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New 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 = ""
    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 5: Drücken Sie die Taste F5 Schlüssel zum Ausführen dieses Makros. In der Eröffnung Makros Dialogfeld, klicken Sie auf Führen Sie ReplyAllWithAttachments aus wenn Sie allen mit Anhängen antworten möchten. Andernfalls wählen Sie RunReplyWithAnhänge, klicken Sie dann auf die Führen Sie .

Anschließend wird das Fenster "Antwortnachricht" geöffnet, in dem alle Originalanhänge angehängt werden.

Schritt 6: Verfassen Sie die Antwortnachricht und klicken Sie auf Absenden .

Antworten Sie mit Anhängen automatisch mit Kutools for Outlook

Das Antworte mit Anhängen Nutzen von Kutools for Outlook kann Ihnen helfen, E-Mails mit Originalanhängen mit nur einem Klick zu beantworten.

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

1. Wählen Sie die E-Mail mit den Anhängen aus, mit denen Sie antworten müssen.

2. Dann klick Kutoolen > Antworte mit Anhang > Antworte mit Anhang. Siehe Screenshot:

Anschließend werden alle Anhänge der ausgewählten E-Mail in der Liste aufgeführt Beigefügt Feld der Antwortnachricht. Verfassen Sie Ihre E-Mail und senden Sie sie.

Wenn Sie dieses Dienstprogramm kostenlos testen möchten, gehen Sie zu Laden Sie die Software kostenlos herunter Wenden Sie zuerst die Operation gemäß den obigen Schritten an.

Ein Klick, um mit Anhängen mit Kutools for Outlook zu antworten

In Verbindung stehende Artikel:

• Wie behalte ich Anhänge bei der Beantwortung in Outlook?
• Wie speichere ich alle Anhänge aus mehreren E-Mails in einem Ordner in Outlook?
• Wie entferne ich alle Anhänge aus E-Mails in Outlook?

---

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 Pro: Batch 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.

Weiterlesen       Free Download      Bezug von MarvelClient