Jak automaticky vytisknout první stránku důležitých příchozích e -mailů v aplikaci Outlook

Někteří uživatelé by chtěli nechat aplikaci Outlook automaticky vytisknout důležité příchozí e -maily. Také pokud je takový e -mail příliš dlouhý, aplikace Outlook nevytrácí papír, vytiskne pouze první stránku. Nyní v tomto článku ukážeme, jak to realizovat programově.

Ruční vytištění první stránky e -mailu je velmi snadné. Před tiskem můžete pouze změnit možnosti tisku. Pokud však doufáte, že aplikace Outlook dokáže automaticky identifikovat délku e -mailu a automaticky vytisknout první stránku velmi dlouhého e -mailu, musíte hledat jiné prostředky, například následující.

Automatický tisk první stránky důležitých příchozích e -mailů

1. Nejprve je třeba spustit aplikaci Outlook jako obvykle.
2. Poté v hlavním okně aplikace Outlook musíte stisknout klávesy „Alt + F11“.
3. Následně se úspěšně dostanete k editoru VBA.
4. V tomto novém okně byste měli otevřít prázdný modul, do kterého byste měli zkopírovat následující kód VBA do tohoto 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. Poté můžete opustit aktuální okno.
6. Poté přejděte do nabídky „Soubor“ a klikněte na tlačítko „Spravovat pravidla a upozornění“.
7. Ve vyskakovacím dialogovém okně „Pravidla a upozornění“ klikněte na tlačítko „Nové pravidlo“.
8. Dále v novém dialogovém okně „Průvodce pravidly“ vyberte „Použít pravidlo na zprávy, které dostávám“, a klikněte na „Další“.
9. Na druhé obrazovce „Průvodce pravidly“ byste měli určit podmínky, konkrétně definovat, jaké e -maily jsou pro vás důležité, například přicházející od konkrétních odesílatelů atd.
10. Poté klikněte na „Další“, čímž se dostanete na další obrazovku, ve které budete muset nastavit akci pravidla. Vyberte „Spustit skript“ a rozhodněte se pro dříve přidané makro.
11. Později klikněte na několik „Další“, dokud se nedostanete na poslední obrazovku - „Dokončit nastavení pravidel“, ve které můžete zadat název tohoto pravidla a znovu zkontrolovat nastavení pravidel.
12. Nakonec toto nové pravidlo uložte kliknutím na „Dokončit“.
13. Nakonec od té doby pokaždé, když se do vaší schránky dostane nový důležitý příchozí e -mail, Outlook automaticky vytiskne jeho první stránku, pokud je příliš dlouhá.

Extrahujte maximum dat z poškozených souborů PST

Možná jste si uvědomili zranitelnost aplikace Outlook. Za těchto okolností nesmíte nechat žádný kámen na kameni, abyste chránili svá data z Outlooku. Častěji však zjistíte, že data aplikace Outlook se mohou poškodit jednoduše kvůli náhlému vypnutí. Proto se musíte připravit na neočekávané Outlook korupce, včetně pravidelných záloh PST a silného nástroje pro opravy, jako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com