Hoe alle bijlagen in één/meerdere e-mails in Outlook afdrukken?

4. Er verschijnt een dialoogvenster Openen E-mailbijlage, klik alstublieft op de knop Openen .

Let op dat deze stap de geselecteerde bijlage zal openen en tegelijkertijd afdrukken.

Om andere bijlagen in deze e-mail af te drukken, herhaal dan stap 2 tot en met 4.

Snel alle bijlagen uit meerdere e-mails in Outlook opslaan/exporteren

Normaal gesproken kunnen we bijlagen uit één e-mail opslaan door de Bijlagenhulpmiddelen te activeren en de functie Alle Bijlagen Opslaan in Outlook te gebruiken. Maar wat als je bijlagen uit meerdere e-mails of uit de hele mailmap wilt opslaan in Outlook? Probeer de functie Alle (Bijlagen) Opslaan van Kutools voor Outlook.

Geniet nu van de gratis versie van Kutools voor Outlook, die meer dan 100 functies omvat, waarvan meer dan 70 functies levenslang gratis zijn!

Alle bijlagen in één e-mailbericht in bulk afdrukken

Als er veel bijlagen in één e-mailbericht zitten, kan het tijdrovend zijn om ze één voor één af te drukken. De volgende methode helpt u om alle bijlagen in een geselecteerd e-mailbericht in bulk af te drukken.

1. Selecteer het e-mailbericht waarvan u de bijlagen later wilt afdrukken.

2. Klik in Outlook 2010 of latere versies op Bestand > Afdrukken > Afdrukopties. Zie de volgende schermafbeelding:

3. Vink in het dialoogvenster Afdrukken de optie Bijgevoegde bestanden afdrukken aan. Bijlagen worden alleen naar de standaardprinter afgedrukt in de sectie Afdrukopties.

4. Klik op de knop Afdrukken.

5. Klik in het pop-up dialoogvenster Openen E-mailbijlage op de knop Openen om verder te gaan. (Opmerking: Dit dialoogvenster verschijnt voor elke bijlage apart.)

Nu worden alle bijlagen in dit geselecteerde e-mailbericht tegelijk afgedrukt.

Alle bijlagen en afbeeldingen in meerdere geselecteerde e-mails in bulk afdrukken

Om alle bijlagen in meerdere e-mails en alle afbeeldingen in de berichttekst in Outlook af te drukken, volg dan onderstaande stappen om een VBA-code toe te passen.

1. Houd in de mailinglijst de Ctrl- of Shift-toets ingedrukt om meerdere e-mails te selecteren waarvan u de bijlagen wilt afdrukken.

2. Druk gelijktijdig op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

3. Klik in het venster Microsoft Visual Basic for Applications op Tools > References. Vink vervolgens de optie Microsoft Scripting Runtime aan zoals hieronder weergegeven. Klik op OK wanneer u klaar bent.

4. Klik op Invoegen > Module, en plak vervolgens onderstaande VBA-code in het nieuwe modulevenster.

VBA: Alle bijlagen in meerdere Outlook-e-mails afdrukken

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. Druk op de toets F5 of klik op de knop Uitvoeren om deze VBA-code uit te voeren. Nu ziet u dat alle bijlagen in de geselecteerde e-mails en de afbeeldingen in de berichttekst worden afgedrukt.

Opmerking:

• Elke afbeelding zal een pop-updialoogvenster oproepen om uw bevestiging te vragen voor het afdrukken. Andere soorten bestanden worden direct afgedrukt.
• Als er afbeeldingen in een e-mailhandtekening staan, verschijnen er ook pop-updialoogvensters.
• Als u de foutmelding De macro's in dit project zijn uitgeschakeld krijgt, raadpleeg dan deze handleiding: Hoe Macro's In- en Uitschakelen in Outlook?

Alle bijlagen in meerdere geselecteerde e-mails behalve afbeeldingen in de body in bulk afdrukken

Om alleen bijlagen in meerdere e-mails af te drukken, maar niet de afbeeldingen in de berichttekst in Outlook, volg dan onderstaande stappen om een VBA-code toe te passen.

1. Houd in de mailinglijst de Ctrl- of Shift-toets ingedrukt om meerdere e-mails te selecteren waarvan u de bijlagen wilt afdrukken.

2. Druk gelijktijdig op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

3. Klik in het venster Microsoft Visual Basic for Applications op Tools > References. Vink vervolgens de optie Microsoft Scripting Runtime aan zoals hieronder weergegeven. Klik op OK wanneer u klaar bent.

4. Klik op Invoegen > Module, en plak vervolgens onderstaande VBA-code in het nieuwe modulevenster.

VBA: Alle bijlagen in meerdere Outlook-e-mails afdrukken

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5. Druk op de toets F5 of klik op de knop Uitvoeren om deze VBA-code uit te voeren. Nu ziet u dat alle bijlagen in de geselecteerde e-mails worden afgedrukt.

Opmerking:

• Elke bijgevoegde afbeelding zal een pop-updialoogvenster oproepen om uw bevestiging te vragen voor het afdrukken. Andere soorten bestanden worden direct afgedrukt.
• Afbeeldingen in de berichttekst worden niet afgedrukt.
• Als u de foutmelding De macro's in dit project zijn uitgeschakeld krijgt, raadpleeg dan deze handleiding: Hoe Macro's In- en Uitschakelen in Outlook?

Demo: één of alle bijlagen in een Outlook-e-mail afdrukken

---

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