Batch PDF-bijlagen afdrukken in Outlook

Dit artikel is geschreven door Sean Tsai, expert in data warehousing en goede vriend van de How-To Geek

. Heb je ooit alle bijlagen die je ontvangt in je Outlook e-mailbox willen afdrukken? Stel dat u bent geabonneerd op een gratis fax naar PDF e-mailservice en u wilt dat ze automatisch worden afgedrukt, net als een ouderwetse faxmachine.

Hier is een snelle manier om dat te bereiken als u vertrouwd bent met een klein beetje VB( macro) -programmering.

Wat we hier laten zien, is om een ​​regel in Outlook te maken en de binnenkomende fax-e-mails naar een aparte submap te verplaatsen. Met behulp van VB-code maken we een macro waarmee u een afdruktaak kunt uitvoeren voor elke e-mail in die submap, zodat u de e-mail niet hoeft te openen om de bijlagen één voor één af te drukken.

Stap 1

Maak een submap met de naam "Batch Prints" onder "Mailbox - YourName" in Outlook.

Stap 2

Maak een regel( vanuit menu Extra / Regels en waarschuwingen) in Outlook die er als volgt uitziet:

Plaats het e-mailadres van uw faxleverancier in het veld "[email protected]".Plaats in de onderwerpregel de permanente tekst die elke keer door de faxverkoper wordt verzonden( plaats de tekst niet die regelmatig wordt gewijzigd).Het derde veld "Batchafdrukken" is de submap die u zojuist in de eerste stap hebt gemaakt.

Stap 3

Maak een VB-macro. Breng eerst de VB-editor naar voren door naar Tools /Macro/ Visual Basic Editor te gaan. Je zou moeten zien dat de VB-editor er zo uitziet:

Stap 4

Klik vanuit het projectvenster aan de linkerkant op het item Project1 en voeg een module in met de naam Module1:

Stap 5

Nadat de module1 is gemaakt, kopieert u de onderstaande code naar devenster aan de rechterkant zoals weergegeven in de kogel # 3.

Public Sub PrintAttachments() Dim inbox Als MAPIFolder Dim Item als MailItem Dim Atmt als bijlage Dim FileName As String Dim i As Integer Set Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batchafdrukken") Voor elk item in Inbox. Items voor elke Atmt In Item. Attachments 'alle bijlagen worden eerst opgeslagen in de tijdelijke map C: \ Temp. Zorg dat u deze map maakt. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile Bestandsnaam 'wijzig de programmamap dienovereenkomstig als Acrobat Reader niet is geïnstalleerd op station C: Shell "" "C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe" "/ h /p "" "+ Bestandsnaam +" "" ", vb Verberg nu het volgende item. Verwijder 'verwijder deze regel als u niet wilt dat de e-mail automatisch wordt verwijderd Volgende Set Inbox = Nothing End Sub

Merk op dat u mogelijk de regel moet wijzigenvan code die Acrobat oproept om overeen te komen met het pad op uw systeem.

Stap 6

Nu is de installatie voltooid. Alle e-mails van uw faxverkoper worden verplaatst naar uw "Batch-afdrukken" wanneer ze binnenkomen. Let op: in het voorbeeld verwachten we dat alle bijlagen in PDF-indeling zijn, dus gebruiken we Acrobat acrord32.exe om elke bijlage af te drukken.

De macro gebruiken

Als u nu alle bijlagen wilt afdrukken, gaat u gewoon naar de macro en voert u de macro PrintAttachments uit en worden alle bijlagen sequentieel afgedrukt. E-mail wordt verwijderd en naar de prullenbak verplaatst zodra deze is afgedrukt.

Opmerking: de afdrukken worden naar uw standaardprinter gestuurd, dus u moet ervoor zorgen dat er een geldige printerdriver is ingesteld en geselecteerd.

Ik hoop dat dit nuttig is!