Hoe bijlagen bewaren bij het beantwoorden in Outlook?

Wanneer we een e-mailbericht doorsturen in Microsoft Outlook, blijven de originele bijlagen in dit e-mailbericht in het doorgestuurde bericht. Als we echter een e-mailbericht beantwoorden, worden de originele bijlagen niet bij het nieuwe antwoordbericht gevoegd. Hier gaan we een paar trucjes introduceren om originele bijlagen te behouden bij het beantwoorden in Microsoft Outlook.

Beantwoord met bijlagen door handmatig te kopiëren en te plakken
Reageer automatisch met bijlagen door VBA
Eén klik om te antwoorden met bijlagen met Kutools voor Outlook

Beantwoord met bijlagen door handmatig te kopiëren en te plakken

We kunnen originele bijlagen in een e-mailbericht handmatig kopiëren en deze in het venster Antwoordbericht plakken wanneer we het e-mailbericht later beantwoorden.

Stap 1: Klik op het e-mailbericht om er een voorbeeld van te zien in het leesvenster.

Stap 2: Klik met de rechtermuisknop op een bijlage in het voorbeeld-e-mailbericht en selecteer het Alles selecteren vanuit het rechtsklikmenu.

Stap 3: Klik met de rechtermuisknop op de geselecteerde bijlagen en selecteer het Kopiëren vanuit het rechtsklikmenu.

Stap 4: Beantwoord het e-mailbericht door op te klikken Antwoorden knop op de Home tabblad (of op de werkbalk in Outlook 2007).

Stap 5: Klik in het venster Reageren op het pasta knop op de Bericht tab om deze bijlagen te plakken.

Als u Outlook 2013 of de latere versie gebruikt, klikt u op het Pop-out in de linkerbovenhoek van het leesvenster om het venster Antwoordbericht te openen. Klik om meer te weten ...

Stap 6: Stel het antwoordbericht op en klik op Verzenden knop.

Reageer automatisch met bijlagen door VBA 

Er is een VBA-macro die u kan helpen automatisch te antwoorden met originele bijlagen.

Opmerking: voordat u VBA-macro's uitvoert, moet u dit doen macro's inschakelen in Microsoft Outlook.

Stap 1: Selecteer het e-mailbericht dat u met de bijlagen wilt beantwoorden.

Stap 2: druk op de anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

Stap 3: Vouw de Project1- en Microsoft Outlook-objecten in de linkerbalk uit en dubbelklik op het DezeOutlookSessie om het te openen.

Stap 4: Plak de volgende code in het ThisOutlookSession-venster.

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

Stap 5: druk op de F5 toets om deze macro uit te voeren. In de opening Macro's dialoogvenster, klik VoerReplyAllWithAttachments uit als je iedereen wilt beantwoorden met bijlagen. Selecteer anders UitvoerenAntwoordmetbijlagen, klik vervolgens op de lopen knop.

Vervolgens wordt het venster Antwoordbericht geopend met alle originele bijlagen.

Stap 6: Stel het antwoordbericht op en klik op Verzenden knop.

Reageer automatisch met bijlagen met Kutools voor Outlook

De Reageer met Bijlage nut van Kutools for Outlook kan u helpen om e-mails met originele bijlagen te beantwoorden met slechts één klik.

Kutools for Outlook : met meer dan 100+ handige Outlook-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen.

1. Selecteer de e-mail die de bijlagen bevat waarmee u wilt antwoorden.

2. Dan klikken Kutools > Reageer met bijlage > Reageer met bijlage. Zie screenshot:

Vervolgens worden alle bijlagen van de geselecteerde e-mail vermeld in het Attached veld van het antwoordbericht. Stel uw e-mail op en verstuur deze.

Als u een gratis proefversie van dit hulpprogramma wilt, gaat u naar gratis download de software eerst, en ga dan de bewerking toepassen volgens bovenstaande stappen.

Eén klik om te antwoorden met bijlagen met Kutools voor Outlook

Gerelateerde artikelen:

• Hoe bijlagen bewaren bij het beantwoorden in Outlook?
• Hoe bewaar ik alle bijlagen van meerdere e-mails in een map in Outlook?
• Hoe verwijder ik alle bijlagen uit e-mail in Outlook?

---

Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen Pro: Batch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

Lees meer       Gratis download      Koop nu jouw