Batch Skriv ut PDF-bilagor i Outlook
Denna artikel skrevs av Sean Tsai, en data warehousing expert och 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.
Vad vi visar här är att skapa en regel i Outlook och flytta inkommande faxemail 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 placerar du den ihållande texten som skickas från faxleverantören varje gång (lägg inte in texten som kommer att ändras regelbundet). 3rd 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 / Makro / Visual Basic Editor. Du bör se VB-redigeraren ser ut så här:
Steg 4
Högerklicka på Project1-objektet från projektfönstret till vänster och sätt i en modul med namnet Module1:
Steg 5
När modul1 är skapad kopierar du koden nedan till fönstret på höger sida som visas i kolumn 3.
Public Sub PrintAttachments () Dim Inbox Som MAPIFolder Dim Mått Som MailItem Dim Atmt Som Attachment Dim FileName Som String Dim I Som Integer Set Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) För varje artikel 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 installerad på enhet C: Shell" "" C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h / p "" "+ FileName +" "" ", vbHide Next Item.Delete" 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 koden 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 makroen
Nu, när du vill skriva ut alla bilagor, gå helt enkelt till makrot 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 detta är användbart!
