Note: The other languages of the website are Google-translated. Back to English

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
 
Comments (4)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
hoe kan ik de macro's inschakelen? Vorige week werkte het perfect.
Deze opmerking is gemaakt door de moderator op de site
Ik heb de optie voor meerdere e-mails geprobeerd om de VBA-code te plakken, maar wanneer ik op F5 druk om het uit te voeren, krijg ik een syntaxisfout met deze regel gemarkeerd:
Als xItem.Class = olMail Dan


Iemand een idee?
Deze opmerking is gemaakt door de moderator op de site
Heb je het selectievakje Microsoft Scripting Runtime aangevinkt?
Deze opmerking is gemaakt door de moderator op de site
hoe druk je bijlagen af ​​in meerdere e-mails maar met een bepaald paginabereik?
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties