Hoe kopieer je alle bijlagenamen bij het beantwoorden in Outlook?

Als we de HTML-e-mail naar RTF hebben omgezet voordat we antwoorden, zullen alle bijlagenamen na het klikken op Start > Antwoorden in Outlook naar het antwoordbericht worden gekopieerd.

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

2Ga verder en klik op Tekstopmaak > Opgemaakte tekst, en sla daarna de e-mail op en sluit deze.

Nu keer je terug naar de hoofdweergave. Houd de e-mail geselecteerd en klik op Start > Antwoorden.

4Nu zijn alle bijlagenamen van de originele e-mail gekopieerd en geplakt in het antwoordbericht zoals in onderstaande schermafbeelding te zien is. Stel het antwoordbericht samen en verstuur het.

Beantwoord eenvoudig geselecteerde e-mails terwijl alle originele bijlagen in Outlook behouden blijven

Over het algemeen worden originele bijlagen verwijderd bij het beantwoorden van een e-mail in Outlook. Maar met de fantastische Antwoorden met bijlage functie van Kutools voor Outlook kun je gemakkelijk alle bijlagen van e-mails behouden bij het beantwoorden in Outlook.

Als je Kutools voor Outlook hebt geïnstalleerd, kun je de functie Namen kopiëren gebruiken om snel alle bijlagenamen uit een ontvangen e-mail te kopiëren en deze gemakkelijk in het antwoordbericht in Outlook te plakken.

1Selecteer de e-mail die je wilt beantwoorden en klik op Kutools Plus > Bijlagenhulpmiddelen > Namen kopiëren.

Er verschijnt een dialoogvenster dat je vertelt dat de bijlagenamen naar het klembord zijn gekopieerd. Klik op OK om het te sluiten.

Ga verder en klik op Start > Antwoorden om de geselecteerde e-mail te beantwoorden.

3Plaats de cursor in het antwoordberichtvenster in de berichttekst en druk op Ctrl + V toetsen om de bijlagenamen gemakkelijk te plakken.

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

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

2In de Projectverkenner aan de linkerkant vouw je Project 1 uit, dubbelklik om het venster ThisOutlookSession te openen (zie onderstaande schermafbeelding), en plak vervolgens 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

Klik op Tools > References.

4In het venster References – Project 1 voor Outlook 2016 vink je de Microsoft Word 16.0 Object Library referentie aan in het vak Beschikbare referenties en klik op de OK knop. Zie schermafbeelding:

Opmerking: Selecteer de Microsoft Word 15.0 Object Library referentie als je werkt met Outlook 2013, of Microsoft Word 14.0 Object Library referentie met Outlook 2010.

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

6Nu keer je terug naar de hoofdinterface van Outlook. Selecteer de e-mail die je wilt beantwoorden en klik op Start > Antwoorden of Allen beantwoorden.
Opmerking: Als de bijlagenamen niet zijn gekopieerd en geplakt in de antwoordende e-mail, herstart dan je Outlook en probeer opnieuw.

En nu zijn alle bijlagenamen van de geselecteerde e-mail gekopieerd en geplakt in de antwoordende e-mail. Zie schermafbeelding: