PDF pielikumu drukāšana PDF pielikumos programmā Outlook

Šis raksts tika uzrakstīts Sean Tsai, datu noliktavas eksperts un labs draugs How-To Geek

Vai esat kādreiz vēlējies izdrukāt katru pielikumu, kuru saņemat savā Outlook e-pasta lodziņā? Pieņemsim, ka esat abonējis bezmaksas faksu uz PDF e-pasta pakalpojumu un vēlaties tos automātiski izdrukāt tāpat kā vecmodīgi faksa aparātu.

Šeit ir ātrs veids, kā to panākt, ja jums ir izdevīgi mazliet VB (makro) programmu.

Šeit mēs parādām, kā izveidot noteikumu programmā Outlook un pārvietot ienākošos faksa e-pasta ziņojumus atsevišķā apakšmapē. Izmantojot VB kodu, mēs izveidojam makro, lai jūs varētu palaist drukas darbu pret katru e-pasta adresi šajā apakšmapē, tādēļ jums nav jāatver e-pasts un pielikumu drukāti pa vienam.

1. solis

Sadaļā "Pastkastīte - JūsuName" programmā Outlook izveidojiet apakšmapi ar nosaukumu "Partijas izdrukas".

2. solis

Izveidojiet noteikumu (no izvēlnes Rīki / Noteikumi un brīdinājumi) programmā Outlook, kas izskatās šādi:

Ievietojiet e-pasta adresi no sava faksa pārdevēja laukā "[email protected]". Tēmas rindiņā ievietojiet noturīgu tekstu, kas katru reizi tiek nosūtīts no faksa pārdevēja (neievietojiet tekstu, kas periodiski tiks mainīts). 3^rd lauks "Partijas izdrukas" ir apakšmape, ko tikko izveidojāt pirmajā solī.

Solis 3

Izveidojiet VB makro. Vispirms izveidojiet VB redaktoru, dodoties uz Tools / Macro / Visual Basic Editor. Jums vajadzētu redzēt VB redaktoru izskatās šādi:

4. solis

No kreisās puses Projekta loga ar peles labo pogu noklikšķiniet uz objekta Project1 un ievietojiet moduli ar nosaukumu Module1:

5. solis

Kad ir izveidots modulis1, kopējiet zemāk redzamo kodu labajā pusē redzamajā logā, kā parādīts 3. aizzīmē.

Public Sub PrintAttachments () Attēlu iesūtne kā MAPIFolder dim item kā MailItem Dim Atmt as Attachment Dim FileName Kā String Dim i kā Integer Set Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox). Parent.Folders.Item ("Batch Prints" ) Par katru vienumu inbox.Items katram atmt sadaļā Item.Attahments "visi pielikumi vispirms tiek saglabāti temp mapē C: \ Temp. Noteikti izveidojiet šo mapi. FileName = "C: \ Temp" un Atmt.FileName Atmt.SaveAsFile FileName ", lūdzu, mainiet programmas mapi, ja Acrobat Reader nav instalēts diskā C: Shell" "" C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h / p "" + FileName + "" "", vbHide Nākamais vienums. Dzēst "noņemt šo rindu, ja nevēlaties automātiski izdzēst e-pastu. Nākamā Iestatiet iesūtni = nekas beigu apakš 

Ņemiet vērā, ka jums, iespējams, būs jāmaina koda līnija, kas aicina Acrobat savienot ar jūsu sistēmas ceļu.

6. solis

Tagad iestatīšana ir pabeigta. Visi e-pasta ziņojumi no jūsu faksa pārdevēja tiks pārvietoti, kad tie tiks ievesti. Lūdzu, ņemiet vērā, ka šajā piemērā mēs visi sagaida, ka visi pielikumi ir PDF formātā, tāpēc, lai izdrukātu katru pielikumu, izmantojam Acrobat acrord32.exe.

Izmantojot makro

Tagad, kad vēlaties drukāt visus pielikumus, vienkārši dodieties uz makro un palaidiet makro PrintAttachments, un visi pielikumi tiks drukāti secīgi. E-pasts tiks izdzēsts un pārvietots uz atkritnes tvertni pēc drukāšanas.

Piezīme: izdrukas novirza uz noklusējuma printeri, tāpēc jums ir jāpārliecinās, vai derīgs printera draiveris ir iestatīts un atlasīts.

Ceru, ka tas ir noderīgi!