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

Hoe automatisch bijlagen afdrukken wanneer e-mails in Outlook aankomen?

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


Automatisch bijlagen afdrukken wanneer bepaalde e-mails binnenkomen

Stel dat u bijlagen van inkomende e-mails van een bepaalde afzender automatisch wilt afdrukken. Je kunt het als volgt doen om het voor elkaar te krijgen.

Stap 1: Maak een script in Outlook

Allereerst moet u een VBA-script maken in Outlook.

1. Start uw Outlook, druk op de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik op Project1 > Microsoft Outlook-objecten > DezeOutlookSessie om de te openen ThisOutlookSession (code) venster en kopieer vervolgens de volgende code naar dit codevenster.

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


Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
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

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

VBA-code 2: Druk automatisch het opgegeven type bijlagen af ​​wanneer e-mails binnenkomen

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
    Select Case xFileType
    Case "pdf" ‘change “pdf” to the file extension you want to print
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
     End Select
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
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

Opmerking: In de rij Case “pdf”, verander alsjeblieft “pdf” naar de bestandsextensie die u wilt afdrukken.

3. Ga je gang en klik op Toolbox > Referenties. Bij het opduiken Referenties – Project1 dialoogvenster, controleer de Microsoft Scripting Runtime vak en klik vervolgens op het OK knop.

4. Sla de code op en druk op anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.

Opmerking: Zorg ervoor dat de Schakel alle macro's in optie is ingeschakeld in uw Outlook. U kunt deze optie aanvinken 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 Reglement > Beheer regels en waarschuwingen.

2. In de Regels en waarschuwingen dialoogvenster, klik op de Nieuwe regel knop om een ​​regel te maken.

Tips: Als u meerdere e-mailaccounts aan uw Outlook heeft toegevoegd, geef dan een account op in de Wijzigingen toepassen op deze map vervolgkeuzelijst waar u de regel wilt toepassen. Anders wordt het toegepast op de inbox van het momenteel geselecteerde e-mailaccount.

3. In de eerste Regels Wizard dialoogvenster, selecteer Regel toepassen op berichten die ik ontvang functie in het Stap 1 in en klik vervolgens op Next.

4. In de tweede Regels Wizard dialoogvenster, moet u:

4.1) Specificeer een of meer voorwaarden in de Stap 1 doos volgens uw behoeften;
In dit geval wil ik alleen de bijlagen in inkomende e-mails van een opgegeven afzender afdrukken. Hier controleer ik de van mensen of openbare groepen doos.
4.2) Klik op de onderstreepte waarde in de Stap 2 vak om de voorwaarde te bewerken;
4.3) Klik op Next. Zie screenshot:

5. In de derde Regels Wizard dialoogvenster, moet u als volgt configureren.

5.1) In de Stap 1: Selecteer actie(s) sectie, controleer de voer een script uit doos;
5.2) In de Stap 2 sectie, klik op de onderstreepte tekst "een script";
5.3) In de opening Selecteer Script dialoogvenster, klik op de naam van de VBA-code die u hierboven hebt toegevoegd en klik vervolgens op OK;
5.4) Klik op de volgende knop. Zie screenshot:

Tips: Als de "voer een script uit” optie ontbreekt in uw Regels Wizard, kunt u het weergeven door de methode te volgen die in dit artikel wordt genoemd: herstel ontbrekende Run A Script-optie in Outlook-regel.

6. Dan nog een Regels Wizard verschijnt en vraagt ​​om uitzonderingen. U kunt de uitzonderingen indien nodig selecteren, anders klikt u op de volgende knop zonder selecties。

7. In de laatste Regels Wizard, moet u een naam voor de regel opgeven en vervolgens op de Klaar! knop.

8. Daarna keert het terug naar de Regels en waarschuwingen dialoogvenster, kunt u de regel die u hebt gemaakt in de lijst zien, klik op de OK knop om de hele instellingen te voltooien.

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


Gerelateerde artikelen

Alleen bijlage(n) afdrukken vanuit één e-mail of geselecteerde e-mails in Outlook
In Outlook kunt u de e-mails afdrukken, maar hebt u de bijlagen alleen vanuit één e-mail of geselecteerde e-mails in Outlook afgedrukt? Dit artikel introduceert de trucs voor het oplossen van deze taak.

Alleen de berichtkop van een e-mail afdrukken in Outlook
Bij het afdrukken van een e-mail in Outlook, worden zowel de berichtkop als de berichttekst in de e-mail afgedrukt. In sommige speciale gevallen hoeft u echter alleen de berichtkop af te drukken met het onderwerp, de afzender, de ontvangers, enz. Dit artikel introduceert twee oplossingen om dit te doen.

Een kalender afdrukken in een gespecificeerd/aangepast datumbereik in Outlook
Normaal gesproken wordt bij het afdrukken van een kalender in de maandweergave in Outlook automatisch de maand geselecteerd die de momenteel geselecteerde datum bevat. Maar het kan zijn dat u de kalender binnen een aangepast datumbereik moet afdrukken, zoals 3 maanden, een half jaar, enz. Dit artikel introduceert de oplossing voor u.

Een contact met afbeelding afdrukken in Outlook
Normaal gesproken wordt de foto van een contactpersoon niet afgedrukt bij het afdrukken van de contactpersoon in Outlook. Maar soms is het indrukwekkender om een ​​contact met zijn foto af te drukken. Dit artikel introduceert enkele tijdelijke oplossingen om dit voor elkaar te krijgen.

Een selectie van een e-mail afdrukken in Outlook
Als u een e-mailbericht heeft ontvangen en ontdekt dat er een selectie is van de e-mailinhoud die moet worden afgedrukt in plaats van het hele bericht af te drukken, wat zou u dan doen? Eigenlijk kan Outlook u hierbij helpen met behulp van internetbrowsers, zoals Firefox en Internet Explorer. Hier zal ik bijvoorbeeld de internetbrowsers nemen. Bekijk de volgende tutorials.

Meer artikelen over "afdrukken in Outlook"...


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 (1)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
hallo

j ai suivi a la lettre votre methode pour imprimez automatiquement lesz pieces jointess

activez les macros mais il n y a pas de macro

donc ca ne fonctionne pas ou il me manque un element

merci de me dire svp
jean louis sueur
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties