Тази статия е написана от Шон Цай, експерт по съхранение на данни и добър приятел на "Как да"
Били ли сте някога да искате да отпечатате всеки прикачен файл, който получавате в полето за електронна поща на Outlook? Да приемем, че сте се абонирали за безплатна факс към услугата за електронна поща на PDF и искате те да бъдат отпечатани автоматично, точно като старомодна факс машина.
Ето един бърз начин да постигнете това, ако се чувствате комфортно с малко VB (макро) програмиране.
Това, което показваме тук, е да създадем правило в Outlook и да преместим имейлите за входящи факсове в отделна подпапка. С помощта на VB кода създаваме макрос, за да изпълнявате задание за печат срещу всеки имейл в тази подпапка, така че не е нужно да отваряте имейла и да отпечатвате прикачените файлове едно по едно.
Етап 1
Създайте подпапка с име "Batch Prints" под "Mailbox - YourName" в Outlook.
Стъпка 2
Създайте правило (от менюто Инструменти / правила и сигнали) в Outlook, което изглежда така:
Поставете имейл адреса от вашия доставчик на факс в полето "[email protected]". В тематичния ред поставете постоянния текст, който се изпраща от доставчика на факс всеки път (не поставяйте текста, който периодично ще се променя). 3тата полето "Batch Prints" е подпапка, която току-що създадохте в първата стъпка.
Стъпка 3
Създайте VB макрос. Първо изведете редактора на VB, като отворите редактора Инструменти / Макро / Visual Basic. Трябва да видите редактора на VB изглежда по следния начин:
Стъпка 4
От лявата страна на прозореца Project кликнете с десния бутон върху елемента Project1 и вмъкнете модул с име Module1:
Стъпка 5
Щом бъде създаден Модул1, копирайте кода по-долу в прозореца отдясно, както е показано в куршум # 3.
Публични Sub PrintAttachments () Dim Входящи като MAPIFolder Размер на елемента като MailItem Dim Atmt като Прикачен Dim Име на файл като стринг Dim i като цяло число Задайте Inbox = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) За всеки елемент в Inbox.Items за всеки Atmt в Item.Attachments 'всички прикачени файлове са записани за първи път в папката temp C: \ Temp. Уверете се, че сте създали тази папка. ФайлName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile Име на файла "Моля, променете папката на програмата съответно, ако Acrobat Reader не е инсталиран на устройство C: Shell C: \ Program Files \ Adobe \ Reader \ acrord32.exe "" / h / p "" "+ Име на файла +" "", vbHide Next Item.Delete "премахване на този ред, ако не искате автоматичното изтриване на имейла Следваща Set Inbox = Обърнете внимание, че може да се наложи да промените кода на кода, който призовава Acrobat да съответства на пътя на вашата система.
Стъпка 6
Сега настройката е завършена. Всички имейли от доставчика ви на факсове ще бъдат преместени в "партидните разпечатки", когато те влязат. Моля, имайте предвид, че в примера очакваме всички прикачени файлове да са в PDF формат, така че да използваме Acrobat acrord32.exe за отпечатване на всеки прикачен файл.
Използване на макроса
Сега, когато искате да отпечатате всички прикачени файлове, просто отидете на макроса и стартирайте макрото PrintAttachments и всички прикачени файлове ще бъдат отпечатани последователно. Имейлът ще бъде изтрит и преместен в кошчето след изваждането му.
Забележка: разпечатките се насочват към принтера по подразбиране, така че трябва да сте сигурни, че е настроен и избран валиден драйвер за принтер.
Надявам се, че това е полезно!