Hoe alle bijlagen in één / meerdere e-mails in Outlook afdrukken?
Zoals u weet, wordt alleen de e-mailinhoud zoals de koptekst en de hoofdtekst afgedrukt wanneer u op het Dien in > Print in Microsoft Outlook, maar druk de bijlagen niet af. Hier laten we u zien hoe u alle bijlagen in een geselecteerde e-mail op uw gemak kunt afdrukken in Microsoft Outlook.
- Druk alle bijlagen één voor één af in één e-mailbericht
- Batch print alle bijlagen in één e-mailbericht
- Batch print alle bijlagen en afbeeldingen in meerdere geselecteerde e-mails
- Batch print alle bijlagen in meerdere geselecteerde e-mails behalve foto's in de body
Druk alle bijlagen één voor één af in één e-mailbericht
Microsoft Outlook biedt ons Snel afdrukken functie, waarmee u bijlagen in een e-mailbericht één voor één kunt afdrukken.
1. Selecteer het e-mailbericht waarvan u de bijlagen later wilt afdrukken.
2. Klik op een bijlage in deze e-mail.
3. Klik op de Snel afdrukken knop in de Acties groep op de Bijlages Tab.
Merk op Hulpmiddelen voor bijlagen wordt pas geactiveerd als u op bijlagen in e-mails klikt.
4. Er verschijnt een dialoogvenster voor het openen van een e-mailbijlage en klik op de Openen knop.
Houd er rekening mee dat deze stap de geselecteerde bijlage opent en deze geselecteerde bijlage tegelijkertijd afdrukt.
Herhaal stap 2 tot en met stap 4 om andere bijlagen in deze e-mail af te drukken.
Bewaar / exporteer snel alle bijlagen van meerdere e-mails in Outlook
Normaal gesproken kunnen we bijlagen van één e-mail opslaan door de Hulpmiddelen voor bijlagen en het toepassen van de Bewaar alle bijlagen functie in Outlook. Maar wat als bijlagen van meerdere e-mails of de hele e-mailmap in Outlook worden opgeslagen? Probeer Kutools voor Outlook Save All (Bijlagen) functie.

Batch print alle bijlagen in één e-mailbericht
Als er veel bijlagen in één e-mailbericht zitten, kost het veel tijd om ze één voor één af te drukken. En met de volgende methode kunt u eenvoudig alle bijlagen in een geselecteerd e-mailbericht in batch afdrukken.
1. Selecteer het e-mailbericht waarvan u de bijlagen later wilt afdrukken.
2. Klik in Outlook 2010 of latere versies op het Dien in > Print > Afdrukopties. Zie de volgende schermafbeelding:
3. Controleer in het dialoogvenster Afdrukken de: Bijgevoegde bestanden afdrukken. Bijlagen worden alleen op de standaardprinter afgedrukt optie in het Afdrukopties pagina.
4. Klik op de Print knop.
5. Klik in het pop-upvenster E-mailbijlage openen op de Openen knop om door te gaan. (Opmerking:: Dit dialoogvenster verschijnt voor elke bijlage afzonderlijk.)
Nu worden alle bijlagen in dit geselecteerde e-mailbericht in één keer afgedrukt.
Batch print alle bijlagen en afbeeldingen in meerdere geselecteerde e-mails
Als u alle bijlagen in meerdere e-mails en alle afbeeldingen in de berichttekst in Outlook wilt afdrukken, volgt u de onderstaande stappen om een VBA-code toe te passen.
1. Houd in de mailinglijst Ctrl or Shift -toetsen om meerdere e-mails te selecteren waarvan u de bijlagen wilt afdrukken.
2. pers anders + F11 toetsen samen om het venster Microsoft Visual Basic for Applications te openen.
3. Klik in het venster Microsoft Visual Basic for Applications op Toolbox > Referenties. En controleer dan het Microsoft Scripting-runtime optie zoals hieronder weergegeven. Als u klaar bent, klikt u op OK.
4. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe modulevenster.
VBA: druk alle bijlagen af in meerdere Outlook-e-mails
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 toets of klik op de lopen knop om deze VBA-code uit te voeren. Nu zult u zien dat alle bijlagen in de geselecteerde e-mails en de afbeeldingen in de berichttekst worden afgedrukt.
Opmerking:
- Bij elke afbeelding verschijnt een pop-upvenster waarin u wordt gevraagd om bevestiging van het afdrukken. Terwijl andere soorten bestanden direct worden afgedrukt.
- Als er afbeeldingen in een e-mailhandtekening staan, verschijnen er ook pop-updialoogvensters.
- Als je krijgt De macro's in dit project zijn uitgeschakeld fout, controleer deze tutorial: Hoe macro's in Outlook in- en uitschakelen?
Batch print alle bijlagen in meerdere geselecteerde e-mails behalve foto's in de body
Om alleen bijlagen in meerdere e-mails af te drukken, maar de afbeeldingen in de berichttekst in Outlook, volgt u de onderstaande stappen om een VBA-code toe te passen.
1. Houd in de mailinglijst Ctrl or Shift -toetsen om meerdere e-mails te selecteren waarvan u de bijlagen wilt afdrukken.
2. pers anders + F11 toetsen samen om het venster Microsoft Visual Basic for Applications te openen.
3. Klik in het venster Microsoft Visual Basic for Applications op Toolbox > Referenties. En controleer dan het Microsoft Scripting-runtime optie zoals hieronder weergegeven. Als u klaar bent, klikt u op OK.
4. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe modulevenster.
VBA: druk alle bijlagen af in meerdere Outlook-e-mails
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 toets of klik op de lopen knop om deze VBA-code uit te voeren. Nu zult u zien dat alle bijlagen in de geselecteerde e-mails worden afgedrukt.
Opmerking:
- Elke bijgevoegde afbeelding zal een pop-updialoogvenster openen waarin u wordt gevraagd om bevestiging van het afdrukken. Terwijl andere soorten bestanden direct worden afgedrukt.
- Afbeeldingen in de berichttekst worden niet afgedrukt.
- Als je krijgt De macro's in dit project zijn uitgeschakeld fout, controleer deze tutorial: Hoe macro's in Outlook in- en uitschakelen?
Demo: druk een of alle bijlagen in een Outlook-e-mail af
Tip: In deze video, Kutools tabblad is toegevoegd door Kutools for Outlook. Als je het nodig hebt, klik dan op hier een gratis proefperiode van 60 dagen zonder beperking!
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.
























