3Jul
Tento článek napsal Sean Tsai, expert pro datové sklady a dobrý přítel How-To Geek
Už jste někdy chtěli 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 e-mailové služby PDF a chcete, aby byly vytištěny automaticky stejně jako starý faxový přístroj.
Zde je rychlý způsob, jak to dosáhnout, pokud jste spokojeni s trochou programování VB( makro).
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ření podsložky 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é( neumísťujte do textu, který bude pravidelně měněn).3. pole "Batch Prints" je podsložka, kterou jste právě vytvořili v prvním kroku.
Krok 3
Vytvořte makro VB.Nejprve spusťte editor VB pomocí nástroje /Macro/ Visual Basic Editor. Měli byste vidět editor VB vypadá takto:
Krok 4
Z levé strany okna Project klepněte pravým tlačítkem na položku Project1 a vložte modul s názvem Module1:
Krok 5
Po vytvoření modulu 1 zkopírujte níže uvedený kódokno na pravé straně, jak je znázorněno v kuličce # 3.
Public Sub PrintAttachments() Dim Doručená pošta jako položka MAPIFolder Dim jako 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 ve složce Inbox. Items For Each Atmt V položce Item. Attachments jsou všechny přílohy 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 ", prosím, změňte složku programu odpovídajícím způsobem, pokud Acrobat Reader není nainstalován 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 smazán Další nastavení Inbox = Nothing End SubVšimněte si, že budete možná muset změnit linkukó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 pomocí Acrobat acrord32.exe vytiskneme každou přílohu.
Používání 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 výchozí tiskárnu, takže je třeba se ujistit, že je nastaven a vybrán platný ovladač tiskárny.
Doufám, že to je užitečné!
