Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe voeg je een knop toe om een e-mail te versturen met het huidige Word-document als bijlage?

Author Xiaoyang Last modified

Als je een e-mail moet versturen vanuit een Word-document via Outlook en het huidige Word-document wilt bijvoegen, kun je een opdrachtknop invoegen die de e-mail in één klik verstuurt - zonder dat je Outlook handmatig hoeft te openen. Deze gids laat zien hoe je dit snel en eenvoudig kunt instellen.

Voeg een knop toe om een e-mail te versturen met het huidige Word-document als bijlage

Voeg een knop toe om een e-mail te versturen met het huidige Word-document als bijlage

Volg deze stappen om de taak in uw Word-document uit te voeren:

  1. Voeg eerst een opdrachtknop in. Ga naar "Developer" > "Legacy Tools" > "Command Button (ActiveX Control)".

    Opmerking: Als u het tabblad Developer niet ziet in de werkbalk, bezoek dan: Hoe het tabblad Developer in de Word-werkbalk weergeven.

    Developer tab with Controls group selected, Legacy Tools clicked, and Command Button highlighted
  2. Selecteer de knop, klik vervolgens op "Eigenschappen" onder het tabblad "Developer". Typ in het deelvenster Eigenschappen de tekst die u op de knop wilt weergeven in het veld "Bijschrift".
    Properties button on the ribbon and Properties dialog popped up
  3. Sluit het deelvenster Eigenschappen. Klik vervolgens met de rechtermuisknop op de knop en kies "Code weergeven".
    View Code option on the context menu
  4. Plak in het venster "Microsoft Visual Basic for Applications" de volgende code tussen de bestaande subroutine-tags: 
    Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
    .Subject = "Fax-data"
    .Body = "This is a test email."
    .To = "yy@addin99.com"
    .Importance = olImportanceNormal
    .Attachments.Add xDoc.FullName
    .Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
    VBA window with the above code pasted

    Opmerking: U kunt het onderwerp, de inhoud van de body en het e-mailadres van de ontvanger in de code wijzigen om overeen te komen met uw daadwerkelijke berichtgegevens.

  5. Sla de VBA-editor op en sluit deze. Klik op "Ontwerpmodus" op het tabblad Developer om deze uit te schakelen. Nu wordt er automatisch een e-mail gemaakt in Outlook met het huidige Word-document als bijlage wanneer u op de opdrachtknop klikt.
    An email is created with the current Word document as an attachment
  6. Klik ten slotte op de knop "Verzenden" in Outlook om het bericht te versturen.

Beste Office-productiviteitstools

Kutools for Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools