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 ste primili u okviru e-pošte programa Outlook? 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 se osjećate ugodno s malo VB (makro) programiranja.
Ono što ovdje prikazujemo je stvaranje pravila u programu Outlook i premještanje dolaznih faks poruka e-pošte 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" u odjeljku "Mailbox - YourName" u programu Outlook.
Korak 2
Izradite pravilo (s izbornika Alati / pravila i upozorenja) u programu Outlook koji izgleda ovako:
Postavite adresu e-pošte od svog dobavljača 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). 3rd polje "Batch Prints" je podmapa koju ste upravo stvorili u prvom koraku.
Korak 3
Stvorite makronaredbu VB. Najprije dovedi VB urednika tako da odete na Tools / Macro / Visual Basic Editor. Trebali biste vidjeti VB urednik izgleda ovako:
Korak 4
S lijeve strane prozora Projekta desnom tipkom miša kliknite stavku Project1 i umetnite modul pod nazivom Module1:
Korak 5
Nakon što stvorite Module1, kopirajte kôd dolje u prozor na desnoj strani kako je prikazano u metku # 3.
Javni Sub PrintAttachments () Dimenzija pristigle pošte kao MAPIFolder Dim stavku kao MailItem Dim Atmt kao privitak Dim FileName kao String Dim i kao Integer Postavi Inbox = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) Za svaku stavku u mapi Inbox.Items za svaki atmt u item.Attachments 'svi privici prvi su spremljeni u temp mapu C: \ Temp. Obavezno stvorite ovu mapu. C: \ Program Files \ Adobe \ Reader 8.0 \ C: \ Program Files \ Adobe \ Reader 8.0 \ C: \ Program Files \ Adobe \ Reader 8.0 \ Program Files \ Adobe \ Reader 8.0 \ FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName ' Reader \ acrord32.exe "" / h / p "" "+ FileName +" "" ", vbHide Next Item.Delete 'ukloni ovu liniju ako ne želite da se e-poruka automatski izbriše Next Set Inbox = Nothing End Sub Imajte na umu da možda trebate promijeniti redak koda koji Acrobat naziva kako bi odgovarala 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.
Upotreba makronaredbe
Sada, kada želite ispisati sve privitke, jednostavno idite na makronaredbu i pokrenite makronaredbu PrintAttachments i sve privitke bit će ispisane 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!