Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe kan ik alleen bijlage (n) afdrukken vanuit één e-mail of geselecteerde e-mails in Outlook?

In Outlook kunt u de e-mails afdrukken, maar heeft u de bijlagen alleen vanuit één e-mail of geselecteerde e-mails in Outlook afgedrukt? In dit artikel introduceer ik de trucs voor het oplossen van deze taak.

Druk alleen bijlage (n) af vanuit één e-mail met Quick Print

Druk alleen bijlage (n) af van geselecteerde e-mails met VBA


Druk alleen bijlage (n) af vanuit één e-mail met Quick Print

Om de bijlagen alleen af ​​te drukken zonder de hoofdtekst van de e-mail, kunt u de functie Snel afdrukken gebruiken.

1. Klik in het berichtvenster met de rechtermuisknop op de bijlage die u wilt afdrukken en selecteer Snel afdrukken vanuit het contextmenu.
doc print bijlage 1

2. Dan klikken Bespaar > Bespaar om het bijlagebestand op een locatie op te slaan.
doc print bijlage 2
doc print bijlage 3

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


Druk alleen bijlage (n) af van geselecteerde e-mails met VBA

Als u de bijlagen van geselecteerde e-mails wilt afdrukken, kunt u VBA-code gebruiken.

1. Selecteer de e-mails waarvan u de bijlagen wilt afdrukken, druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.

2. Dubbelklik DezeOutlookSessie van Project1 deelvenster, kopieer en plak 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

doc print bijlage 4

3. Dan klikken Toolbox > Referenties, en in de Referenties dialoogvenster, vink aan Microsoft Scripting Runtime checkbox.
doc print bijlage 5   doc print bijlage 6

4. klikken OK, Druk dan op F5 toets om alle bijlagen in de geselecteerde e-mails in bulk af te drukken.

Opmerking:: Als de bijlage een afbeelding is, verschijnt er een Afbeeldingen afdrukken klik eerst op Print naar de Sla afdrukuitvoer op als dialoogvenster.
doc print bijlage 7


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.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Joe · 1 months ago
    how do you print attachments in multiple emails but with a certain page range
  • To post as a guest, your comment is unpublished.
    Travis · 1 years ago
    I tried the multiple emails option of pasting the VBA code, but when I press F5 to run it, I get a syntax error with this line highlighted:
    If xItem.Class = olMail Then


    Any ideas?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Have you check the Microsoft Scripting Runtime checkbox?
  • To post as a guest, your comment is unpublished.
    kevin · 3 years ago
    how can I enable the macro's? Last week it worked perfectly.