Hoe drukt u alle bijlagen uit één of meerdere e-mails in Outlook af?

4. Er verschijnt een dialoogvenster Bijlage openen; klik op de knop Openen.

Let op: deze stap opent de geselecteerde bijlage en drukt deze direct af.

Herhaal stap 2 tot en met stap 4 om andere bijlagen in deze e-mail af te drukken.

Sla/exporteer snel alle bijlagen uit meerdere e-mails in Outlook op

Normaal gesproken kunt u bijlagen uit één e-mail opslaan door Bijlagenhulpmiddelen te activeren en de functie Alle bijlagen opslaan in Outlook te gebruiken. Maar wat als u bijlagen uit meerdere e-mails of uit een volledige e-maillmap in Outlook wilt opslaan? Probeer dan de functie Alles opslaan (bijlagen) van Kutools voor Outlook.

Geniet nu van de gratis versie van Kutools voor Outlook, die 100+ functies bevat, en 70+ functies zijn levenslang gratis!

Druk alle bijlagen in één e-mailbericht in batchmodus af

Als er veel bijlagen in één e-mailbericht zitten, kost het veel tijd om ze één voor één af te drukken. De volgende methode helpt u om alle bijlagen in een geselecteerd e-mailbericht gemakkelijk met Batch Afdrukken af te drukken.

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

2. Klik in Outlook 2010 of een nieuwere versie op Bestand > Afdrukken > Afdrukopties. Zie de schermafbeelding hieronder:

3. Schakel in het dialoogvenster Afdrukken de optie Afdrukken bijlage. Bijlagen worden alleen naar de standaardprinter gestuurd in, in het gedeelte Afdrukopties.

4. Klik op de knop Afdrukken.

5. Klik in het verschijnende dialoogvenster Bijlage openen op de knop Openenom verder te gaan. ()Opmerking: Dit dialoogvenster verschijnt afzonderlijk voor elke bijlage.)

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

Druk alle bijlagen en afbeeldingen in meerdere geselecteerde e-mails in batchmodus af

Volg onderstaande stappen om alle bijlagen in meerdere e-mails én alle afbeeldingen in de berichttekst in Outlook af te drukken met behulp van een VBA-code.

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

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

3. Klik in het venster Microsoft Visual Basic for Applications op Extra > Referenties. Schakel vervolgens de optie Microsoft Scripting Runtime in, zoals hieronder wordt weergegeven, en klik daarna op OK.

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

VBA: Druk alle bijlagen in meerdere Outlook-e-mails af

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 F5 of klik op de knop Uitvoeren om deze VBA-code uit te voeren. Vervolgens worden alle bijlagen in de geselecteerde e-mails en de afbeeldingen in de berichttekst afgedrukt.

Opmerking:

• Elke afbeelding roept een pop-updialoogvenster op om uw bevestiging voor afdrukken te vragen. Andere Bestandstype worden direct afgedrukt.
• Als er afbeeldingen in een e-mailhandtekening staan, roepen deze ook pop-updialoogvensters op.
• Als u de foutmelding De macro’s in dit project zijn uitgeschakeldkrijgt, raadpleeg dan deze handleiding:Hoe schakelt u macro’s in en uit in Outlook?

Druk alle bijlagen in meerdere geselecteerde e-mails in batchmodus af, met uitzondering van afbeeldingen in de tekst

Volg onderstaande stappen om alleen de bijlagen in meerdere e-mails af te drukken, zonder de afbeeldingen in de berichttekst in Outlook, met behulp van een VBA-code.

1. Houd in de E-maillijst de toetsen Ctrlof Shiftingedrukt om meerdere e-mails te selecteren waarvan u de bijlagen wilt afdrukken.

2. Druk op Alt+F11om het venster Microsoft Visual Basic for Applications te openen.

3. Klik in het venster Microsoft Visual Basic for Applications op Extra>Referenties. Schakel vervolgens de optie Microsoft Scripting Runtimein zoals hieronder wordt weergegeven. Klik daarna op OK.

4. Klik op Invoegen>Moduleen plak de onderstaande VBA-code in het nieuwe modulevenster.

VBA: Druk alle bijlagen in meerdere Outlook-e-mails af

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 F5 of klik op de knop Uitvoeren om deze VBA-code uit te voeren. Nu worden alle bijlagen in de geselecteerde e-mails afgedrukt.

Opmerking:

• Elke bijgevoegde afbeelding roept een pop-updialoogvenster op om uw bevestiging voor afdrukken te vragen. Andere Bestandstype worden direct afgedrukt.
• Afbeeldingen in de berichttekst worden niet afgedrukt.
• Als u de foutmelding De macro’s in dit project zijn uitgeschakeldkrijgt, raadpleeg dan deze handleiding:Hoe schakelt u macro’s in en uit in Outlook?

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

---

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…

📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…

📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…

🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...

👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...

👩🏼‍🤝‍👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Ontgrendel Kutools voor Outlook direct met één klik! Wacht niet langer—download nu en verhoog uw efficiëntie!

Functielijst van Kutools voor Outlook      Nu downloaden      Naar aankoop gaan

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

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

Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!

• ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
• 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
• 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint

Over het pakket⬇ Download het pakket💳 Koop het pakket