Batch Print PDF Attachments u programu Outlook

Ovaj članak je napisao Sean Tsai, stručnjak za skladištenje podataka i dobar prijatelj Kako-To Geek

Jeste li ikada željeli ispisati svaki privitak koji primate u okviru Outlook e-pošte? Pretpostavimo da ste se pretplatili na besplatni faks u uslugu e-pošte za PDF i želite da se ispisuju automatski, baš kao i starinski faks uređaj.

Evo brzog načina da to postignete ako ste zadovoljni s malim VB( makro) programiranjem.

Ovdje ćemo prikazati pravilo u programu Outlook i premjestiti poruke e-pošte s dolaznim faksom u zasebnu podmapu. Korištenje VB koda kreirali smo makronaredbu za pokretanje zadatka ispisa prema svakoj e-pošti u toj podmapi tako da ne morate otvoriti e-poštu i ispisati privitke pojedinačno.

Korak 1

Izradite podmapu pod nazivom "Batch Prints" pod "Mailbox - YourName" u programu Outlook.

Korak 2

Izradite pravilo( iz izbornika Alati / pravila i upozorenja) u programu Outlook koji izgleda ovako:

Stavite adresu e-pošte dobavljaču faksa u polje "[email protected]".U retku predmeta stavite trajni tekst koji se svaki put šalje od dobavljača faksa( ne stavljajte tekst koji će se povremeno mijenjati).Treće polje "Batch Prints" je podmapa koju ste upravo stvorili u prvom koraku.

Korak 3

Stvorite VB makronaredbu. Najprije dovedite VB urednika tako da odete na Tools /Macro/ Visual Basic Editor. Trebali biste vidjeti VB urednik ovako:

Korak 4

S lijeve strane prozora Projekta desnom tipkom miša kliknite stavku Project1 i umetnite modul pod nazivom Module1:

Korak 5

Kad stvorite Modul1, kopirajte kod u nastavku uprozor na desnoj strani kako je prikazano u metku # 3.

Javni Sub PrintAttachments() Dimenzije pristigle pošte kao MAPIFolder Dim stavku kao MailItem Dim Atmt kao privitak Dim FileName kao String Dim i kao Integer Postavite Inbox = GetNamespace( "MAPI") GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batch Prints") Za svaku stavku u Inbox. Items za svaki atmt u item. Attachments 'svi privici se prvi put spremaju u temp mapu C: \ Temp. Obavezno stvorite ovu mapu. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName 'molimo vas da promijenite mapu programa u skladu s tim ako Acrobat Reader nije instaliran na pogonu C: Shell "" "C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe" "/ h /p "" + FileName + "" "", vbHide Next Item. Delete 'ukloni ovu liniju ako ne želite da se e-pošta automatski briše. Sljedeća Set Inbox = Ništa End Sub

Imajte na umu da možda trebate promijeniti linijukoda koji Acrobat poziva da odgovara putanju na vašem sustavu.

Korak 6

Sada postavljanje je dovršeno. Sve poruke e-pošte vašeg dobavljača faksa bit će premještene na vaše "Batch Prints" kada dođu. Imajte na umu da u primjeru očekujemo da su svi privici u PDF formatu, tako da Acrobat acrord32.exe koristimo za ispis svakog privitka.

Korištenje makronaredbe

Sada, kada želite ispisati sve privitke, jednostavno idite na makronaredbu i pokrenite makronaredbu PrintAttachments i sve privitke će se ispisivati ​​u nizu. E-pošta će se izbrisati i premjestiti u smeće nakon ispisa.

Napomena: ispisi su preusmjereni na zadani pisač tako da morate biti sigurni da je valjan upravljački program pisača postavljen i odabran.

Nadam se da je ovo korisno!