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čte prvú stránku dôležitých prichádzajúcich e-mailov vo vašom programe Outlook

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 ako Word.Application Dim objTempWordDocument ako Word.Document Dim objMailDocument ako Word.Document Dim lPageCount ako dlhý objMail.Display Set objMailDocument = objMail.GetInspector.obet.spot CreateObject ("Word.Application") Set objTempWordDocument = objWordApp.Documents.Add objWordApp.Visible = True objTempWordDocument.Activate objTempWordDocument.Range.Paste lPageCount = objTempWordDocument.ComputeStatistics 1 Potom 'Vytlačte iba prvú stránku objTempWordDocument.PrintOut Range: = wdPrintFromTo, From: = "1", To: = "1" Else' V opačnom prípade vytlačte celý e-mail objMail.PrintOut Koniec Ak objMail.Close olDiscard objMail.UnRead = True objTempWordDocument.Close False objWordApp. Quit End Sub

Kód VBA - automatická tlač prvej stránky dôležitých prichádzajúcich e-mailov

  1. Potom by ste mohli opustiť aktuálne okno.
  2. Potom choďte do ponuky „Súbor“ a kliknite na tlačidlo „Spravovať pravidlá a upozornenia“.
  3. V rozbaľovacom dialógovom okne Pravidlá a upozornenia kliknite na tlačidlo Nové pravidlo.
  4. Ď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.
  5. 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ď.
  6. 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.Vyberte možnosť Spustiť skript. Akcia pravidla
  7. 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.
  8. Nakoniec kliknite na „Dokončiť“, aby ste uložili toto nové pravidlo.
  9. 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

3 odpovede na „Ako automaticky vytlačiť prvú stranu dôležitých prichádzajúcich e-mailov v programe Outlook“

  1. Opravený kód, ktorý funguje pre cloudovú aplikáciu Outlook O365 Microsoft, je nasledujúci:

    Sub PrintFirstPage()

    Dim objMail ako Outlook.MailItem
    Nastaviť objMail = Application.ActiveExplorer.Selection.Item(1)
    objMail.Display
    SendKeys "%f", True
    SendKeys "%p", True
    SendKeys "%r", True
    SendKeys "%s", True
    SendKeys „1“, True
    SendKeys „{ENTER}“, True

    End Sub

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *