Hoe alle bijlage namen in de berichttekst op te sommen wanneer u een e-mail opstelt in Outlook?

Zijn er goede manieren om alle bijlage namen in de berichttekst in te voegen wanneer we een e-mail opstellen in Outlook? In dit artikel zal ik bespreken hoe u deze taak in Outlook kunt uitvoeren.

Alle bijlage namen in de berichttekst opnemen wanneer u een e-mail opstelt met VBA-code

Alle bijlage namen in de berichttekst opnemen wanneer u een e-mail opstelt met een eenvoudige functie

Alle bijlage namen in de berichttekst opnemen wanneer u een e-mail opstelt met VBA-code

Volg de volgende stappen om deze taak te voltooien:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Dubbelklik in het Microsoft Visual Basic for Applications-venster op ThisOutlookSession in het Project1(VbaProject.OTM)-paneel om de modus te openen, en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: Alle bijlage namen in de berichttekst opnemen:

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 en plak de onderstaande code in de geopende lege module, zie schermafbeelding:

VBA-code: Alle bijlage namen in de berichttekst opnemen:

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 vervolgens op Tools > References in het Microsoft Visual Basic for Applications-venster, in het pop-upvenster References-Project1 selecteert u de optie Microsoft Word Object Library in de lijst met beschikbare referenties, zie schermafbeelding:

5. Klik op OK om het dialoogvenster te sluiten, voeg vervolgens de macroknop toe aan de Quick Access Toolbar. Kies in het nieuwe Berichtenvenster Meer Opdrachten in de vervolgkeuzelijst Customize Quick Access Toolbar, zie schermafbeelding:

6. Voer in het dialoogvenster Outlook-opties de volgende handelingen uit:

(1.) Selecteer Macros in de vervolgkeuzelijst Opdrachten kiezen uit;

(2.) Klik op de macro naam die u zojuist hebt ingevoegd;

(3.) Klik vervolgens op de knop Toevoegen om de macro toe te voegen aan de Customize Quick Access Toolbar.

7. Klik vervolgens op OK om het dialoogvenster te sluiten, nu is de macroknop toegevoegd aan de Quick Access Toolbar, zie schermafbeelding:

8. Nu, wanneer u een nieuw bericht maakt en op de macroknop klikt, worden de bijlage namen boven de berichttekst ingevoegd zoals in de volgende schermafbeelding te zien is:

Alle bijlage namen in de berichttekst opnemen wanneer u een e-mail opstelt met een eenvoudige functie

Misschien is de bovenstaande code voor u enigszins moeilijk om toe te passen, als u Kutools voor Outlook heeft, met de functie Kopieer Namen kunt u snel de bijlage namen van een bericht kopiëren en ze plakken waar u ze nodig heeft.

Nadat u Kutools voor Outlook hebt geïnstalleerd, doet u het volgende:

1. Maak eerst de nieuwe e-mail die u nodig heeft, en klik vervolgens in het nieuwe Berichtenvenster op Kutools > Kopieer Namen, zie schermafbeelding:

2. Er verschijnt een pop-upvenster dat u eraan herinnert dat de bijlage namen naar het klembord zijn gekopieerd, zie schermafbeelding:

3. Nu hoeft u alleen nog maar op Ctrl + V te drukken om de bijlage namen in de berichttekst te plakken waar u ze nodig heeft, zie schermafbeelding:

Meer gerelateerde artikelen:

---

Beste productiviteitstools voor Office

Breaking News: Kutools voor Outlook lanceert gratis versie!

Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...

🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...

👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...

Ontgrendel direct Kutools voor Outlook met één klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functielijst van Kutools voor Outlook Gratis versie downloaden Upgrade naar Professional