Batch Print Attachments PDF în Outlook
Acest articol a fost scris de Sean Tsai, un expert în domeniul depozitării datelor și un bun prieten al lui How-To Geek
Ați vrut vreodată să imprimați fiecare atașament pe care îl primiți în caseta de email Outlook? Să presupunem că v-ați abonat la un serviciu de fax gratuit către serviciul de e-mail PDF și doriți ca acestea să fie tipărite automat la fel ca un aparat fax de modă veche.
Iată o modalitate rapidă de a realiza acest lucru dacă sunteți confortabil cu puțină programare VB (macro).
Ceea ce arătăm aici este crearea unei reguli în Outlook și mutarea e-mailurilor de fax primite într-un subfolder separat. Folosind codul VB creăm o macrocomandă pentru a executa o lucrare de imprimare împotriva fiecărui e-mail din subfolderul respectiv, astfel încât să nu fie nevoie să deschideți e-mailul și să imprimați atașamente unul câte unul.
Pasul 1
Creați un subfolder numit "Loturi imprimate" sub "Căsuța poștală - YourName" în Outlook.
Pasul 2
Creați o regulă (din meniul Instrumente / Reguli și Avertizări) din Outlook care arată astfel:
Plasați adresa de e-mail de la furnizorul dvs. de fax în câmpul "[email protected]". În linia de subiect, plasați de fiecare dată textul persistent care este trimis de la distribuitorul de fax (nu introduceți textul care va fi modificat periodic). 3rd câmpul "Batch Prints" este subfolderul pe care tocmai l-ați creat în primul pas.
Pasul 3
Creați o macrocomandă VB. Mai întâi aduceți la iveală editorul VB accesând Editorul de instrumente / Macro / Visual Basic. Ar trebui să vedeți editorul VB arata astfel:
Pasul 4
Din fereastra din stânga a proiectului, faceți clic dreapta pe elementul Project1 și inserați un modul numit Module1:
Pasul 5
Odată ce modulul 1 este creat, copiați codul de mai jos în fereastra din partea dreaptă, după cum se arată în glontul # 3.
Public Sub PrintAttachments () Dim Inbox ca element MAPIFolder Dim ca MailItem Dim Atmt ca dimensiune atașată DimName Numele fișierului ca șir Dim i ca setul integer Inbox = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) Pentru fiecare element din Inbox.Items pentru fiecare Atmt În item.Attachments 'toate atașamentele sunt salvate mai întâi în folderul temp C: \ Temp. Asigurați-vă că ați creat acest dosar. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName "vă rugăm să schimbați dosarul programului în mod corespunzător dacă Acrobat Reader nu este instalat pe unitatea C: Shell" "C: \ Program Files \ Adobe \ Reader \ acrord32.exe "" / h / p "" "+ NumeFile +" "" ", vbHide Următorul Item.Delete 'eliminați această linie dacă nu doriți ca e-mailul să fie șters automat Next Set Inbox = Rețineți că este posibil să fie necesar să modificați linia de cod care solicită Acrobat să se potrivească cu calea din sistemul dvs..
Pasul 6
Acum configurația este finalizată. Toate e-mailurile de la distribuitorul dvs. de fax vor fi mutate în "Imprimați loturi" atunci când vor intra. Vă rugăm să rețineți că, în exemplu, așteptăm ca toate fișierele atașate să fie în format PDF, astfel încât să folosim Acrobat acrord32.exe pentru a imprima fiecare atașament.
Utilizând macroul
Acum, când doriți să imprimați toate atașamentele, pur și simplu mergeți la macro și executați macroul PrintAttachments și toate atașările vor fi imprimate secvențial. E-mailul va fi șters și mutat în coșul de gunoi după imprimare.
Notă: amprentele sunt direcționate către imprimanta implicită, astfel încât trebuie să vă asigurați că un driver de imprimantă valid este setat și selectat.
Sper că acest lucru este util!
