3Jul
Ez a cikk írta Sean Tsai, az adattárház szakértője és a How-To Geek
jó barátja. Volt-e valaha nyomtatott mellékleteket az Outlook e-mail fiókjában? Tegyük fel, hogy feliratkoztál egy ingyenes faxra a PDF e-mail szolgáltatásra, és azt szeretné, hogy automatikusan kinyomtassák őket, mint egy régimódi faxkészülék.
Itt van egy gyors módja ennek, ha kényelmes egy kis VB( makró) programozással.
Amit itt mutatunk, egy szabály létrehozása az Outlook programban, és a bejövő e-mailek egy külön almappába történő áthelyezése. A VB kód használatával létrehozunk egy makrót, hogy futtasson egy nyomtatási feladatot az adott almappában lévő e-mailek ellen, így nem kell megnyitnia az e-mailt, és egyenként nyomtatni a mellékleteket.
1. lépés
Hozzon létre egy "Kötegelt nyomtatás" nevű almappát a "Mailbox - YourName" alatt az Outlook programban.
2. lépés
Hozzon létre egy szabályt( az Eszközök / Szabályok és figyelmeztetések menüből) az Outlook programban, amely így néz ki:
Helyezze el az e-mail címét a faxszállítótól az "[email protected]" mezőbe. A téma sorában helyezze el a faxszolgáltatótól mindig küldött állandó szöveget( ne tegye be a rendszerbe a rendszeres időközönként megváltoztatandó szöveget).A 3. mezőben a "Kötegelt nyomtatás" az alkönyvtár, amelyet most hoztál létre az első lépésben.
3. lépés
VB makró létrehozása. Először hozza fel a VB szerkesztőt a Tools /Macro/ Visual Basic Editor alkalmazással. A VB-szerkesztőnek így kell kinéznie:
4. lépés:
A Project ablak bal oldalán kattintson jobb gombbal a Project1 elemre, és tegyen be egy Modult1 nevű modult:
5. lépés
A Modul1 létrehozása után másolja az alábbi kódot aablak jobb oldalán, amint azt a 3. golyó mutatja.
Nyilvános Sub PrintAttachments() Külsõ Inbox mint MAPIFolder Dim Elem mint MailItem Dim Atmt mint csatolmány Dim FileName Mint String Dim i mint Integer Beérkezett Inbox = GetNamespace( "MAPI") GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batch nyomtatás") Minden egyes tételhez a Beérkezett üzenetek mappában. Minden tételhez tartozó tételhez tartozó elemek. Az összes csatolmány először a C: \ Temp temp mappába kerül elmentésre. Győződjön meg róla, hogy létrehozza ezt a mappát. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile Fájlnév 'kérjük, módosítsa a program mappát, ha az Acrobat Reader nincs telepítve a C meghajtón: Shell C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h /p "" "+ Fájlnév +" "" ", vbHide következő elemet. Törölje ezt a sort, ha nem akarja, hogy az e-mailt automatikusan törölje. Következő Beállít = Nincs semmi Vége SubNe feledje,olyan kódot, amely az Acrobat programot arra használja, hogy megfeleljen a rendszer elérési útjának.
6. lépés
Most a telepítés befejeződött. A faxszállító minden e-mailje átkerül a "Batch Prints" -ba, amikor belépnek. Kérjük, vegye figyelembe, hogy a példában minden mellékletet PDF formátumban várunk, így az Acrobat acrord32.exe fájlt minden melléklet nyomtatásához használjuk.
Az
makró használata Most, amikor minden mellékletet kinyomtat, egyszerűen csak menjen a makróhoz, és futtassa a makrót PrintAttachments és az összes melléklet egymás után nyomtatódik. Az e-mailt törölni fogják, és kinyomtatják a szemétkosárba.
Megjegyzés: a nyomatok az alapértelmezett nyomtatóhoz vannak irányítva, így meg kell győződnie arról, hogy az érvényes nyomtató-illesztőprogram telepítve van és ki van választva.
Remélem ez hasznos!