Tämä artikkeli on kirjoittanut Sean Tsai, data warehousing asiantuntija ja hyvä ystävä How-To Geek
Oletko koskaan halunnut tulostaa kaikki liitteesi, joka vastaanotat 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 säännön luomisen 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ö Outlookin työkaluista / sääntöistä ja hälytyksistä seuraavasti:
Aseta sähköpostiosoite 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). 3rd kenttä "Erätulostukset" on aliverkko, jonka juuri luotiin ensimmäisessä vaiheessa.
Vaihe 3
Luo VB-makro. Ensin tuo VB-editori avaamalla Tools / Macro / Visual Basic Editor. Sinun pitäisi nähdä VB-editori näyttää tältä:
Vaihe 4
Napsauta vasemmalla Projektin ikkunassa hiiren kakkospainikkeella Project1-kohtaa ja lisää moduuli Module1:
Vaihe 5
Kun Moduuli1 on luotu, kopioi alla oleva koodi oikealla puolella olevaan ikkunaan kohdan 3 mukaisesti.
Julkinen Sub PrintAttachments () Dim Inbox kuin MAPIFolder Dim elementti MailItem Dim Atmt kuin lisäys Dim FileName kuin merkkijono Dim i kuin kokonaisluku Set Inbox = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) Jokainen kohde Saapuneet-kansiossa.Kohdat jokaiselle Atmt-kohdassa Item.Attamentsin kaikki liitetiedostot tallennetaan ensin temp-kansioon C: \ Temp. Muista luoda tämä kansio. C: \ Program Files \ Adobe \ Reader 8.0 \ C: \ Program Files \ Adobe \ Reader 8.0 \ C: \ Program Files \ Adobe \ Reader 8.0 \ "FileName =" C: \ Temp \ "& Atmt.FileName Atmt.SaveAsFile FileName" Reader \ acrord32.exe "" / h / p "" "+ FileName +" "", vbHide Seuraava artikkeli. Poista tämä rivi, jos et halua sähköpostin poistamista automaattisesti Seuraava Set Inbox = Nothing End Sub Huomaa, että sinun on ehkä muutettava koodin riviä, 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.
Makron käyttäminen
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 on varmistettava, että valittu tulostinohjain on asetettu ja valittu.
Toivottavasti tämä on hyödyllistä!