Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe de namen van alle bijlagen kopiëren bij het beantwoorden in Outlook?

Bij het beantwoorden van een RTF-e-mail (opgemaakt als Rich Format) in Outlook, worden alle namen van bijlagen gekopieerd en automatisch in de berichttekst geplakt (zie onderstaande schermafbeelding). Bij het beantwoorden van een HTML-e-mail in Outlook ontbreken echter bijlagen bij het beantwoorden van e-mail. Hier introduceert dit artikel enkele methoden om de naam van alle bijlagen te kopiëren bij het beantwoorden van e-mails of rechtstreeks in de ontvangen e-mails.


Kopieer de namen van alle bijlagen wanneer u antwoordt met het wijzigen van HTML naar RTF

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.

Kopieer de namen van alle bijlagen wanneer u reageert met VBA

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 Toolbox > 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:

Opmerking:: 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.
Opmerking:: 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:


Kopieer alle bijlagenamen bij het beantwoorden met een geweldige tool

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.

Kutools for Outlook: Voeg meer dan 100 handige tools voor Outlook toe, gratis te proberen zonder beperking in 60 dagen. Lees meer      Gratis proef nu

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. Klik voor een gratis proefperiode van 60 dagen zonder beperking!
antwoord met bijlagen


Gerelateerde artikelen:


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.