PDF-mellékletek nyomtatása az Outlook programban
Ezt a cikket Sean Tsai, egy adattároló szakértő és a How-To Geek jó barátja írta
Voltál már kinyomtatni az Outlook e-mail mezőjében kapott összes mellékletet? Tegyük fel, hogy feliratkozott egy ingyenes fax-PDF-e-mail szolgáltatásra, és azt szeretné, hogy automatikusan nyomtassanak, mint egy régi vágású faxkészülék.
Ez egy gyors módja annak eléréséhez, ha egy kis VB (makró) programozással van.
Amit itt mutatunk, egy szabály létrehozása az Outlook programban, és a bejövő fax e-mailek elküldése egy külön almappába. A VB kód használatával létrehozunk egy makrót a nyomtatási feladat futtatásához az almappában levő minden e-mailhez, így nem kell megnyitni az e-mailt és nyomtatni a mellékleteket egyenként.
1. lépés
Hozzon létre egy „Batch Prints” nevű almappát az „Mailbox - YourName” alatt az Outlook programban.
2. lépés
Szabály létrehozása (az Eszközök / Szabályok és figyelmeztetések menüből) az Outlookban, amely így néz ki:
Helyezze az e-mail címet a faxszolgáltatóból az „[email protected]” mezőbe. A tárgysorban helyezze el a faxszolgáltatótól elküldött állandó szöveget minden alkalommal (ne tegye be a módosítani kívánt szövegbe). A 3rd A „Batch Prints” (kötegelt nyomtatások) mező az első lépésben létrehozott almappa.
3. lépés
Hozzon létre egy VB makrót. Először hozza fel a VB-szerkesztőt az Eszközök / Makró / Visual Basic Editor alkalmazással. Látnod kell, hogy a VB szerkesztő így néz ki:
4. lépés
A bal oldali projekt ablakból kattintson jobb gombbal a Project1 elemre, és helyezzen be egy Modul1 nevű modult:
5. lépés
Az 1. modul létrehozása után másolja az alábbi kódot a jobb oldali ablakba a # 3.
Nyilvános Sub PrintAttachments () Dim Inbox mint MAPIFolder Dim Eleme MailItem Dim Atmt mellékletként Dim FileName mint karakterlánc Dim i Integer Set Inbox = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox). ) Az Inbox minden egyes eleméhez. Minden egyes Atmt elemhez. Elemek. A csatolások minden mellékletét először a C mappába menti: Temp. Győződjön meg róla, hogy létrehozza ezt a mappát. FileName = "C: Temp" & Atmt.FileName Atmt.SaveAsFile FileName "kérjük, változtassa meg a program mappát, ha az Acrobat Reader nincs telepítve a C: Shell" C "meghajtóra: Program fájlok Adobe Reader 8.0 Reader acrord32.exe "" / h / p "" "+ Fájlnév +" "", vbHide Next Item.Delete "távolítsa el ezt a sort, ha nem szeretné, hogy az e-mail automatikusan törlődjön Következő Set Inbox = Semmi vége Ne feledje, hogy módosítania kell az Acrobat nevű kód sorát, hogy megfeleljen a rendszer elérési útjának.
6. lépés
Most a telepítés befejeződött. A faxüzemeltetőtől érkező összes e-mail a „Batch Prints” -re kerül, amikor beérkezik. Kérjük, vegye figyelembe, hogy a példában minden melléklet PDF formátumban van, ezért az Acrobat acrord32.exe-t használjuk minden melléklet nyomtatásához.
A Makró használata
Most, amikor az összes mellékletet kinyomtatja, egyszerűen menjen a makróra, és futtassa a makró PrintAttachments-t, és minden mellékletet egymás után nyomtat. Az e-mail törlésre kerül és a kinyomtatás után a szemétkosárba kerül.
Megjegyzés: a nyomatok az alapértelmezett nyomtatóra kerülnek, így meg kell győződnie arról, hogy érvényes nyomtató-illesztőprogram van beállítva és kiválasztva.
Remélem, ez hasznos!
