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 automatisk skal udskrives som en gammeldags faxmaskine.

Her er en hurtig måde at opnå det på, hvis du er komfortabel med en lille smule VB( makro) programmering.

Hvad 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 emailen 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).Det tredje 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 højre side af projektet1 og indsæt et modul, der hedder Module1:

Trin 5

Når modul1 er oprettet, skal du kopiere koden nedenfor tilvindue 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 'ændrer du 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 "" "+ Filnavn +" "" ", vhd næste punkt. Delete 'fjern denne linje, hvis du ikke ønsker at e-mailen skal slettes automatisk Næste sæt indboks = Intet slutpunkt

Bemærk at du måske skal ændre linjenkode, 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 alle vedhæftede filer.

Brug af Macro

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 udskrives 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, at dette er nyttigt!