Dávkovať PDF prílohy v aplikácii Outlook
Tento článok napísal Sean Tsai, expert v oblasti dátového skladovania a dobrý priateľ z How-To Geek
Chceli ste niekedy vytlačiť každú prílohu, ktorú dostávate v e-mailovej schránke programu Outlook? Povedzme, že ste si objednali bezplatný fax na službu PDF e-mailu a chcete, aby boli vytlačené automaticky rovnako ako starý fax.
Tu je rýchly spôsob, ako dosiahnuť, ak ste spokojní s trochou programovania VB (makro).
Tu sa zobrazuje vytvorenie pravidla v programe Outlook a presunutie prichádzajúcich faxových e-mailov 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" v časti "Schránka - Vaše meno" v programe Outlook.
Krok 2
Vytvorte pravidlo (z ponuky Nástroje / Pravidlá a Upozornenia) 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ť). 3rd pole "Dávkové výtlačky" je podpriečinok, ktorý ste práve vytvorili v prvom kroku.
Krok 3
Vytvorte makro VB. Najskôr otvorte editor VB tým, že prejdete do nástroja Nástroje / editor makier / jazyka. Mali by ste vidieť editor VB vyzerá takto:
Krok 4
Z ľavej strany Projektové okno kliknite pravým tlačidlom na položku Project1 a vložte modul s názvom Module1:
Krok 5
Po vytvorení Module1 skopírujte nižšie uvedený kód do okna na pravej strane, ako je znázornené v oddiele 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ží do priečinka Temp C: \ Temp. Nezabudnite vytvoriť tento priečinok. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile Názov_souboru \ ", prosím zmeňte príslušnú zložku programu, ak Acrobat Reader nie je nainštalovaný na jednotke C: Shell C: \ Program Files \ Adobe \ Reader \ acrord32.exe "" / h / p "" "+ Názov súboru +" "" ", vbHide Next Item.Delete 'odstrániť tento riadok, ak si neželáte, aby bol e-mail odstránený automaticky Next Set Inbox = Upozorňujeme, že budete musieť zmeniť riadok kódu, ktorý volá Acrobat tak, aby zodpovedal ceste v systéme.
Krok 6
Teraz je nastavenie dokončené. Všetky e-maily od vášho predajcu faxov budú presunuté do priečinka "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 používame Acrobat acrord32.exe na tlač každej prílohy.
Používanie 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 bude vymazaný a presunutý do koša, keď bude vytlačený.
Poznámka: výtlačky sú smerované na vašu predvolenú tlačiareň, takže musíte skontrolovať, či je nastavený a vybratý platný ovládač tlačiarne.
Dúfam, že je to užitočné!
