Hoe drukt u automatisch bijlagen af zodra e-mails binnenkomen in Outlook?

AuteurSiluvia Wijzigingsdatum2024-09-18

Deze handleiding laat u zien hoe u een VBA-script en een Outlook-regel combineert om bijlagen van bepaalde e-mails automatisch af te drukken zodra ze binnenkomen in Outlook.

Automatisch bijlagen afdrukken wanneer bepaalde e-mails binnenkomen

Stap 1: Maak een script in Outlook

Stap 2: Maak een regel om het script te gebruiken

Automatisch bijlagen afdrukken wanneer bepaalde e-mails binnenkomen

Stel dat u automatisch bijlagen van inkomende e-mails van een bepaalde afzender wilt afdrukken. Volg dan de onderstaande stappen om dit voor elkaar te krijgen.

Stap 1: Maak een script in Outlook

Maak eerst een VBA-script in Outlook.

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

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

stappen voor automatisch afdrukken van bijlagen wanneer e-mails binnenkomen in Outlook

VBA-code 1: Automatisch bijlagen (alle soorten bijlagen) 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 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 bepaald type bijlage wilt afdrukken, zoals PDF-bestanden, gebruikt u de volgende VBA-code.

VBA-code 2: Automatisch het opgegeven type bijlagen 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:

1. Voordat u deze VBA-code gebruikt om alleen de PDF-bestanden in inkomende e-mails af te drukken, moet u eerst Adobe Acrobat Readerdownloaden en installeren en deze instellen als standaard pdf-lezer op uw computer.

2. Wijzig in de regel Case „pdf"het woord „pdf"in de bestandsextensie die u wilt afdrukken.

3. Klik op Extra > Verwijzingen. Schakel in het dialoogvenster Verwijzingen – Project1 het selectievakje Microsoft Scripting Runtime in en klik op de knop OK.

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

Opmerking: Zorg ervoor dat de optie Alle macro’s inschakelen is ingeschakeld in uw Outlook. U kunt deze instelling controleren via de onderstaande stappen.

Stap 2: Maak een regel om het script te gebruiken

Nadat u het VBA-script aan Outlook hebt toegevoegd, moet u een regel instellen om het script automatisch te activeren op basis van bepaalde voorwaarden.

1. Ga naar het tabblad Start en klik op Regels > Regels en waarschuwingen beheren.

2. Klik in het dialoogvenster Regels en waarschuwingen op de knop Nieuwe regel om een regel te maken.

Tips: Als u meerdere e-mailaccounts hebt toegevoegd aan uw Outlook, geeft u in de keuzelijst Wijzigingen toepassen op deze map het account op waarop u de regel wilt toepassen. Anders wordt de regel toegepast op het postvak IN van het momenteel actieve account.

3. Selecteer in het eerste Regelwizard-dialoogvenster Regel toepassen op berichten die ik ontvang in het vak Stap 1 en klik vervolgens op Volgende.

4. In het tweede Regelwizard-dialoogvenster moet u het volgende doen:

4,1) Geef één of meer voorwaarden op in het vak Stap 1volgens uw behoeften;

In dit geval wil ik alleen de bijlagen van inkomende e-mails van een opgegeven afzender afdrukken. Daarom schakel ik het vakje van personen of openbare groepin.

4,2) Klik op de onderstreepte waarde in het vak Stap 2om de voorwaarde te bewerken;

4,3) Klik op Volgende.Zie schermafbeelding:

5. In het derde Regelwizard-dialoogvenster moet u de volgende instellingen configureren.

5,1) In de Stap 1: sectie Actie(s) selecteren, vink het vakje script uitvoerenaan;

5,2) In de Stap 2sectie klikt u op de onderstreepte tekst „een script”;

5,3) In het geopende Script selecterendialoogvenster klikt u op de naam van de VBA-code die u hierboven hebt toegevoegd en vervolgens op OK;

5,4) Klik op de Volgendeknop. Zie schermopname:

Tips: Als de optie „script uitvoeren” ontbreekt in uw Regelwizard, kunt u deze weergeven door de methode in dit artikel te volgen: ontbrekende optie Script uitvoeren herstellen in Outlook-regel.

6. Vervolgens verschijnt er nog een Regelwizard waarin u uitzonderingen kunt opgeven. Selecteer indien nodig uitzonderingen; klik anders op de knop Volgende zonder selecties te maken.

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

8. Vervolgens keert u terug naar het dialoogvenster Regels en waarschuwingen; u ziet de gemaakte regel in de lijst. Klik op de knop OK om de instellingen af te ronden.

Vanaf nu worden bijlagen automatisch afgedrukt zodra er een e-mail van de opgegeven persoon wordt ontvangen.

Gerelateerde artikelen

Alleen bijlage(n) afdrukken van één e-mail of geselecteerde e-mails in Outlook
In Outlook kunt u e-mails afdrukken, maar heeft u ooit alleen de bijlagen van één e-mail of meerdere geselecteerde e-mails afgedrukt? Dit artikel onthult handige trucs om die taak moeiteloos uit te voeren.

Alleen het berichtkopje van een e-mail afdrukken in Outlook
Wanneer u een e-mail in Outlook afdrukt, worden standaard zowel het berichtkopje als de berichttekst afgedrukt. Maar in bepaalde situaties wilt u alleen het berichtkopje afdrukken – inclusief onderwerp, afzender, ontvangers en dergelijke. Dit artikel biedt twee eenvoudige oplossingen om dat voor elkaar te krijgen.

Een agenda afdrukken binnen een opgegeven of aangepaste datumreeks in Outlook
Standaard selecteert Outlook automatisch de maand waarin de huidige datum valt wanneer u een agenda afdrukt in de maandweergave. Maar wat als u de agenda voor een aangepaste datumreeks wilt afdrukken—bijvoorbeeld drie maanden, een half jaar of een ander tijdsbestek? Dit artikel biedt de perfecte oplossing.

Een contactpersoon met foto afdrukken in Outlook
Standaard wordt de foto van een contactpersoon niet afgedrukt wanneer je het contact uit Outlook afdrukt. Toch is het soms veel indrukwekkender om een contact inclusief zijn of haar foto op papier te zetten. In dit artikel lees je hoe je dat voor elkaar krijgt.

Een gedeelte van een e-mail afdrukken in Outlook
Hebt u een e-mailbericht ontvangen waarvan u slechts een deel wilt afdrukken in plaats van het volledige bericht? Geen probleem! Outlook helpt u hierbij met behulp van internetbrowsers zoals Firefox en Internet Explorer. In deze instructies gebruiken we internetbrowsers als voorbeeld.

Meer artikelen over „afdrukken in Outlook”...

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…

📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…

📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…

🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...

👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...

👩🏼‍🤝‍👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Ontgrendel Kutools voor Outlook direct met één klik! Wacht niet langer—download nu en verhoog uw efficiëntie!

Functielijst van Kutools voor Outlook Nu downloaden Naar aankoop gaan

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

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

Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!

✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint

Over het pakket ⬇ Download het pakket 💳 Koop het pakket