Acest articol a fost scris de Sean Tsai, un expert în domeniul antrepozitului de date ș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 e-mail 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.
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ș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:
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 furnizorul 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 editorul VB accesând Editorul de instrumente / Macro / Visual Basic. Ar trebui să vedeți editorul VB arată 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 coloana # 3.
Sub Public PrintAttachments () Dim Inbox Ca MAPIFolder Dim Articol Ca MailItem Dim ATMT ca document atașat Dim ca șir de Dim NumeFișier i Ca Integer Setați Mesaje = GetNamespace ( "MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ( "Printuri lot" ) 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 NumeFișier "vă rugăm să schimbați folderul programului în mod corespunzător în cazul în care Acrobat Reader nu este instalat pe unitatea C: Shell """ C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ AcroRd32.exe „“ / h / p „““+ FileName +«»«», vbHide Urmatorul Item.Delete„elimina această linie, dacă nu doriți ca mesajele să fie șterse automat Următorul Setează Inbox = Nimic End Sub
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 furnizorul dvs. de fax va fi mutat la „Printuri lot“ tale când vin. Vă rugăm să rețineți, în exemplu, ne așteptăm la toate atașamentele sunt în format PDF, astfel încât vom folosi 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ă: imprimările 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!
