Erä Tulosta PDF-liitetiedostot Outlookissa
Tämän artikkelin ovat kirjoittaneet Sean Tsai, tietovaraston asiantuntija ja How-To Geekin hyvä ystävä
Oletko koskaan halunnut tulostaa kaikki Outlook-sähköpostilaatikkoon saamasi liitteet? Oletetaan, että olet tilannut ilmaisen faksin PDF-sähköpostipalveluun ja haluat, että ne tulostetaan automaattisesti, kuten vanhanaikainen faksilaite.
Tässä on nopea tapa saavuttaa tämä, jos olet tyytyväinen hieman VB (makro) -ohjelmointiin.
Tässä näytetään luoda sääntö Outlookissa ja siirtää saapuvat faksiviestit erilliseen alikansioon. Käyttämällä VB-koodia luomme makron, jolla voit suorittaa tulostustyön jokaista alikansioon kuuluvaa sähköpostia vastaan, joten sinun ei tarvitse avata sähköpostia ja tulostaa liitteitä yksitellen.
Vaihe 1
Luo alikansio, jonka nimi on ”Eräprintit” Outlookissa ”Postilaatikko - Oma nimi”.
Vaihe 2
Luo sääntö (valikosta Työkalut / Säännöt ja hälytykset) Outlookissa, joka näyttää tältä:
Aseta sähköpostiosoite faksin myyjältä kenttään ”[email protected]”. Aseta aiheen riville faksin myyjältä lähetetty pysyvä teksti joka kerta (älä laita tekstiä, jota muutetaan säännöllisesti). 3rd kenttä ”Eräjulkaisut” on alikansio, jonka juuri luotiin ensimmäisessä vaiheessa.
Vaihe 3
Luo VB-makro. Esitä ensin VB-editori valitsemalla Työkalut / Makro / Visual Basic Editor. Näet, että VB-editori näyttää tältä:
Vaihe 4
Vasemmanpuoleisesta Project-ikkunasta napsauta hiiren kakkospainikkeella Project1-kohdetta ja aseta moduuli nimeltä Module1:
Vaihe 5
Kun moduuli 1 on luotu, kopioi alla oleva koodi oikeanpuoleiseen ikkunaan, kuten kuvassa 3 on esitetty.
Julkiset Sub PrintAttachments () Dim In -kansiot MAPIF-kansiossa Dim-kohde MailItem-muodossa Dim Atmt Liitteenä Dim Tiedostonimi merkkijonoina Dim i Integer Set Inbox = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Erän tulosteet") ) Jokaiselle postilaatikolle -kohdassa. Jokaisen atmt: n kohteet kohdassa Item.Attachments tallennetaan ensin kaikki liitteet temp-kansioon C: Temp. Muista luoda tämä kansio. FileName = "C: Temp" & Atmt.FileName Atmt.SaveAsFile FileName "muuta ohjelman kansiota vastaavasti, jos Acrobat Readeria ei ole asennettu asemaan C: Shell" "C: Tiedostot Adobe Reader 8.0 \ t Reader acordord.exe "" / h / p "" "+ FileName +" "" ", vbHide Next Item.Delete 'poista tämä rivi, jos et halua poistettavan sähköpostiviestin automaattisesti Seuraava Set Inbox = Nothing End Sub Huomaa, että sinun on ehkä muutettava koodiriviä, joka kutsuu Acrobatia vastaamaan järjestelmän polkua.
Vaihe 6
Nyt asennus on valmis. Kaikki faksitoimittajan sähköpostiviestit siirretään "Eräjulkaisuihin", kun ne tulevat sisään. Huomaa, että esimerkissä odotamme, että kaikki liitetiedostot ovat PDF-muodossa, joten käytämme Acrobat acrord32.exe-tiedostoa jokaisen liitteen tulostamiseen.
Makron käyttäminen
Kun haluat tulostaa kaikki liitetiedostot, 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.
Huomautus: tulosteet ohjataan oletustulostimeen, joten sinun on varmistettava, että voimassa oleva tulostinohjain on asetettu ja valittu.
Toivottavasti tämä on hyödyllistä!
