Hoe bijlagen automatisch af te drukken wanneer e-mails binnenkomen in Outlook?

Deze tutorial demonstreert een methode om een VBA-script en een Outlook-regel te combineren om u te helpen bijlagen van bepaalde e-mails automatisch af te drukken wanneer ze binnenkomen in Outlook.

Bijlagen automatisch afdrukken wanneer bepaalde e-mails binnenkomen

Stel dat je de bijlagen van binnenkomende e-mails van een bepaalde afzender automatisch wilt afdrukken. Je kunt als volgt te werk gaan om dit voor elkaar te krijgen.

Stap 1: Maak een script in Outlook

Ten eerste moet je een VBA-script maken in Outlook.

1. Start uw Outlook, druk tegelijkertijd op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Dubbelklik in het Microsoft Visual Basic for Applications-venster op Project1 > Microsoft Outlook Objects > ThisOutlookSession om het venster ThisOutlookSession (Code) te openen, en kopieer vervolgens de volgende code naar dit codevenster.

VBA-code 1: Bijlagen automatisch afdrukken (alle soorten bijlagen) wanneer e-mails binnenkomen

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  Dim xShell As Object
  Dim xFolder As Object, xFolderItem As Object
  Dim xFileName As String
  On Error GoTo xError
  If Item.Attachments.Count = 0 Then Exit Sub
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
  If Not xFS.FolderExists(xTempFolder) Then
    MkDir (xTempFolder)
  End If
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    If IsEmbeddedAttachment(xAtt) = False Then
      xFileName = xTempFolder & "\" & xAtt.FileName
      xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
    End If
  Next xAtt
  Set xFS = Nothing
  Set xFolder = Nothing
  Set xFolderItem = Nothing
  Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

Opmerking: Deze code ondersteunt het afdrukken van alle soorten bijlagen die in e-mails worden ontvangen. Als u alleen een specifiek type bijlage wilt afdrukken, zoals pdf-bestanden, pas dan de volgende VBA-code toe.

VBA-code 2: Het specifieke type bijlagen automatisch afdrukken wanneer e-mails binnenkomen

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20230223
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  Dim xShell As Object
  Dim xFolder As Object, xFolderItem As Object
  Dim xFileType As String, xFileName As String
  On Error GoTo xError
  If Item.Attachments.Count = 0 Then Exit Sub
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Item.ReceivedTime, "yyyymmddhhmmss")
  If Not xFS.FolderExists(xTempFolder) Then
    MkDir (xTempFolder)
  End If
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    If IsEmbeddedAttachment(xAtt) = False Then
      xFileName = xAtt.FileName
      xFileType = LCase$(Right$(xFileName, VBA.Len(xFileName) - VBA.InStrRev(xFileName, ".")))
      xFileName = xTempFolder & "\" & xFileName
      Select Case xFileType
        Case "pdf"   'change "pdf" to the file extension you want to print
          xAtt.SaveAsFile (xFileName)
          Set xFolderItem = xFolder.ParseName(xFileName)
          xFolderItem.InvokeVerbEx ("print")
      End Select
    End If
  Next xAtt
  Set xFS = Nothing
  Set xFolder = Nothing
  Set xFolderItem = Nothing
  Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
  Exit Sub
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

Opmerkingen:

3. Ga verder en klik op Tools > References. Schakel in het pop-upvenster References – Project1 het vakje Microsoft Scripting Runtime in en klik vervolgens op de OK-knop.

4. Sla de code op en druk op de toetsen Alt + Q om het Microsoft Visual Basic for Applications-venster te sluiten.

Opmerking: Zorg ervoor dat de optie Enable all macros is ingeschakeld in uw Outlook. U kunt deze optie controleren door de onderstaande stappen te volgen.

Stap 2: Bouw een regel om het script te gebruiken

Nadat u het VBA-script in Outlook hebt toegevoegd, moet u een regel maken om het script te gebruiken op basis van bepaalde voorwaarden.

1. Ga naar het tabblad Home, klik op Rules > Manage Rules & Alerts.

2. Klik in het dialoogvenster Rules and Alerts op de knop New Rule om een regel te maken.

Tips: Als u meerdere e-mailaccounts hebt toegevoegd aan uw Outlook, specificeer dan een account in de vervolgkeuzelijst Apply changes to this folder waar u de regel wilt toepassen. Anders wordt deze toegepast op de inbox van het momenteel geselecteerde e-mailaccount.

3. Selecteer in het eerste dialoogvenster van de Regelwizard Apply rule on messages I receive in het vak Stap 1, en klik vervolgens op Volgende.

4. In het tweede dialoogvenster van de Regelwizard moet u:

5. In het derde dialoogvenster van de Regelwizard moet u als volgt configureren.

Tips: Als de optie “run a script” ontbreekt in uw Regelwizard, kunt u deze weergeven door de methode te volgen die in dit artikel wordt genoemd: herstel ontbrekende Run A Script-optie in Outlook-regel.

6. Dan verschijnt er nog een Regelwizard die vraagt naar uitzonderingen. U kunt de uitzonderingen selecteren indien nodig, anders klikt u op de knop Volgende zonder iets te selecteren.

7. Geef in de laatste Regelwizard een naam op voor de regel en klik vervolgens op de knop Afsluiten.

8. Vervolgens keert u terug naar het dialoogvenster Rules and Alerts, waar u de regel die u hebt gemaakt kunt zien staan. Klik op de knop OK om de hele configuratie te voltooien.

Vanaf nu, wanneer een e-mail van de gespecificeerde persoon wordt ontvangen, zullen de bijgevoegde bestanden automatisch worden afgedrukt.

Gerelateerde artikelen

---

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

• ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
• 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
• 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite