Alle bijlagen in meerdere e-mails batchgewijs afdrukken met Outlook VBA

Als u alle bijlagen in meerdere geselecteerde e-mails in bulk wilt afdrukken, kunt u de methode gebruiken die in dit artikel is geïntroduceerd. Het gebruikt een stukje VBA-code om het snel te bereiken.

Zoals u kunt zien, is er bij het selecteren van een enkele bijlage een directe functie "Snel afdrukken" beschikbaar in het lint "Bijlagen". Als u echter meer dan één bijlage selecteert, wordt de knop "Snel afdrukken" uitgeschakeld, om nog maar te zwijgen over het afdrukken van alle bijlagen in veel geselecteerde e-mails. Daarom, op voorwaarde dat u alle bijlagen in meerdere e-mails in één keer in een batch wilt afdrukken, moet u andere manieren zoeken, zoals tools van derden of VBA. Gericht op deze behoefte, zullen we hier een stukje VBA-code aan u tonen, waarmee u het eenvoudig met één klik kunt krijgen.

Batch print alle bijlagen in meerdere e-mails

1. Start vanaf het begin uw Outlook-applicatie.
2. Druk vervolgens in het hoofdvenster op de toets "Alt + F11" om de VBA-editor te openen.
3. Open een lege module in het volgende venster "Microsoft Visual Basic for Applications".
4. Kopieer vervolgens de volgende VBA-codes naar zo'n module.

Sub BatchPrintAllAttachmentsinMultipleEmails()
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objSelection As Outlook.Selection
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objTempFolder As Object
    Dim objTempFolderItem As Object
    Dim strFilePath As String
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
    'Create a new temp folder
    MkDir (strTempFolder)
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For Each objItem In objSelection
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
           Set objAttachments = objMail.attachments
 
           'Save all the attachments in the temp folder
           For Each objAttachment In objAttachments
               strFilePath = strTempFolder & "\" & objAttachment.FileName
               objAttachment.SaveAsFile (strFilePath)
 
               'Print all the files in the temp folder
               Set objShell = CreateObject("Shell.Application")
               Set objTempFolder = objShell.NameSpace(0)
               Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
               objTempFolderItem.InvokeVerbEx ("print")
           Next objAttachment
        End If
    Next
End Sub

5. Vervolgens kunt u de nieuwe macro toevoegen aan de werkbalk Snelle toegang.
6. Daarna moet u uw Outlook-macrobeveiligingsniveau op laag zetten.
7. Uiteindelijk kun je het proberen.

• Selecteer eerst in de mailinglijst verschillende e-mails waarvan u de bijlagen wilt afdrukken.
• Klik vervolgens op de nieuwe macroknop in de werkbalk Snelle toegang.
• Vervolgens worden alle bijlagen in de geselecteerde e-mails afgedrukt.

Pas op voor virussen die in macro's zijn verborgen

Als u uw Outlook-macrobeveiligingsniveau op laag hebt ingesteld, moet u veel moeite doen om potentiële virussen in kwaadaardige macro's te blokkeren. Het is omdat virussen uw Outlook-gegevens in één keer kunnen vernietigen. Zodra uw Outlook-gegevens beschadigd zijn, doet u uw best Outlook herstellen gegevens met alle middelen, zoals terugkerend naar een krachtig hulpmiddel zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupte sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com