Vi forklarer teknologi / Kontrolpanel / Batch Print PDF-vedhæftede filer i Outlook

Batch Print PDF-vedhæftede filer i Outlook

Denne artikel er skrevet af Sean Tsai, en datalagerekspert og god ven af How-To Geek

Har du nogensinde ønsket at udskrive hver vedhæftet fildu 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 udskrives automatisk, ligesom en gammeldags faxmaskine.

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

Det, vi viser her, er at oprette en regel iOutlook og flyt de indgående fax-e-mails i en separat undermappe. Ved hjælp af VB-kode opretter vi en makro, som du kan køre et udskriftsjob mod hver e-mail i denne undermappe, så du ikke behøver at åbne e-mailen og udskrive vedhæftede filer én efter én.

Trin 1

Opret en undermappe med navnet "Batch-udskrifter" under "Mailbox - Dit navn" i Outlook.

Trin 2

Opret en regel (fra menuen Værktøjer / regler og advarsler) i Outlook, der ser sådan ud:

Placer e-mail-adressen fra din faxleverandør ifeltet “email@myfaxservice.com”. I emnelinjen skal du placere den vedvarende tekst, der sendes fra faxleverandøren hver gang (ikke læg i teksten, der periodisk ændres). De 3^rd felt "Batchprints" er den undermappe, du lige har oprettet i det første trin.

Trin 3

Opret en VB-makro. Før først VB-editor op ved at gå til Tools / Macro / Visual Basic Editor. Du skal se, at VB-redaktøren ser sådan ud:

Trin 4

Fra venstre side af projektvinduet skal du højreklikke på projektet 1 og indsætte et modul med navnet Modul1:

Trin 5

Når modul1 er oprettet, kopierer koden nedenfor til vinduet til højre som vist i kugle nr. 3.

Public Sub PrintAttachments()
Dim Inbox As MAPIFolder
Dim Item As MailItem
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("Batch Prints")
For Each Item In Inbox.Items
For Each Atmt In Item.Attachments
' all attachments are first saved in the temp folder C:Temp.  Be sure to create this folder.
FileName = "C:Temp" & Atmt.FileName
Atmt.SaveAsFile FileName
' please change the program folder accordingly if the Acrobat Reader is not installed on drive C:
Shell """C:Program FilesAdobeReader 8.0Readeracrord32.exe"" /h /p """ + FileName + """", vbHide
Next
Item.Delete  'remove this line if you don't want the email to be deleted automatically
Next
Set Inbox = Nothing
End Sub

Bemærk, at du muligvis skal ændre den kodelinje, der kalder Acrobat, så den matcher stien på dit system.

Trin 6

Nu er opsætningen færdig. Alle e-mails fra din faxudbyder flyttes til dine "Batch-udskrifter", når de kommer ind. Bemærk, i eksemplet forventer vi, 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,bare gå til makroen og kør makroen PrintAttachments, og alle vedhæftede filer udskrives i rækkefølge. E-mail vil blive slettet og flyttet til papirkurven, når den er udskrevet.

Bemærk: Udskrifterne dirigeres til din standardprinter, så du skal sikre dig, at en gyldig printerdriver er opsat og valgt.