Batch Skriv ut PDF-bilagor i Outlook

Den här artikeln skrevs av Sean Tsai, en datalagringsexpert och en god vän till How-To Geek

. Har du någonsin velat skriva ut alla bilagor som du får i din Outlook-e-postlåda? Låt oss säga att du prenumererar på ett gratis fax till PDF-e-posttjänst och du vill att de ska skrivas ut automatiskt som en gammaldags faxmaskin.

Här är ett snabbt sätt att uppnå det om du är bekväm med lite VB( makro) programmering.

Det som vi visar här är att skapa en regel i Outlook och flytta inkommande faxmeddelanden till en separat undermapp. Med VB-kod skapar vi ett makro för att du ska kunna utföra ett utskriftsjobb mot varje e-post i den undermappen, så att du inte behöver öppna e-postmeddelandet och skriva ut bilagorna en efter en.

Steg 1

Skapa en undermapp med namnet "Batch Prints" under "Mailbox - YourName" i Outlook.

Steg 2

Skapa en regel( från menyn Verktyg / Regler och varningar) i Outlook som ser ut så här:

Placera e-postadressen från din faxleverantör i fältet "[email protected]".I ämnesraden lägger du den vidhållna texten som skickas från faxleverantören varje gång( lägg inte in texten som kommer att ändras regelbundet).Det tredje fältet "Batch Prints" är den undermapp som du just skapade i det första steget.

Steg 3

Skapa ett VB-makro. Ta först upp VB-redigeraren genom att gå till Verktyg /Macro/ Visual Basic Editor. Du bör se VB-redigeraren så här:

Steg 4

Högerklicka på Project1-objektet i vänsterfönstret Project1 och sätt in en modul som heter Module1:

Steg 5

När modul1 är skapad kopierar du koden nedan tillfönster på höger sida som visas i kula # 3.

Public Sub PrintAttachments() Dim Inbox Som MAPIFolder Dim-objekt som MailItem Dim Atmt som bilaga Dim filnamn som sträng Dim i som helhetsuppsättning Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batch Prints") För varje post i Inbox. Items för varje Atmt i Item. Attachments" alla bilagor sparas först i temp mappen C: \ Temp. Var noga med att skapa den här mappen. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName "Ändra programmappen i enlighet därmed om Acrobat Reader inte är installerat på enhet C: Shell" "" C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h /p "" "+ Filnamn +" "" ", vbHidera nästa artikel. Ta bort den här raden om du inte vill att e-postmeddelandet ska raderas automatiskt Nästa Set Inbox = Inget Slut Del

Observera att du kanske behöver ändra radenav kod som kallar Acrobat för att matcha sökvägen på ditt system.

Steg 6

Nu är installationen klar. Alla e-postmeddelanden från din faxleverantör flyttas till dina "Batch Prints" när de kommer in. Observera att vi i exemplet förväntar oss att alla bilagor är i PDF-format så att vi använder Acrobat acrord32.exe för att skriva ut varje bilaga.

Använda Macro

Nu, när du vill skriva ut alla bilagor, går du enkelt till makroet och kör de makro PrintAttachments och alla bilagor skrivs ut i följd. E-post kommer att raderas och flyttas till papperskorgen när det har skrivits ut.

Obs! Utskrifterna dirigeras till din standardskrivare, så du måste se till att en giltig skrivardrivrutin är inställd och vald.

Hoppas att detta är användbart!