Hoe kunt u alle bijlagenamen in de e-mailtekst plaatsen bij het opstellen van een e-mail in Outlook?
Zijn er handige manieren om alle bijlagenamen automatisch in de e-mailtekst in te voegen bij het opstellen van een bericht in Outlook? In dit artikel leg ik uit hoe u deze taak in Outlook uitvoert.
Alle Bijlage Naam in de berichttekst plaatsen bij het opstellen van een e-mail met VBA-code
Alle Bijlage Naam in de berichttekst plaatsen bij het opstellen van een e-mail met VBA-code
Voer de volgende stappen uit om deze taak te voltooien:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen, en kopieer en plak vervolgens de volgende code in de lege module.
VBA-code: Alle Bijlage Naam in de berichttekst plaatsen:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As MailItem
If Item.Class = olMail Then
Set xMailItem = Item
If xMailItem.Attachments.Count > 0 Then
AddAttachmentNamesToBody
End If
End If
End Sub
3. Klik vervolgens op Invoegen > Module, kopieer de onderstaande code en plak deze in de geopende lege module. Zie screenshot:
VBA-code: Alle Bijlage Naam in de berichttekst plaatsen:
Public Sub AddAttachmentNamesToBody()
Dim xMailItem As MailItem
Dim xAttachment As Attachment
Dim xFileName As String
Dim xInspector As Outlook.Inspector
Dim xDoc As Word.Document
Dim xWdSelection As Word.Selection
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
If xMailItem.Attachments.Count = 0 Then
Exit Sub
End If
xFileName = ""
For Each xAttachment In xMailItem.Attachments
If xFileName = "" Then
xFileName = " <" & xAttachment.FileName & "> "
Else
xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
End If
Next xAttachment
Set xInspector = Outlook.Application.ActiveInspector()
Set xDoc = xInspector.WordEditor
Set xWdSelection = xDoc.Application.Selection
xWdSelection.HomeKey Unit:=wdStory
xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
Set xMailItem = Nothing
End Sub
4. Klik daarna op Extra > Verwijzingen in het venster Microsoft Visual Basic for Applications. Schakel in het dialoogvenster Verwijzingen – Project1 de optie Microsoft Word Objectbibliotheek in het vak Beschikbare verwijzingen in. Zie screenshot:
 |  |  |
5. Klik op OK om het dialoogvenster te sluiten. Voeg vervolgens de macroknop toe aan de Snelle toegangswerkbalk. Kies in het nieuwe Bericht-venster Meer opdrachten uit de vervolgkeuzelijst Snelle toegangswerkbalk aanpassen, zie screenshot:
6. Voer in het dialoogvenster Outlook-opties de volgende handelingen uit:
(1.) Selecteer Macro'sin de vervolgkeuzelijst Opdrachten kiezen uit;
(2.) Klik op de macronaam die u zojuist hebt ingevoegd;
(3.) Klik vervolgens op de knop Toevoegen om de macro toe te voegen aan de Snelle toegangswerkbalk aanpassen.
7. Klik vervolgens op OK om het dialoogvenster te sluiten. De macroknop is nu toegevoegd aan de Snelle toegangswerkbalk, zie screenshot:
8. Wanneer u nu een nieuw bericht maakt en op de macroknop klikt, verschijnt de bijlagentitel boven de berichttekst, zoals op de volgende screenshot is weergegeven:
Alle Bijlage Naam in de berichttekst plaatsen bij het opstellen van een e-mail met een eenvoudige functie
De bovenstaande code is misschien wat lastig om toe te passen. Maar als u Kutools voor Outlook heeft, kunt u met de functie Kopieer namen razendsnel de bijlagenamen van een bericht kopiëren en overal plakken waar u ze nodig hebt.
Na installatie van Kutools voor Outlookgaat u als volgt te werk:
1. Maak eerst de nieuwe e-mail die u nodig hebt en klik vervolgens op Kutools > Kopieer namen in het nieuwe Bericht-venster, zie screenshot:
2. Vervolgens verschijnt een meldingsvenster dat u eraan herinnert dat de bijlagenamen naar het klembord zijn gekopieerd. Zie screenshot:
3. Druk nu tegelijkertijd op Ctrl + V om de bijlagentitel in de gewenste berichttekst te plakken. Zie screenshot:
Meer gerelateerde artikelen:
- Antwoord Allen met Originele Bijlagen In Outlook
- Normaal gesproken verdwijnen de originele bijlagen automatisch wanneer u in Outlook de functie ‘Allen beantwoorden’ gebruikt. Is het mogelijk om de originele bijlagen alsnog toe te voegen bij ‘Allen beantwoorden’ in Outlook?
- Bijlagen downloaden/opslaan vanuit Outlook naar een bepaalde map
- Over het algemeen kunt u alle bijlagen van één e-mail opslaan door op Bijlagen > Alle bijlagen opslaan te klikken in Outlook. Maar als u alle bijlagen van Alle ontvangen e-mails en ontvangen e-mails wilt opslaan, hebt u daar dan een goede oplossing voor? In dit artikel worden twee oplossingen beschreven om bijlagen automatisch vanuit Outlook naar een bepaalde map te downloaden.
- Standaardmap voor bijlagen wijzigen in Outlook
- Bent u het zat om telkens opnieuw de locatie van de bijlagen te moeten zoeken die u eerder hebt opgegeven bij het starten van Outlook? In deze handleiding laten we u zien hoe u de standaardlocatie voor bijlagen kunt wijzigen. Daarna wordt de opgegeven map voor het opslaan van bijlagen automatisch geopend telkens wanneer u bijlagen opslaat, zelfs na het opnieuw opstarten van Outlook.
- Alle bijlagen uit e-mail verwijderen in Outlook
- Normaal gesproken verwijdert u een bijlage tijdens het doornemen van een e-mail door met de rechtermuisknop op de bijlage te klikken en ‘Bijlage verwijderen’ te selecteren. Maar wat als een e-mailbericht tientallen bijlagen bevat? Dan is het vervelend om ze één voor één te verwijderen. Gelukkig zijn er twee eenvoudige trucs waarmee u alle bijlagen uit één e-mail — of zelfs uit meerdere e-mails tegelijk — in Outlook kunt verwijderen.
Beste Office-productiviteitstools
Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!
📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…
📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…
📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…
🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...
👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...
👩🏼🤝👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!
🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!
- ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
- 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
- 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint