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. (Note: 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 Tools > 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 Tools > 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!
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.