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 How-To Geek

V-ați dorit 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 o mașină de fax veche.

Aici este o modalitate rapidă de a realiza acest lucru dacă sunteți confortabil cu un pic de 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șamentele unul câte unul.

Pasul 1

Creați un subfolder numit "Batch Prints" sub "Mailbox - YourName" în Outlook.

Pasul 2

Creați o regulă( din meniul Instrumente / Reguli și Avertizări) în Outlook care arată astfel:

Puneț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 furnizorul de fax( nu introduceți textul care va fi modificat periodic).Câmpul 3 "Imprimări lot" 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 Visual Basic /Macro/.Ar trebui să vedeți că editorul VB arată astfel:

Pasul 4

Din fereastra din stânga Proiect, faceți clic dreapta pe elementul Project1 și introduceți un modul numit Module1:

Pasul 5

Odată ce modulul 1 este creat, copiați codul de mai jos înfereastră în partea dreaptă, după cum se arată în glontul # 3.

Public Sub PrintAttachments() Dim Inbox ca dimensiune MAPIFolder Dim ca dimensiune MailItem Dim Atmt ca dimensiune atașată Dim nume fișier ca șir Dim i ca număr întreg 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 8.0 \ Reader \ acrord32.exe" "/ h /Dacă nu doriți ca e-mailul să fie șters automat, setați Inbox = Nothing End Sub

Rețineți că este posibil să trebuiască să schimbați liniade 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 la "lotul de imprimări" atunci când vor intra. Vă rugăm să rețineți, î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.

Utilizarea Macro

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 tipărite succesiv. 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!