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.
2. Dan klikken Bespaar > Bespaar om het bijlagebestand op een locatie op te slaan.
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 oppompen 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
3. Dan klikken Tools > Referenties, en in de Referenties dialoogvenster, vink aan Microsoft Scripting-runtime checkbox.
4. klikken OK, Druk dan op F5 toets om alle bijlagen in de geselecteerde e-mails in bulk af te drukken.
Note: Als de bijlage een afbeelding is, verschijnt er een Afbeeldingen afdrukken klik eerst op Print naar de Sla afdrukuitvoer op als dialoogvenster.
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.