Hoe drukt u alleen de bijlage(s) af van één e-mail of van geselecteerde e-mails in Outlook?

In Outlook kunt u e-mails afdrukken, maar heeft u ooit alleen de bijlagen van één e-mail of van meerdere geselecteerde e-mails afgedrukt? In dit artikel deel ik handige trucs om deze taak eenvoudig uit te voeren.

Alleen bijlage(n) afdrukken van één e-mail met Snel afdrukken

Alleen bijlage(n) afdrukken van geselecteerde e-mails met VBA

---

Alleen bijlage(n) afdrukken van één e-mail met Snel afdrukken

Om alleen de bijlagen af te drukken, zonder de e-mailtekst, gebruikt u eenvoudigweg de functie Snel afdrukken.

1. Klik in het berichtvenster met de rechtermuisknop op de bijlage die u wilt afdrukken en kies „Snel afdrukken” in het contextmenu.

2. Klik vervolgens op „Opslaan” > „Opslaan” om het bijlagebestand op uw gewenste locatie op te slaan.

3. Ga nu naar de locatie waar u het bijlagebestand heeft opgeslagen en open het bestand om het zoals gewoonlijk af te drukken.

---

Alleen bijlage(n) afdrukken van geselecteerde e-mails met VBA

Wilt u de bijlagen van geselecteerde e-mails afdrukken? Gebruik dan VBA-code.

1. Selecteer de e-mails waarvan u de bijlagen wilt afdrukken en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het deelvenster „Project1” op „ThisOutlookSession” en plak de onderstaande code in het script.

VBA: Bijlagen afdrukken van 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 'Extra' > 'Verwijzingen' en vink in het dialoogvenster 'Verwijzingen' het selectievakje 'Microsoft Scripting Runtime' aan.
  

4. Klik op „OK” en druk vervolgens op „F5” om alle bijlagen van de geselecteerde e-mails in één keer af te drukken.

Opmerking: als de bijlage een afbeelding is, verschijnt eerst het dialoogvenster „Afbeeldingen afdrukken”; klik op „Afdrukken” om door te gaan naar het dialoogvenster „Afdrukuitvoer opslaan als”.