Batch Udskriv PDF Vedhæftede filer i Outlook
Denne artikel er skrevet af Sean Tsai, en data warehousing ekspert og god ven til How-To Geek
Har du nogensinde ønsket at udskrive alle vedhæftede filer, du modtager i din Outlook-e-mail-boks? Lad os sige, at du abonnerer på en gratis fax til PDF-e-mail-tjeneste, og du vil have, at de skal udskrives automatisk ligesom en gammeldags faxmaskine.
Her er en hurtig måde at opnå det på, hvis du er komfortabel med en lille smule VB (makro) programmering.
Det, vi viser her, er at oprette en regel i Outlook og flytte de indgående faxemails til en separat undermappe. Ved hjælp af VB kode skaber vi en makro, hvor du kan køre et udskriftsjob mod hver e-mail i den undermappe, så du ikke behøver at åbne e-mailen og udskrive vedhæftede filer en efter en.
Trin 1
Opret en undermappe med navnet "Batch Prints" under "Mailbox - YourName" i Outlook.
Trin 2
Opret en regel (fra menuen Værktøjer / Regler og advarsler) i Outlook, der ser sådan ud:
Placer emailadressen fra din faxleverandør i feltet "[email protected]". På emnelinjen skal du placere den vedvarende tekst, der sendes fra faxleverandøren hver gang (ikke indsæt teksten, der ændres med jævne mellemrum). Den 3rd felt "Batch Prints" er den undermappe, du netop har oprettet i første trin.
Trin 3
Opret en VB-makro. Først hent op VB editoren ved at gå til Tools / Macro / Visual Basic Editor. Du bør se, at VB-editoren ser sådan ud:
Trin 4
Højreklik på Project1-objektet i venstre vindues projektvindue og indsæt et modul, der hedder Module1:
Trin 5
Når modul1 er oprettet, skal du kopiere koden nedenfor til vinduet på højre side som vist i punkt nr. 3.
Offentlige Sub PrintAttachments () Dim Inbox Som MAPIFolder Dim Item Som MailItem Dim Atmt Som Vedhæftet Dim FileName Som String Dim I Som Integer Set Indbakke = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) For hvert element i Inbox.Items for hver Atmt i Item.Attachments 'alle vedhæftede filer gemmes først i temp mappen C: \ Temp. Sørg for at oprette denne mappe. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName 'skal du ændre programmappen i overensstemmelse hermed, hvis Acrobat Reader ikke er installeret på drev C: Shell "" "C: \ Programmer \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h / p "" "+ FileName +" "" ", vbHid Next Item.Delete 'fjern denne linje, hvis du ikke vil have e-mailen slettet automatisk. Næste sæt indbakke = Intet ende-under Bemærk, at du måske skal ændre linjen kode, der kalder Acrobat, for at matche banen på dit system.
Trin 6
Nu er opsætningen færdig. Alle e-mails fra din faxleverandør flyttes til dine "Batch Prints", når de kommer ind. Bemærk venligst i eksemplet, at vi forventer at alle vedhæftede filer er i PDF-format, så vi bruger Acrobat acrord32.exe til at udskrive hver vedhæftet fil.
Brug af makroen
Nu, når du vil udskrive alle vedhæftede filer, skal du bare gå til makroen og køre makro PrintAttachments, og alle vedhæftede filer vil blive udskrevet i rækkefølge. E-mail vil blive slettet og flyttet til skraldespanden, når den er udskrevet.
Bemærk: Udskrifterne bliver sendt til din standardprinter, så du skal sørge for, at en gyldig printerdriver er konfigureret og valgt.
Håber dette er nyttigt!
