"PDF" pridedamų priedų siuntimas į "Outlook"

Šis straipsnis buvo parašytas Sean Tsai, duomenų saugojimo ekspertas ir geras "How-To Geek"

draugas. Ar kada nors norėjote išspausdinti kiekvieną priedą, kurį gaunate savo "Outlook" el. Pašto dėžutėje? Tarkime, kad jūs užsiprenumeravote nemokamą faksą į PDF el. Pašto paslaugą ir norite, kad jie būtų atspausdinti automatiškai, kaip senamadiškas fakso aparatas.

Čia yra greitas būdas tai pasiekti, jei esate patenkintas šiek tiek VB( makro) programavimo.

Čia rodoma čia sukurti taisyklę "Outlook" ir perkelti gaunamus faksogramų el. Laiškus į atskirą pakatalogį.Naudodamiesi VB kodo mes sukursime makrokomandą, kad galėtumėte paleisti spausdinimo užduotį kiekviename toje subfolderiame el. Laiške, todėl nereikės atidaryti el. Laiško ir atspausdinti priedus po vieną.

1 žingsnis

Sukurkite aplanką "Pašto dėžutė - Jūsų vardas", esantį "Outlook", subfolder "Batch Prints".

2 veiksmas

Sukurkite "Outlook" iš meniu "Įrankiai / Taisyklės ir įspėjimai", kuris atrodo taip:

Įveskite el. Pašto adresą iš savo fakso tiekėjo lauke "[email protected]".Temos eilutėje įterpkite nuolatinį tekstą, kuris kiekvieną kartą siunčiamas iš fakso tiekėjo( nenurodykite teksto, kuris periodiškai keisis).Trečias laukas "Batch Prints" yra pakatalogis, kurį ką tik sukūrėte pirmame žingsnyje.

3 žingsnis

Sukurkite VB makrokomandą.Pirmiausia atkurkite VB redaktorių, eikite į Tools /Macro/ Visual Basic Editor. Turėtumėte pamatyti, kad VB redaktorius yra toks:

4 žingsnis

Iš kairės pusės Projekto langas dešiniuoju pelės mygtuku spustelėkite elementą Project1 ir įdėkite modulį, pavadintą Module1:

5 žingsnis

Sukūrus modulį 1, nukopijuokite žemiau esantį kodą įdešinėje pusėje esantis langas, kaip parodyta 3 punkte.

Public Sub PrintAttachments() Dim Inbox kaip MAPIFolder Dim Item kaip MailItem Dim Atmt as Attachment Dim failo vardas kaip String Dim i kaip Integer Set Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Partijos spausdinimai") Kiekvienam elementui" Inbox ". Kiekvieno" Atmt "elemento elementuose" Attachments "visi priedai pirmiausia saugomi aplanke Temp C: \ Temp. Būtinai sukurkite šį aplanką.FileName = "C: \ Temp" &Atmt. FileName Atmt. SaveAsFile FileName ", prašome atitinkamai pakeisti programos aplanką, jei" Acrobat Reader "nėra įdiegtas diske C:" Shell "" C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h /p "" "+ FileName +" "" ", vbHide Kitas elementas. Paikinti" pašalinti šią eilutę, jei nenorite automatiškai ištrinti el. laiško. Kitas Nustatyti gautuosius = Nieko nebaigti Nurodyti

Atkreipkite dėmesį, kad jums gali tekti pakeisti eilutękodas, kuris skambina "Acrobat", kad atitiktų kelią jūsų sistemoje.

6 veiksmas

Dabar nustatymas baigtas. Visi jūsų fakso tiekėjo el. Laiškai bus perkelti į "Batch" atspaudus, kai jie ateina. Atkreipkite dėmesį, kad pavyzdyje mes tikimės, kad visi priedai bus PDF formatu, taigi mes naudosime "Acrobat acrord32.exe", kad atspausdintume kiekvieną priedą.

Macro

naudojimas Dabar, kai norite spausdinti visus priedus, tiesiog eikite į makrokomandą ir paleiskite makrokomandą PrintAttachments, o visi priedai bus atspausdinti nuosekliai. El. Laiškas bus ištrintas ir išsiuntinamas į šiukšliadėžę.

Pastaba: spausdinimai nukreipiami į numatytąjį spausdintuvą, todėl turite įsitikinti, kad yra nustatytas ir pasirinktas galiojantis spausdintuvo tvarkyklė.

Tikiuosi, kad tai naudinga!