Als we de HTML-e-mail hebben geconverteerd naar RTF voordat we antwoorden, worden de namen van alle bijlagen gekopieerd naar het antwoordbericht nadat we in Outlook op Home> Reply hebben geklikt.

1. Dubbelklik om de e-mail te openen waarvan u de namen van de bijlagen wilt kopiëren, en klik vervolgens op Bericht > Acties > Bewerk bericht in het berichtvenster. Zie screenshot:

2. Ga je gang om te klikken Tekst opmaken > Rijke text, en vervolgens de e-mail opslaan en sluiten.

3. Nu keert u terug naar de hoofdweergave. Blijf de e-mail selecteren en klik Home > Antwoorden.

4. Nu worden de namen van alle bijlagen gekopieerd uit de originele e-mail en in het antwoordbericht geplakt, zoals hieronder wordt getoond. Stel het antwoordbericht op en verstuur het.

Deze methode introduceert een VBA-macro om de namen van alle bijlagen te kopiëren bij het beantwoorden van een e-mail en vervolgens de namen in de berichttekst van het beantwoorden van e-mail in Outlook te plakken.

1. pers anders + F11 toetsen tegelijk om het venster Microsoft Visual Basic for Applications te openen.

2. Vouw in de linker Projectverkenner Project 1 uit, dubbelklik om het DezeOutlookSessie venster (zie onderstaande schermafbeelding) en plak vervolgens onderstaande code in het venster.

VBA: kopieer de naam van alle bijlagen 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. Klikken Tools > Referenties.

4. Controleer in het openingsvenster Referenties - Project 1 voor Outlook 2016 het Microsoft Word 16.0-objectbibliotheek verwijzing in het vak Beschikbare verwijzingen en klik op het OK knop. Zie screenshot:

Note: Selecteer het Microsoft Word 15.0-objectbibliotheek verwijzing als u met Outlook 2013 werkt, of Microsoft Word 14.0-objectbibliotheek referentie met Outlook 2010.

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

6. Nu keert u terug naar de hoofdinterface van Outlook. Selecteer de e-mail die u wilt beantwoorden en klik op Home > Antwoorden or Allen beantwoorden.
Note: Als de namen van de bijlagen niet zijn gekopieerd en in de antwoordende e-mail zijn geplakt, start u Outlook opnieuw en antwoordt u opnieuw.

En nu wordt de naam van alle bijlagen gekopieerd van de geselecteerde e-mail en in de antwoordende e-mail geplakt. Zie screenshot:

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

1. Selecteer de e-mail die u wilt beantwoorden en klik op Kutools > Hulpmiddelen voor bijlagen > Kopieer namen.

Dan verschijnt er een dialoogvenster met de melding dat de namen van de bijlagen naar het klembord zijn gekopieerd. Klik OK om het te sluiten.

2. Ga je gang om te klikken Home > Antwoorden om de geselecteerde e-mail te beantwoorden.

3. Plaats de cursor in het berichtvenster in het berichtvenster en druk op Ctrl + V toetsen om de namen van de bijlagen gemakkelijk te plakken.

Beantwoord eenvoudig geselecteerde e-mails met alle originele bijlagen die in Outlook worden bewaard

Over het algemeen worden originele bijlagen verwijderd bij het beantwoorden van een e-mail in Outlook. Maar met fantastisch Reageer met bijlage functie van Kutools for Outlook, kunt u eenvoudig alle bijlagen van e-mails bewaren wanneer u deze in Outlook beantwoordt.