Dávkové tlačiť prílohy PDF v programe Outlook

Tento článok bol napísaný Sean Tsai, expert na dátové sklady a dobrý priateľ How-To Geek

Už ste niekedy chceli vytlačiť každú prílohu, ktorú dostávate v e-mailovom poli Outlook? Povedzme, že ste sa prihlásili k bezplatnému faxu do služby PDF e-mailu a chcete, aby boli vytlačené automaticky rovnako ako starý faxový prístroj.

Tu je rýchly spôsob, ako to dosiahnuť, ak ste spokojní s trochou programovania VB( makro).

Čo tu zobrazujeme, je vytvoriť pravidlo v programe Outlook a presunúť prichádzajúce faxové e-maily do samostatného podadresára. Pomocou kódu VB vytvoríme makro, aby ste mohli spustiť tlačovú úlohu proti každému e-mailu v tejto podpriečinku, takže nemusíte otvárať e-maily a tlačiť prílohy jeden po druhom.

Krok 1

Vytvorte podsložku s názvom "Dávkové výtlačky" pod "Mailbox - YourName" v programe Outlook.

Krok 2

Vytvorte pravidlo( z ponuky Nástroje / Pravidlá a výstrahy) v programe Outlook, ktoré vyzerá takto:

Vložte e-mailovú adresu od predajcu faxu do poľa "[email protected]".V riadku predmetu umiestnite trvalý text odosielaný od dodávateľa faxu zakaždým( nekladajte do textu, ktorý sa bude pravidelne meniť).Tretie pole "Dávkové výtlačky" je podpriečinok, ktorý ste práve vytvorili v prvom kroku.

Krok 3

Vytvorte makro VB.Najprv otvorte editor VB tým, že prejdete do nástroja /Macro/ Visual Basic Editor. Mali by ste vidieť editor VB vyzerá takto:

Krok 4

Z ľavej strany Projektové okno kliknite pravým tlačidlom myši na položku Project1 a vložte modul s názvom Module1:

Krok 5

Po vytvorení Module1 skopírujte nižšie uvedený kódoknom na pravej strane, ako je znázornené v stĺpci # 3.

Public Sub PrintAttachments() Dim Doručená pošta ako položka MAPIFolder Dim ako MailItem Dim Atmt As Attachment Dim Názov súboru ako reťazec Dim i ako celočíselný súbor Inbox = GetNamespace( "MAPI") GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batch Prints") Pre každú položku v priečinku Inbox. Items pre každú položku v Item. Attachments 'všetky prílohy sa najskôr uložia do priečinka Temp C: \ Temp. Nezabudnite vytvoriť tento priečinok. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile Názov_souboru "zmeňte príslušnú zložku programu, ak Acrobat Reader nie je nainštalovaný na jednotke C: Shell C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe" "/ h /p> "" + Názov súboru + "" "", vbHide Next Item. Delete "odstrániť tento riadok, ak nechcete, aby sa e-mail automaticky vymazal Ďalšia nastavená doručená pošta = Nič neskončené

Všimnite si, že budete musieť zmeniť riadokkódu, ktorý volá aplikáciu Acrobat tak, aby zodpovedala ceste v systéme.

Krok 6

Teraz je nastavenie dokončené.Všetky e-maily od vášho predajcu faxov sa presunú do priečinkov "Dávkové výtlačky", keď prídu. Všimnite si, že v príklade očakávame, že všetky prílohy sú vo formáte PDF, takže pomocou Acrobat acrord32.exe vytlačíme každú prílohu.

Použitie makra

Teraz, keď chcete vytlačiť všetky prílohy, jednoducho prejdite na makro a spustite makro PrintAttachments a všetky prílohy budú vytlačené postupne. E-mail sa po vytlačení odstráni a presunie do koša.

Poznámka: výtlačky sú smerované na vašu predvolenú tlačiareň, takže sa musíte uistiť, že je nastavený a vybratý platný ovládač tlačiarne.

Dúfam, že to je užitočné!