Hoe kopieert u alle bijlagenamen wanneer u een e-mail beantwoordt in Outlook?

Als u de HTML-e-mail eerder naar RTF hebt geconverteerd voordat u beantwoordt, worden alle bijlagenamen automatisch gekopieerd naar het antwoordbericht zodra u op Start > Beantwoorden in Outlook klikt.

1. Dubbelklik op de e-mail waarvan u de bijlagenamen wilt kopiëren om deze te openen, en klik vervolgens in het berichtvenster op Bericht > Acties > Bericht bewerken. Zie screenshot:

2. Klik nu op Opmaaktekst > RTF-tekst en sla de e-mail vervolgens op en sluit deze.

3. U keert nu terug naar de hoofdweergave. Houd de e-mail geselecteerd en klik op Start > Beantwoorden.

4. Alle bijlagenamen zijn nu gekopieerd uit het originele e-mailbericht en geplakt in het antwoord, zoals te zien is in de onderstaande screenshot. Stel het antwoordbericht samen en verzend het.

Beantwoord e-mails gemakkelijk Beantwoorden van meerdere geselecteerde e-mails met alle originele bijlagen behouden in Outlook

Over het algemeen worden originele bijlagen verwijderd wanneer u een e-mail beantwoordt in Outlook. Dankzij de fantastische Beantwoorden met bijlage-functie van Kutools voor Outlook behoudt u echter moeiteloos alle bijlagen bij het beantwoorden van e-mails in Outlook.

Als u Kutools voor Outlook hebt geïnstalleerd, kunt u de Kopieer namen-functie gebruiken om snel alle bijlagenamen van een ontvangen e-mail te kopiëren en deze vervolgens eenvoudig in het antwoordbericht te plakken in Outlook.

1. Selecteer de e-mail die u wilt beantwoorden en klik op KUTOOLS PLUS > Bijlagenhulpmiddelen > Kopieer namen.

Er verschijnt nu een dialoogvenster met de melding dat de bijlagenamen naar het klembord zijn gekopieerd. Klik op OK om het te sluiten.

2. Klik nu op Start > Beantwoorden om de geselecteerde e-mail te beantwoorden.

3. Plaats in het venster van het antwoordbericht de cursor in de berichttekst en druk op Ctrl+V om de bijlagentitel gemakkelijk te plakken.

Deze methode introduceert een VBA-macro die, bij het beantwoorden van een e-mail, automatisch alle bijlagenamen kopieert en deze direct in de berichttekst van het antwoordbericht in Outlook plakt.

1. Druk tegelijkertijd op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Vouw in de Projectverkenner links project 1 uit, dubbelklik op ThisOutlookSession om het venster te openen (zie onderstaande screenshot) en plak de onderstaande code in het venster.

VBA: Kopieer alle bijlagenamen bij het beantwoorden van een e-mail in Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Klik op Extra > Verwijzingen.

4. In het venster Verwijzingen – Project 1 dat wordt geopend voor Outlook 2016, vinkt u in het vak Beschikbare verwijzingen de optie Microsoft Word 16,0 Object Library aan en klikt u op de knop OK. Zie screenshot:

Opmerking: vink de verwijzing Microsoft Word 15,0 Object Library aan als u werkt met Outlook 2013, of de verwijzing Microsoft Word 14,0 Object Library bij Outlook 2010.

5. Sla de VBA-code op en sluit het Microsoft Visual Basic for Applications-venster.

6. U keert nu terug naar de hoofdinterface van Outlook. Selecteer het e-mailbericht dat u wilt beantwoorden en klik op Start > Beantwoorden of Allen beantwoorden.
Opmerking: Als de bijlagenamen niet worden gekopieerd naar het antwoordbericht, start u Outlook opnieuw op en beantwoordt u het bericht opnieuw.

Nu zijn alle bijlagenamen gekopieerd uit de geselecteerde e-mail en geplakt in het antwoordbericht. Zie screenshot: