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