Ako automaticky tlačiť prvú stránku dôležitých prichádzajúcich e-mailov vo vašom programe Outlook

Niektorí používatelia by chceli, aby program Outlook automaticky tlačil dôležité prichádzajúce e-maily. Ak je takýto e-mail príliš dlhý, program Outlook vytlačí iba prvú stránku, aby ste ním zbytočne neplytvali papiermi. Teraz v tomto článku vysvetlíme, ako to realizovať programovo.

Ručné vytlačenie prvej stránky pošty je celkom jednoduché. Pred tlačou stačí zmeniť možnosti tlače. Ak však dúfate, že program Outlook dokáže automaticky zistiť dĺžku e-mailu a automaticky vytlačiť prvú stránku veľmi dlhého e-mailu, musíte hľadať iné prostriedky, napríklad nasledujúci.

Automaticky vytlačiť prvú stránku dôležitých prichádzajúcich e-mailov

1. Najskôr je potrebné spustiť aplikáciu Outlook ako obvykle.
2. Potom v hlavnom okne Outlooku musíte stlačiť klávesy „Alt + F11“.
3. Následne budete mať prístup k editoru VBA.
4. V tomto novom okne by ste mali otvoriť prázdny modul, do ktorého by ste mali skopírovať nasledujúci kód VBA do tohto modulu.

Sub PrintFirstPage_ImportantIncomingEmails(objMail As Outlook.MailItem)
    Dim objWordApp As Word.Application
    Dim objTempWordDocument As Word.Document
    Dim objMailDocument As Word.Document
    Dim lPageCount As Long
 
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range.Copy
    
    Set objWordApp = CreateObject("Word.Application")
    Set objTempWordDocument = objWordApp.Documents.Add
    objWordApp.Visible = True
    objTempWordDocument.Activate
 
    objTempWordDocument.Range.Paste
 
    lPageCount = objTempWordDocument.ComputeStatistics(wdStatisticPages)
 
    'If the email takes up more than one page
    If lPageCount > 1 Then
       'Only print the first page
       objTempWordDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
    Else
       'Otherwise, print the whole email
       objMail.PrintOut
    End If
 
    objMail.Close olDiscard
    objMail.UnRead = True
 
    objTempWordDocument.Close False
    objWordApp.Quit
End Sub

5. Potom by ste mohli opustiť aktuálne okno.
6. Potom choďte do ponuky „Súbor“ a kliknite na tlačidlo „Spravovať pravidlá a upozornenia“.
7. V rozbaľovacom dialógovom okne Pravidlá a upozornenia kliknite na tlačidlo Nové pravidlo.
8. Ďalej v novom dialógovom okne Sprievodcu pravidlami vyberte možnosť Použiť pravidlo na správy, ktoré dostávam, a stlačte tlačidlo Ďalej.
9. Na druhej obrazovke „Sprievodcu pravidlami“ by ste mali špecifikovať podmienky, konkrétne definovať, aké e-mailové adresy sú pre vás dôležité, napríklad prichádzať od konkrétnych odosielateľov atď.
10. Potom kliknite na „Ďalej“, čím sa dostanete na ďalšiu obrazovku, na ktorej budete musieť nastaviť akciu pravidla. Vyberte možnosť „Spustiť skript“ a rozhodnite sa pre predtým pridané makro.
11. Neskôr kliknite na niekoľko „Ďalej“, kým sa nezobrazí posledná obrazovka - „Dokončiť nastavenie pravidla“, v ktorej môžete určiť názov tohto pravidla a skontrolovať nastavenie pravidla ešte raz.
12. Nakoniec kliknite na „Dokončiť“, aby ste uložili toto nové pravidlo.
13. A konečne, odvtedy zakaždým, keď sa do vašej poštovej schránky dostane nový dôležitý prichádzajúci e-mail, Outlook automaticky vytlačí svoju prvú stránku, ak je príliš dlhá.

Extrahujte maximum údajov z poškodených súborov PST

Možno ste si uvedomili zraniteľnosť programu Outlook. Za týchto okolností nesmiete nechať žiadny kameň na kameni, aby ste chránili svoje údaje programu Outlook. Častejšie však zistíte, že údaje programu Outlook sa môžu poškodiť jednoducho v dôsledku náhleho vypnutia. Musíte sa teda pripraviť na neočakávané Výhľadová korupcia, vrátane pravidelných záloh PST a silného nástroja na opravu, ako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane obnoviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S