Partijos spausdinimas PDF prieduose „Outlook“
Šį straipsnį parašė Sean Tsai, duomenų saugojimo ekspertas ir „How-To Geek“ geras draugas
Ar kada nors norėjote atspausdinti kiekvieną „Outlook“ el. Pašto dėžutės priedą? Tarkime, kad užsisakėte nemokamą faksogramą į PDF el. Pašto paslaugą ir norite, kad jie būtų spausdinami automatiškai, kaip ir senamadiškas fakso aparatas.
Čia yra greitas būdas tai pasiekti, jei esate patenkintas šiek tiek VB (makro) programavimu.
Tai, ką čia rodome, yra sukurti taisyklę „Outlook“ ir perkelti gaunamus fakso el. Laiškus į atskirą aplanką. Naudojant VB kodą, mes sukuriame makrokomandą, kad galėtumėte paleisti spausdinimo užduotį prieš kiekvieną el. Pašto adresą, kad neturėtumėte atverti el. Laiško ir spausdinti priedus po vieną.
1 žingsnis
„Outlook“ pašto dėžutėje „YourName“ sukurkite poaplankį, pavadintą „Batch Prints“.
2 žingsnis
Sukurkite taisyklę (iš meniu Įrankiai / taisyklės ir įspėjimai) „Outlook“, kuris atrodo taip:
Įdėkite el. Pašto adresą iš savo fakso pardavėjo lauke „[email protected]“. Objekto eilutėje kiekvieną kartą įdėkite nuolatinį tekstą, kuris siunčiamas iš fakso tiekėjo (nenurodykite teksto, kuris bus periodiškai keičiamas). 3rd „Batch Prints“ - tai poaplankis, kurį ką tik sukūrėte pirmajame etape.
3 žingsnis
Sukurkite VB makrokomandą. Pirmiausia atverkite „VB“ redaktorių eidami į „Tools“ / „Macro“ / „Visual Basic Editor“. Turėtumėte matyti, kad VB redaktorius atrodo taip:
4 žingsnis
Kairėje pusėje Projekto lange dešiniuoju pelės mygtuku spustelėkite projekto 1 elementą ir įterpkite modulį, pavadintą Moduliu1:
5 veiksmas
Sukūrus 1 modulį, nukopijuokite žemiau esantį kodą į dešinėje pusėje esantį langą, kaip parodyta 3 ženklelyje.
„Public Sub PrintAttachments“ () „Dimbox Inbox“ kaip „MAPIFolder“ „DimI“ kaip „MailItem“ „Dim Atmt“ kaip priedas „Dim File“ kaip eilutė „Dim i“ kaip „Integer Set“ Inbox = „GetNamespace“ („MAPI“). ) Kiekvienam elementui Inbox.Items kiekvienam Atmt In Item.Attachments 'visų priedų pirmiausia įrašomi į temp aplanką C: Temp. Būtinai sukurkite šį aplanką. FileName = "C: Temp" & Atmt.FileName Atmt.SaveAsFile FileName "pakeiskite programos aplanką, jei Acrobat Reader nėra įdiegtas diske C: Shell" "C: Programos failai Adobe Reader 8.0 \ t Skaitytojas acordord.exe "" / h / p "" "+ FileName +" "" ", vbHide Next Item.Delete" pašalinkite šią eilutę, jei nenorite, kad el. Laiškas būtų ištrintas automatiškai. Next Set Inbox = Nothing End Sub
Atminkite, kad gali tekti pakeisti kodo eilutę, kuri skamba „Acrobat“, kad atitiktų jūsų sistemos kelią.
6 veiksmas
Dabar sąranka baigta. Visi jūsų fakso pardavėjo el. Laiškai bus perkelti į jūsų „Batch Prints“, kai jie ateis. Pavyzdžiui, mes tikimės, kad visi priedai bus PDF formatu, todėl mes naudojame Acrobat acrord32.exe, kad galėtume spausdinti kiekvieną priedą.
Makro naudojimas
Dabar, kai norite spausdinti visus priedus, tiesiog eikite į makrokomandą ir paleiskite makro „PrintAttachments“, o visi priedai bus spausdinami nuosekliai. Kai bus atspausdintas, el. Paštas bus ištrintas ir perkeltas į šiukšliadėžę.
Pastaba: spaudiniai nukreipiami į numatytąjį spausdintuvą, todėl turite įsitikinti, kad yra nustatytas ir pasirinktas galiojantis spausdintuvo tvarkyklė.
Tikiuosi, kad tai naudinga!
