Dávkové tisk PDF příloh v aplikaci Outlook
Tento článek napsal Sean Tsai, expert v oblasti datového skladování a dobrý přítel How-To Geek
Nechtěli jste někdy vytisknout každou přílohu, kterou obdržíte v e-mailové schránce aplikace Outlook? Řekněme, že jste se přihlásili k bezplatnému faxu do služby e-mailu PDF a chcete, aby byl automaticky vytištěn jako starý fax.
Zde je rychlý způsob, jak to dosáhnout, pokud jste spokojeni s trochou VB (makro) programování.
Zde se zobrazuje vytvoření pravidla v aplikaci Outlook a přesunutí příchozích faxových e-mailů do samostatné podsložky. Pomocí kódu VB vytvoříme makro pro spuštění tiskové úlohy proti každému e-mailu v této podsložce, takže nemusíte otevřít e-mail a vytisknout přílohy jeden po druhém.
Krok 1
Vytvořte podsložku s názvem "Dávkové výtisky" v části "Mailbox - YourName" v aplikaci Outlook.
Krok 2
Vytvořte pravidlo (z nabídky Nástroje / Pravidla a výstrahy) v aplikaci Outlook, které vypadá takto:
Vložte e-mailovou adresu od dodavatele faxu do pole "[email protected]". V řádku předmětu umístit trvalý text odesílaný od dodavatele faxu pokaždé (do textu, který se bude pravidelně měnit). 3rd pole "Batch Prints" je podsložka, kterou jste právě vytvořili v prvním kroku.
Krok 3
Vytvořte makro VB. Nejprve přejděte editor VB do editoru Nástroje / Makro / Visual Basic. Měli byste vidět editor VB vypadá takto:
Krok 4
V levé části okna projektu klepněte pravým tlačítkem na položku Project1 a vložte modul s názvem Module1:
Krok 5
Jakmile je modul 1 vytvořen, zkopírujte níže uvedený kód do okna na pravé straně, jak je znázorněno v odrážce # 3.
Public Sub PrintAttachments () Dim Doručená pošta jako MAPIFolder Dim jako položka MailItem Dim Atmt jako příloha Dim Název_souboru jako řetězec Dim i jako celočíselná sada Inbox = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) Pro každou položku v Inbox.Items pro každý atmt v Item.Attachments 'všechny přílohy jsou nejprve uloženy do dočasné složky C: \ Temp. Vytvořte tuto složku. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile Název_souboru \ "Pokud je na jednotce C: Shell C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h / p "" "+ Název_souboru" "," VbHide Next Item.Delete "odstranit tento řádek, pokud nechcete, aby byl e-mail automaticky odstraněn. Všimněte si, že budete muset změnit řádek kódu, který volá Acrobat tak, aby odpovídal cestě ve vašem systému.
Krok 6
Nyní je nastavení dokončeno. Všechny e-maily od vašeho dodavatele faxu budou při jejich příchodu přesunuty do vašeho "dávkového tisku". Všimněte si, že v příkladu očekáváme, že všechny přílohy jsou ve formátu PDF, takže používáme Acrobat acrord32.exe k vytisknutí všech příloh.
Použití makra
Nyní, když chcete vytisknout všechny přílohy, jednoduše přejděte do makra a spusťte makro PrintAttachments a všechny přílohy se vytisknou postupně. E-mail bude po tisku odstraněn a přesunut do koše.
Poznámka: výtisky jsou směrovány na vaši výchozí tiskárnu, takže je třeba se ujistit, že je nastaven a zvolen platný ovladač tiskárny.
Doufám, že je to užitečné!
