Hoe alleen bijlage(n) af te drukken vanuit één e-mail of geselecteerde e-mails in Outlook?

In Outlook kun je e-mails afdrukken, maar heb je ooit alleen de bijlagen afgedrukt vanuit één e-mail of geselecteerde e-mails in Outlook? In dit artikel introduceer ik trucs om deze taak op te lossen.

Alleen bijlage(n) afdrukken vanuit één e-mail met Snel Afdrukken

Alleen bijlage(n) afdrukken vanuit geselecteerde e-mails met VBA

Alleen bijlage(n) afdrukken vanuit één e-mail met Snel Afdrukken

Om alleen de bijlagen af te drukken zonder de berichttekst, kun je de functie Snel Afdrukken gebruiken.

1. Klik in het berichtenvenster met de rechtermuisknop op de bijlage die je wilt afdrukken en selecteer "Snel Afdrukken" uit het contextmenu.

2. Klik vervolgens op "Opslaan" > "Opslaan" om het bijlagebestand op een locatie op te slaan.

3. Ga nu naar de locatie waar je het bijlagebestand hebt geplaatst en open het bestand om het zoals gewoonlijk af te drukken.

Alleen bijlage(n) afdrukken vanuit geselecteerde e-mails met VBA

Als je de bijlagen wilt afdrukken vanuit geselecteerde e-mails, kun je VBA-code gebruiken.

1. Selecteer de e-mails waarvan je de bijlagen wilt afdrukken, druk op "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.

2. Dubbelklik op "ThisOutlookSession" in het "Project1"-paneel, kopieer en plak onderstaande code in het script.

VBA: Bijlagen afdrukken vanuit geselecteerde e-mails

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

3. Klik vervolgens op "Tools" > "References", en vink in het dialoogvenster "References" het selectievakje "Microsoft Scripting Runtime" aan.
  

4. Klik op "OK", en druk vervolgens op de toets "F5" om alle bijlagen in de geselecteerde e-mails in bulk af te drukken.

Opmerking: Als de bijlage een afbeelding is, verschijnt er eerst een dialoogvenster "Afbeeldingen Afdrukken", klik op "Afdrukken" om naar het dialoogvenster "Afdrukuitvoer Opslaan Als" te gaan.

AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS

Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.

Deze functie ondersteunt:

• Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
• Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
• Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
• Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
• Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
• Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.

Deze functie ondersteunt:

• Slimme e-mailreacties
• Geoptimaliseerde inhoud
• Op trefwoorden gebaseerde concepten
• Intelligente inhoudsuitbreiding
• E-mailsamenvatting
• Meertalige vertaling

Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet

---

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

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

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

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

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

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

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

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

• ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
• 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
• 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite