Hoe alle bijlagen in één/meerdere e-mails in Outlook afdrukken?
Zoals u weet, zal Microsoft Outlook alleen de e-mailinhoud zoals de kop en het bericht afdrukken wanneer u op Bestand > Afdrukken klikt, maar niet de bijlagen. Hier laten we u zien hoe u gemakkelijk alle bijlagen in een geselecteerde e-mail kunt afdrukken in Microsoft Outlook.
- Alle bijlagen in één e-mailbericht één voor één afdrukken
- Alle bijlagen in één e-mailbericht in bulk afdrukken
- Alle bijlagen en afbeeldingen in meerdere geselecteerde e-mails in bulk afdrukken
- Alle bijlagen in meerdere geselecteerde e-mails behalve afbeeldingen in de body in bulk afdrukken
Alle bijlagen in één e-mailbericht één voor één afdrukken
Microsoft Outlook biedt ons de functie Snel Afdrukken, 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 één bijlage in deze e-mail.
3. Klik op de knop Snel Afdrukken in de groep Antwoorden op het tabblad Bijlagen.
Opmerking: de Bijlagenhulpmiddelen worden pas geactiveerd als u op bijlagen in e-mails klikt.
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.
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 Sub5. 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 Function5. 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 productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
