Batch Natisni PDF priloge v programu Outlook

Ta članek je napisal Sean Tsai, strokovnjak za podatkovno skladiščenje in dober prijatelj How-To Geek

Ste kdaj želeli natisniti vsako prilogo, ki jo prejmete v e-poštnem računu Outlook? Recimo, da ste se naročili na storitev brezplačnega faksa za e-pošto v elektronski obliki in želite, da jih samodejno natisnete, tako kot starodavni faks.

Tukaj je hiter način za dosego tega, če ste zadovoljni z malo VB( makro) programiranja.

Tukaj prikazujemo, kako ustvariti pravilo v programu Outlook in premakniti dohodna e-poštna sporočila faksa v ločeno podmapo. Z uporabo VB kode ustvarimo makro, da zaženete tiskalno opravilo proti vsakemu e-poštnemu sporočilu v tej podmapi, zato vam ni treba odpreti e-pošte in natisniti priloge enega po enega.

Korak 1

Ustvarite podmapo z imenom "Batch Prints" pod "Mailbox - YourName" v programu Outlook.

Korak 2

Uveljavite pravilo( iz menija Orodja / pravila in opozorila) v programu Outlook, ki je videti takole:

Postavite e-poštni naslov vašega ponudnika faksa v polje "[email protected]".V vrstici predmeta postavite stalno besedilo, ki ga vsakič pošljejo ponudnik faksa( ne vstavljajte besedila, ki bo občasno spremenjeno).Tretje polje "Batch Prints" je podomnica, ki ste jo pravkar ustvarili v prvem koraku.

Korak 3

Ustvarite makro VB.Najprej obrnite urejevalnik VB tako, da obiščete orodje /Macro/ Visual Basic Editor. Videti bi morali urejevalnik VB:

Korak 4

Na levi strani okna Projekt z desno miškino tipko kliknite element Project1 in vstavite modul z imenom Module1:

Korak 5

Ko je Module1 ustvarjen, kopirajte spodnjo kodo vokno na desni strani, kot je prikazano na bullet # 3.

Public Sub PrintAttachments() Dim Inbox Kot MAPIFolder Dim Item Kot MailItem Dim Atmt Kot Attachment Dim FileName As String Dim i As Integer Set Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batch Prints") Za vsako postavko v Inbox. Items za vsak ATMT v elementu. Vse priloge priponk se najprej shranijo v mapo Temp C: \ Temp. Bodite prepričani, da ustvarite to mapo. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName 'ustrezno spremeni programsko mapo, če Acrobat Reader ni nameščen na pogonu C: Shell C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "/ h /p "" "+ FileName +" "" ", vbHide Next Item. Delete" odstranite to vrstico, če ne želite samodejno izbrisati e-pošte Naslednja nastavitev Inbox = Nič konca pod

Upoštevajte, da boste morda morali spremeniti vrsticokode, ki pokriva Acrobat in se ujema s potjo v vašem sistemu.

Korak 6

Zdaj je nastavitev končana. Vsa e-poštna sporočila vašega prodajalca faksa bodo v vaši »Batch Prints« prestavljeni, ko pridejo. Upoštevajte, da v priči pričakujemo, da bodo vse priloge v obliki PDF, zato za tiskanje vsakega prilogo uporabimo Acrobat acrord32.exe.

Uporaba makro

Zdaj, ko želite natisniti vse priloge, preprosto pojdite v makro in zaženite makro PrintAttachments in vse priloge bodo natisnjene zaporedno. E-pošta bo izbrisana in se bo premaknila v smetnjak po tiskanju.

Opomba: izpisi so usmerjeni na privzeti tiskalnik, zato morate poskrbeti za nastavitev in izbiro veljavnega gonilnika tiskalnika.

Upam, da je to koristno!