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 de 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 Toolbox > Referenties functie in het 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 de 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 de 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 de macroknop nu 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 volgende schermafbeelding:

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

Misschien is de bovenstaande code zo moeilijk toe te passen, als u dat heeft gedaan Kutools for Outlook, Met Kopieer namen functie, kunt u snel de namen van de bijlagen van een bericht kopiëren en ze overal plakken waar u maar wilt.

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

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

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.

Lees verder... Download nu...