PDF pielikumu drukāšana PDF pielikumos programmā Outlook

Šis raksts bija rakstījis Sean Tsai, datu noliktavas eksperts un labs draugs How-To Geek

Vai jūs kādreiz vēlējās 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ība ar nedaudz VB( makro) programmu.

Šeit mēs šeit parādām noteikumu izveidi programmā Outlook un ienākošo faksa e-pasta ziņojumu pārvietošanu uz atsevišķu apakšmapi. 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. darbība

Izveidot apakšmapi ar nosaukumu "Batch Prints" sadaļā "Pastkastīte - YourName" programmā Outlook.

2. solis

Izveidojiet noteikumu( no izvēlnes Tools / Rules and Alerts) 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).Trešais lauks "Batch Prints" 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, ka VB redaktors izskatās šādi:

4. solis

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

Solis 5

Kad ir izveidots Module1, nokopējiet zemāk redzamo kodulogu labajā pusē, kā parādīts 3. aizzīmē.

Public Sub PrintAttachments() Dim inbox Kā MAPIFolder dim item kā MailItem Dim Atmt kā pielikumu Dim FileName Kā String Dim i kā integer Set Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Partijas izdrukas") Katram vienumam inbox. Items katram atmt sadaļā Item. Attahments" visi pielikumi vispirms tiek saglabāti temp mapē C: \ Temp. Noteikti izveidojiet šo mapi. FileName = "C: \ Temp" &Atmt. FileName Atmt. SaveAsFile FileName "lūdzu, attiecīgi 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. Atlikt 'noņemt šo rindu, ja nevēlaties automātiski dzēst e-pastu. Nākamā Iestatīt iesūtni = Nekas beigas Apakšvirsraksts

Ņemiet vērā, ka jums, iespējams, būs jāmaina rindakas zvana Acrobat, lai tas atbilstu jūsu sistēmas ceļam.

Solis 6

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.

Macro

izmantošana 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: drukas attēli tiek novirzīti uz noklusēto 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īgs!