Kā automātiski izdrukāt jūsu Outlook svarīgo ienākošo e-pastu pirmo lapu

Daži lietotāji vēlas, lai programma Outlook automātiski izdrukā svarīgos ienākošos e-pastus. Turklāt, ja šāds e-pasts ir pārāk garš, lai nezaudētu papīrus, programma Outlook drukās tikai pirmo lapu. Šajā rakstā mēs atklāsim, kā to realizēt programmatiski.

Manuāli izdrukāt pasta pirmo lapu ir diezgan vienkārši. Pirms drukāšanas varat vienkārši mainīt drukas opcijas. Tomēr, ja jūs cerat, ka programma Outlook var automātiski noteikt e-pasta garumu un automātiski izdrukāt ļoti gara e-pasta ziņojumu pirmo lapu, jums jāmeklē citi līdzekļi, piemēram, šis.

Automātiski izdrukāt svarīgu ienākošo e-pastu pirmo lapu

1. Vispirms jums jāpalaiž programma Outlook kā parasti.
2. Pēc tam galvenajā Outlook logā jānospiež taustiņi “Alt + F11”.
3. Pēc tam jūs veiksmīgi piekļūsit VBA redaktoram.
4. Šajā jaunajā logā ir jāatver tukšs modulis, kurā jums šajā modulī ir jākopē šāds VBA kods.

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. Pēc tam jūs varētu iziet no pašreizējā loga.
6. Pēc tam dodieties uz izvēlni Fails un noklikšķiniet uz pogas Pārvaldīt kārtulas un brīdinājumus.
7. Uznirstošajā dialoglodziņā “Noteikumi un brīdinājumi” noklikšķiniet uz pogas “Jauns noteikums”.
8. Pēc tam jaunajā “Noteikumu vedņa” dialoglodziņā atlasiet “Lietot kārtulu saņemtajiem ziņojumiem” un nospiediet “Tālāk”.
9. “Noteikumu vedņa” otrajā ekrānā jums jānorāda nosacījumi, proti, jānosaka, kādi e-pasta ziņojumi jums ir svarīgi, piemēram, no konkrētiem sūtītājiem utt.
10. Pēc tam noklikšķiniet uz Tālāk, lai atvērtu nākamo ekrānu, kurā jums būs jāiestata kārtulas darbība. Atlasiet “Palaist skriptu” un izvēlieties iepriekš pievienoto makro.
11. Vēlāk noklikšķiniet uz vairākiem “Nākamais”, līdz tiek parādīts pēdējais ekrāns - “Pabeigt kārtulas iestatīšanu”, kurā jūs varat norādīt šī noteikuma nosaukumu un vēlreiz pārbaudīt kārtulas iestatījumu.
12. Visbeidzot noklikšķiniet uz Pabeigt, lai saglabātu šo jauno kārtulu.
13. Visbeidzot, kopš tā laika katru reizi, kad jūsu pastkastē nonāk jauns svarīgs ienākošais e-pasts, programma Outlook automātiski izdrukās pirmo lapu, ja tā būs pārāk gara.

Izvilkt maksimālos datus no bojātiem PST failiem

Varbūt esat sapratis Outlook ievainojamību. Šajā gadījumā jums nav jāatstāj akmens, lai aizsargātu jūsu Outlook datus. Tomēr biežāk jūs atklāsiet, ka Outlook dati var tikt sabojāti tikai pēkšņas izslēgšanas dēļ. Tādējādi jums ir jāveic sagatavošanās neparedzētiem gadījumiem Outlook korupcija, ieskaitot regulāras PST dublējumkopijas un spēcīgu labošanas rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar