3Jul
Tämä artikkeli on kirjoittanut Sean Tsai, data warehousing asiantuntija ja hyvä ystävä How-To Geek
Oletko koskaan halunnut tulostaa jokaisen liitetiedostosi saat Outlook-sähköpostiosoitteesi? Oletetaan, että olet tilannut ilmaisen faksin PDF-sähköpostipalveluun ja haluat, että ne tulostetaan automaattisesti, kuten vanhanaikainen faksi.
Tässä on nopea tapa saavuttaa se, jos olet tyytyväinen hieman VB( makro) ohjelmointiin.
Tässä esitämme, että luodaan sääntö Outlookissa ja siirrämme saapuvat faksin sähköpostit erilliseen alikansioon. Käyttämällä VB-koodia luodaan makro, jonka avulla voit suorittaa tulostustyön jokaisen kyseisen alikansiossa olevan sähköpostin kanssa, joten sinun ei tarvitse avata sähköpostia ja tulostaa liitteitä yksitellen.
Vaihe 1
Luo alikansio nimeltään "Erätulostukset" kohdassa "Postilaatikko - YourName" Outlookissa.
Vaihe 2
Luo sääntö( valikosta Työkalut / Säännöt ja hälytykset) Outlookissa, joka näyttää tältä:
Aseta sähköpostiosoitteesi faksin myyjältä kentässä "[email protected]".Lisää otsikkorivillä pysyvä teksti, joka lähetetään faksin toimittajalta aina( älä aseta tekstiä, jota muutetaan säännöllisesti).Kolmas kenttä "Erätulostus" on aliverkko, jonka juuri luotiin ensimmäisessä vaiheessa.
Vaihe 3
Luo VB-makro. Ensin tuo VB-editori avaamalla Työkalut /Macro/ Visual Basic Editor. Sinun pitäisi nähdä VB-editori näyttää tältä:
Vaihe 4
Napsauta Project1-ikkunan vasemmalla puolella Project1-kohtaa hiiren kakkospainikkeella ja lisää moduuli nimeltä Module1:
Vaihe 5
Kun Moduuli1 on luotu, kopioi alla oleva koodioikealla puolella olevaan ikkunaan, kuten luettelossa 3 esitetään.
Public Al PrintAttachments() Lähetyslokero kuin MAPIFolder Dim Aseta MailItem Dim Atmt As Attachment Dim FileName kuin String Dim I Aseta kokonaisluku Aseta Inbox = GetNamespace( "MAPI") GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Sarjakuvat") Jokaiselle kohteelle Saapuneet-kansiossa. Kaikki kappaleen Atmt-kohteet. Kaikkien liitetiedostot tallennetaan ensin temp-kansioon C: \ Temp. Muista luoda tämä kansio. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName 'vaihda ohjelmakansio, jos Acrobat Reader ei ole asennettu asemalle C: Shell "" C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h /p "" "+ FileName +" "" ", vbHide seuraava kohta. Delete 'poista tämä rivi, jos et halua sähköpostin poistamista automaattisesti Seuraava Set Inbox = Mikään ei lopetaHuomaa, että joudut ehkä muuttamaan rivinkoodia, joka kehottaa Acrobatia vastaamaan järjestelmän polkua.
Vaihe 6
Nyt asennus on valmis. Kaikki faksin myyjän sähköpostit siirretään "Batch-tulosteisiin", kun ne tulevat sisään. Huomaa, että esimerkissä odotamme, että kaikki liitteet ovat PDF-muodossa, joten jokainen liite tulostetaan Acrobat acrord32.exe -ohjelmalla.
Makro
: n käyttö Nyt, kun haluat tulostaa kaikki liitteet, siirry makroon ja suorita makro PrintAttachments ja kaikki liitteet tulostetaan peräkkäin. Sähköposti poistetaan ja siirretään roskakoriin, kun se on tulostettu.
Huomaa: tulostukset ohjataan oletustulostimelle, joten sinun on varmistettava, että valittu tulostinohjain on asennettuna ja valittuna.
Toivottavasti tämä on hyödyllistä!