Hoe alleen bijlage(n) af te drukken vanuit één e-mail of geselecteerde e-mails in Outlook?
In Outlook kun je e-mails afdrukken, maar heb je ooit alleen de bijlagen afgedrukt vanuit één e-mail of geselecteerde e-mails in Outlook? In dit artikel introduceer ik trucs om deze taak op te lossen.
Alleen bijlage(n) afdrukken vanuit één e-mail met Snel Afdrukken
Alleen bijlage(n) afdrukken vanuit geselecteerde e-mails met VBA
Alleen bijlage(n) afdrukken vanuit één e-mail met Snel Afdrukken
Om alleen de bijlagen af te drukken zonder de berichttekst, kun je de functie Snel Afdrukken gebruiken.
1. Klik in het berichtenvenster met de rechtermuisknop op de bijlage die je wilt afdrukken en selecteer "Snel Afdrukken" uit het contextmenu.
2. Klik vervolgens op "Opslaan" > "Opslaan" om het bijlagebestand op een locatie op te slaan.
3. Ga nu naar de locatie waar je het bijlagebestand hebt geplaatst en open het bestand om het zoals gewoonlijk af te drukken.
Alleen bijlage(n) afdrukken vanuit geselecteerde e-mails met VBA
Als je de bijlagen wilt afdrukken vanuit geselecteerde e-mails, kun je VBA-code gebruiken.
1. Selecteer de e-mails waarvan je de bijlagen wilt afdrukken, druk op "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.
2. Dubbelklik op "ThisOutlookSession" in het "Project1"-paneel, kopieer en plak onderstaande code in het script.
VBA: Bijlagen afdrukken vanuit geselecteerde e-mails
Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
If xItem.Class = olMail Then
Set xMailItem = xItem
If xMailItem.Attachments.Count = 0 Then Exit Sub
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
xFilePath = xTmpFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
xTempFolderItem.InvokeVerbEx ("print")
Next
End If
Next
'If xFSO.FolderExists(xTmpFldPath) Then
' xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub
3. Klik vervolgens op "Tools" > "References", en vink in het dialoogvenster "References" het selectievakje "Microsoft Scripting Runtime" aan.
4. Klik op "OK", en druk vervolgens op de toets "F5" om alle bijlagen in de geselecteerde e-mails in bulk af te drukken.
Opmerking: Als de bijlage een afbeelding is, verschijnt er eerst een dialoogvenster "Afbeeldingen Afdrukken", klik op "Afdrukken" om naar het dialoogvenster "Afdrukuitvoer Opslaan Als" te gaan.
AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
- Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
- Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
- Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
- Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.
Deze functie ondersteunt:
- Slimme e-mailreacties
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Meertalige vertaling
Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet
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 ...
