Пакетна друк PDF-додатків в Outlook
Ця стаття була написана Шона Цаєм, експертом зі зберігання даних і хорошим другом How-To Geek
Ви коли-небудь хотіли роздрукувати всі додатки, які ви отримуєте у вашій електронній пошті Outlook? Припустимо, ви підписалися на безкоштовну послугу електронної пошти факсом у форматі PDF, і ви хочете, щоб вони роздруковувалися автоматично, як старий факс.
Ось швидкий спосіб досягти цього, якщо вам зручно трохи програмувати VB (макро).
Ми показуємо тут, щоб створити правило в Outlook і перенести вхідні повідомлення електронної пошти в окрему підпапку. Використовуючи код VB, ми створюємо макрос для запуску завдання друку на кожну електронну пошту в цій підпапці, тому вам не потрібно відкривати електронну пошту та роздруковувати вкладення по одному.
Крок 1
Створіть підтеку під назвою "Пакетні друк" у розділі "Поштова скринька - Ваше ім'я" в Outlook.
Крок 2
Створіть правило (з меню Інструменти / Правила та Сповіщення) у програмі Outlook, яка виглядає так:
Розмістіть адресу електронної пошти від постачальника факсів у полі "[email protected]". У рядку теми слід розміщувати постійний текст, який кожного разу надсилається постачальником факсу (не вкладайте текст, який періодично змінюватиметься). 3ст Поле “Пакетна друк” - це підтека, яку ви тільки що створили на першому етапі.
Крок 3
Створіть макрос VB. Спочатку відкрийте редактор VB, перейшовши в меню Tools / Macro / Visual Basic Editor. Ви повинні побачити редактор VB таким чином:
Крок 4
У вікні Project ліворуч клацніть правою кнопкою миші на елемент Project1 і вставте модуль Module1:
Крок 5
Як тільки модуль1 буде створено, скопіюйте код нижче у вікно з правого боку, як показано на кулі # 3.
Public Sub PrintAttachments () Dim Вхідні як MAPIFolder Dim Item As MailItem Dim Atmt як вкладення Dim FileName As String Dim i As Integer Встановити Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox). Для кожного пункту Inbox.Items для кожного Atmt в Item.Attachments 'всі вкладення спочатку зберігаються в Temp папку C: Temp. Обов'язково створіть цю папку. Ім'я файлу = "C: Temp" & Atmt.FileName Atmt.SaveAsFile Ім'я файлу ", будь ласка, відповідно змініть папку програми, якщо Acrobat Reader не встановлено на диску C: Shell" "" C: Програмні файли Adobe Reader 8.0. Reader acrord32.exe "" / h / p "" "+ Ім'я файлу +" "" ", vbHide Next Item.Delete видаляє цей рядок, якщо ви не хочете, щоб електронна пошта була автоматично видалена. Зауважте, що вам може знадобитися змінити рядок коду, який викликає Acrobat, щоб відповідати шляху на вашій системі.
Крок 6
Тепер налаштування завершено. Всі повідомлення електронної пошти від постачальника факсів будуть переміщені до вашої «Пакетної друку», коли вони ввійдуть. Зверніть увагу, що у нашому прикладі ми очікуємо, що всі вкладення будуть у форматі PDF, тому ми використовуємо Acrobat acrord32.exe для друку кожного додатка.
Використання макросу
Тепер, коли ви хочете роздрукувати всі вкладення, просто перейдіть до макросу і запустіть макрос PrintAttachments, і всі вкладення будуть надруковані послідовно. Електронну пошту буде видалено та переміщено до кошика для сміття після друку.
Примітка: відбитки направляються на принтер за умовчанням, тому потрібно впевнитися, що встановлений і вибраний правильний драйвер принтера.
Сподіваюся, що це корисно!
