Partijas drukas PDF pielikumi programmā Outlook
Šo rakstu rakstīja Sean Tsai, datu glabāšanas eksperts un How-To Geek labs draugs
Vai esat kādreiz gribējis izdrukāt katru pielikumu, ko saņemat savā Outlook e-pasta lodziņā? Pieņemsim, ka esat abonējis bezmaksas faksa sūtīšanu uz PDF e-pasta pakalpojumu un vēlaties, lai tie tiktu automātiski izdrukāti tāpat kā vecmodīgs faksa aparāts.
Šeit ir ātrs veids, kā to panākt, ja esat apmierināts ar mazliet VB (makro) programmēšanu.
Tas, ko mēs šeit parādām, ir izveidot noteikumu programmā Outlook un ienākošos faksa e-pastus pārvietot uz atsevišķu apakšmapi. Izmantojot VB kodu, mēs izveidojam makro, lai jūs varētu veikt drukas darbu pret katru e-pasta ziņu šajā apakšmapes, tāpēc jums nav nepieciešams atvērt e-pastu un izdrukāt pielikumus pa vienam.
1. solis
Izveidojiet apakšmapi ar nosaukumu “Partijas izdrukas” programmā “Pastkaste - YourName” programmā Outlook.
2. solis
Izveidojiet noteikumu (no izvēlnes Rīki / Noteikumi un brīdinājumi) programmā Outlook, kas izskatās šādi:
Novietojiet e-pasta adresi no sava faksa pārdevēja laukā “[email protected]”. Objekta rindā ievietojiet pastāvīgo tekstu, kas tiek nosūtīts no faksa pārdevēja, katru reizi (nelietojiet tekstā, kas tiks periodiski mainīts). 3rd lauks “Partijas izdrukas” ir apakšmapes, ko tikko izveidojāt pirmajā solī.
3. solis
Izveidojiet VB makro. Vispirms atveriet VB redaktoru, dodoties uz Tools / Macro / Visual Basic Editor. Jums vajadzētu redzēt VB redaktoru šādā veidā:
4. solis
No kreisās puses Projekta logs ar peles labo pogu noklikšķiniet uz Project1 vienuma un ievietojiet moduli ar nosaukumu Module1:
5. solis
Kad modulis1 ir izveidots, nokopējiet tālāk redzamo kodu logā labajā pusē, kā parādīts # 3.
Public Sub PrintAttachments () Dim Inbox Kā MAPIFolder Dim vienums kā MailItem Dim Atmt kā pielikums Dim FileName kā virkne Dim i kā Integer Set Inbox = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Partijas izdrukas") ) Par katru posteni Inbox.Items katram Atmt In Item.Attachments 'visi pielikumi vispirms tiek saglabāti 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 diskdzinī C: Shell" "C: Programmas faili Adobe Reader 8.0. Reader acord32.exe "" / h / p "" "+ FileName +" "", vbHide Next Item.Delete "noņemt šo rindu, ja nevēlaties, lai e-pasts tiktu automātiski izdzēsts Nākamais Iestatīt iesūtni = Nekas Beigt Sub Ņemiet vērā, ka, iespējams, būs jāmaina koda rinda, kas prasa Acrobat, lai atbilstu jūsu sistēmas ceļam.
6. solis
Tagad iestatīšana ir pabeigta. Visi e-pasta ziņojumi, kas saņemti no jūsu faksa pārdevēja, tiks pārcelti uz jūsu “Batch Prints”, kad tie nonāks. Lūdzu, ņemiet vērā, ka šajā piemērā mēs sagaidām, ka visi pielikumi ir PDF formātā, tāpēc mēs izmantojam Acrobat acrord32.exe, lai izdrukātu katru pielikumu.
Makro izmantošana
Tagad, kad vēlaties drukāt visus pielikumus, vienkārši dodieties uz makro un palaidiet makro PrintAttachments, un visi pielikumi tiks izdrukāti pēc kārtas. E-pasts tiks izdzēsts un pēc drukāšanas pārvietots uz atkritni.
Piezīme: izdrukas tiek novirzītas uz noklusējuma printeri, lai pārliecinātos, ka ir iestatīts un izvēlēts derīgs printera draiveris.
Ceru, ka tas ir noderīgi!
