Batch Skriv ut 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å et gratis faks til PDF-e-posttjeneste, og du vil at de skal skrives ut automatisk 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 en.
Trinn 1
Opprett en undermappe med navnet "Batch Prints" under "Mailbox - YourName" i Outlook.
Steg 2
Opprett en regel (fra menyen Verktøy / Regler og varsler) i Outlook som ser slik ut:
Plasser e-postadressen fra faksleverandøren din i feltet "[email protected]". I emnelinjen, plasser den vedvarende teksten som sendes fra faksleverandøren hver gang (ikke legg inn teksten som vil bli endret med jevne mellomrom). Den 3rd feltet "Batch Prints" er den undermappen du nettopp opprettet i første trinn.
Trinn 3
Opprett en VB-makro. Først tar du opp VB-editoren ved å gå til Verktøy / Makro / Visual Basic Editor. Du bør se VB-editoren ser slik ut:
Trinn 4
Fra vinduet til venstre på prosjektet, høyreklikk på Project1-elementet og sett inn en modul som heter Module1:
Trinn 5
Når modul1 er opprettet, kopier koden nedenfor til vinduet på høyre side som vist i punktet # 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. Husk å lage denne mappen. FileName = "C: \ Temp \" og Atmt.FileName Atmt.SaveAsFile FileName 'Vennligst 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 +" "" ", vbHid Neste Art.Delete 'fjern denne linjen hvis du ikke vil at e-posten skal slettes automatisk Next Set Inbox = Ingenting End Sub Vær oppmerksom på at du må endre linjen med kode som kaller Acrobat for å matche banen på systemet ditt.
Trinn 6
Nå er oppsettet fullført. Alle e-postene fra faksleverandøren 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 makroen
Nå, når du vil skrive ut alle vedlegg, bare gå til makroen og kjør makroen PrintAttachments, og alle vedlegg vil bli skrevet 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!
