Batch Print PDF Vedlegg i Outlook

Denne artikkelen ble skrevet av Sean Tsai, en data warehousing ekspert og god venn av How-To Geek

Har du noen gang ønsket å skrive ut hvert vedlegg du mottar i Outlook-e-postboksen din? La oss si at du abonnerer på en gratis faks til PDF-e-posttjeneste, og du vil at de skal skrives ut automatisk, akkurat som en gammeldags faksmaskin.

Her er en rask måte å oppnå det hvis du er komfortabel med en liten VB( makro) programmering.

Det vi viser her er å opprette en regel i Outlook og flytte innkommende faks e-post til en egen undermappe. Ved hjelp av VB-kode lager vi en makro for at du kan kjøre en utskriftsjobb mot hver e-post i den undermappen, slik at du ikke trenger å åpne e-posten og skrive ut vedleggene en etter én.

Trinn 1

Lag en undermappe som heter "Batch Prints" under "Mailbox - YourName" i Outlook.

Trinn 2

Opprett en regel( fra menyen Verktøy / Regler og varsler) i Outlook som ser slik ut:

Plasser e-postadressen fra din faksleverandør i feltet "[email protected]".I emnelinjen, legg inn den vedvarende teksten som sendes fra faksleverandøren hver gang( ikke sett inn teksten som vil bli endret med jevne mellomrom).Det tredje feltet "Batch Prints" er undermappen du nettopp opprettet i første trinn.

Trinn 3

Opprett en VB-makro. Først hent opp VB-editoren ved å gå til Verktøy /Macro/ Visual Basic Editor. Du bør se VB-editoren se slik ut:

Trinn 4

Fra vinduet på venstre side Prosjektvindu, høyreklikk på Project1-elementet og sett inn en modul som heter Module1:

Trinn 5

Når modul1 er opprettet, kopier koden nedenfor tilvindu på høyre side som vist i punkt nr. 3.

Offentlig Sub PrintAttachments() Dim Inbox Som MAPIFolder Dim Item Som MailItem Dim Atmt Som Vedlegg Dim FileName Som String Dim I Som Integer Set Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batch Prints") For hver gjenstand i Inbox. Items for hver Atmt i Item. Attachments 'alle vedlegg blir først lagret i tempmappen C: \ Temp. Pass på å opprette denne mappen. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName 'endre programmappen tilsvarende hvis Acrobat Reader ikke er installert på stasjon C: Shell C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h /p "" "+ FileName +" "" ", vhhhhhhhh Next Item. Delete 'fjern denne linjen hvis du ikke vil at e-posten skal slettes automatisk Neste sett innboks = Ingenting sluttsub

Merk at du må endre linjenav kode som kaller Acrobat for å matche banen på systemet ditt.

Trinn 6

Nå er oppsettet fullført. Alle e-postene fra faksleverandøren din blir flyttet til "Batch Prints" når de kommer inn. Vær oppmerksom på at i eksemplet forventer vi at alle vedlegg er i PDF-format, slik at vi bruker Acrobat acrord32.exe for å skrive ut hvert vedlegg.

Bruke Macro

Nå, når du vil skrive ut alle vedlegg, går du bare til makroen og kjører makroen PrintAttachments og alle vedleggene skrives ut i rekkefølge. E-post vil bli slettet og flyttet til søppelboks når den er skrevet ut.

Merk: Utskriftene blir sendt til standardskriveren din, så du må sørge for at en gyldig skriverdriver er konfigurert og valgt.

Håper dette er nyttig!