Hoe alle bijlagenamen in de berichttekst vermelden bij het opstellen van e-mail in Outlook?

Zijn er goede manieren om alle bijlagenamen in de berichttekst in te voegen bij het opstellen van een e-mail in Outlook? In dit artikel zal ik het hebben over het oplossen van deze taak in Outlook.

Maak een lijst van alle bijlagenamen in de berichttekst bij het opstellen van e-mail met VBA-code

Maak een lijst van alle bijlagenamen in de berichttekst bij het opstellen van een e-mail met een eenvoudige functie

Maak een lijst van alle bijlagenamen in de berichttekst bij het opstellen van e-mail met VBA-code

Voer de volgende stappen uit om deze taak te voltooien:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: vermeld alle bijlagenamen in de berichttekst:

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. Blijf dan klikken Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:

VBA-code: vermeld alle bijlagenamen in de berichttekst:

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. En klik vervolgens op Tools > Referenties in de Microsoft Visual Basic voor toepassingen raam, in de pop uit Referenties-Project1 dialoogvenster, vink aan Microsoft Word-objectbibliotheek optie van de Beschikbare referenties keuzelijst, zie screenshot:

5. Klikken OK Om het dialoogvenster te verlaten, moet u de macroknop toevoegen aan het Snelle toegangswerkbalk. In het nieuwe Bericht venster, kies Meer opdrachten van het Pas de werkbalk Snelle toegang aan dropdown, zie screenshot:

6. In de Outlook Opties dialoogvenster voert u de volgende bewerkingen uit:

(1.) Selecteer Macro's van het Kies opdrachten van keuzelijst;

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

(3.) En klik dan Toevoegen knop om de macro toe te voegen aan het Pas de werkbalk Snelle toegang aan.

7. Dan klikken OK om het dialoogvenster te sluiten, is nu de macroknop ingevoegd in het Snelle toegangswerkbalk, zie screenshot:

8. Wanneer u nu een nieuw bericht maakt en op de macroknop klikt, worden de namen van de bijlagen boven de berichttekst ingevoegd, zoals in de onderstaande schermafbeelding:

Maak een lijst van alle bijlagenamen in de berichttekst bij het opstellen van een e-mail met een eenvoudige functie

Het kan zijn dat de bovenstaande code enigszins moeilijk voor u is om toe te passen, als u dat al heeft gedaan Kutools for Outlook, Met Kopieer namen Met deze functie kunt u snel de namen van de bijlagen van een bericht kopiëren en deze overal plakken waar u maar wilt.

Na het installeren van Kutools for Outlook, doe dit als volgt:

1. Maak eerst het nieuwe e-mailadres dat u nodig heeft en klik vervolgens op Kutools > Kopieer namen in het nieuwe Bericht venster, zie screenshot:

2. En dan verschijnt er een promptvenster om u eraan te herinneren dat de namen van de bijlagen naar het klembord zijn gekopieerd, zie screenshot:

3. Nu hoeft u alleen maar op te drukken Ctrl + V toetsen samen om de namen van de bijlagen in de berichttekst te plakken die u nodig hebt, zie screenshot:

Meer relatieve artikelen:

---

Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

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

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

Lees meer       Gratis download      Koop nu jouw