Batch Print PDF Prilozi u programu Outlook
Ovaj je članak napisao Sean Tsai, stručnjak za skladištenje podataka i dobar prijatelj How-To Geeka
Jeste li ikada željeli ispisati svaki prilog koji primite u vašu Outlookovu kutiju e-pošte? Recimo da ste se pretplatili na besplatnu uslugu e-pošte za faksiranje u PDF-u i želite da se automatski ispisuju baš kao i starinski faks uređaj.
Ovdje je brz način da se to postigne ako ste zadovoljni s malo VB (makro) programiranja.
Ono što ovdje prikazujemo je stvaranje pravila u Outlooku i premještanje dolazne e-pošte faksa u zasebnu podmapu. Koristeći VB kod kreiramo makronaredbu za pokretanje posla za ispis na svaku e-poštu u toj podmapi tako da ne morate otvarati e-poštu i ispisivati privitke jedan po jedan.
Korak 1
Stvorite podmapu pod nazivom "Batch Prints" u "Mailbox - YourName" u programu Outlook.
Korak 2
Izradite pravilo (iz izbornika Alati / Pravila i obavijesti) u programu Outlook koji izgleda ovako:
Postavite adresu e-pošte od dobavljača faksa u polje "[email protected]". U retku predmeta upišite stalno upisan tekst koji šalje dobavljač faksa (ne stavljajte tekst koji će se periodično mijenjati). 3rd polje “Batch Prints” je podmapa koju ste upravo stvorili u prvom koraku.
Korak 3
Stvorite VB makro. Prvo pokrenite VB editor tako da odete na Tools / Macro / Visual Basic Editor. Trebali biste vidjeti uređivač VB-a ovako:
4. korak
S lijeve strane prozora projekta, kliknite desnom tipkom na Project1 stavku i umetnite modul pod nazivom Modul1:
Korak 5
Nakon što je Modul1 kreiran, kopirajte kod ispod u prozor na desnoj strani kao što je prikazano u metak # 3.
Javni podtisak PrintAttachments () Dim Inbox kao MAPIFolder Dim Stavka kao MailItem Dim Atmt kao privitak Dim FileName As String Dim i As Integer Postavi Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox). ) Za svaku stavku u Inbox.Items za svaki Atmt u Item.Attachments 'sve privitke se prvi put spremaju u privremenu mapu C: Temp. Svakako stvorite ovu mapu. FileName = "C: Temp & Atmt.FileName Atmt.SaveAsFile FileName" promijenite mapu programa u skladu s tim ako Acrobat Reader nije instaliran na pogonu C: Shell "C": Programske datoteke Adobe Reader 8.0 Reader acrord32.exe / h / p "" "+ Naziv datoteke +" "," vbHide Next Item.Delete "uklonite ovu liniju ako ne želite da se e-pošta automatski briše. Imajte na umu da ćete možda morati promijeniti redak koda koji poziva Acrobat kako bi odgovarao stazi na vašem sustavu.
Korak 6
Sada je postavljanje dovršeno. Sve poruke e-pošte od vašeg dobavljača faksa bit će premještene u vaše "ispise serija" kada dođu. Napominjemo, u primjeru očekujemo da su svi privitci u PDF formatu pa koristimo Acrobat acrord32.exe za ispis svakog privitka.
Korištenje makronaredbe
Sada, kada želite ispisati sve privitke, jednostavno idite na makro i pokrenite makronaredbu PrintAttachments i svi privici će biti ispisani uzastopno. E-pošta će biti izbrisana i premještena u koš za smeće nakon što se ispiše.
Napomena: ispisi se preusmjeravaju na zadani pisač tako da morate provjeriti je li postavljen i odabran valjani upravljački program pisača.
Nadam se da je ovo korisno!
