Kaip automatiškai išspausdinti pirmąjį svarbių gaunamų el. laiškų puslapį „Outlook“.

Kai kurie vartotojai norėtų leisti „Outlook“ automatiškai spausdinti svarbius gaunamus el. Be to, jei toks el. laiškas yra per ilgas, kad nebūtų švaistomas popierius, „Outlook“ išspausdins tik pirmąjį puslapį. Dabar šiame straipsnyje parodysime, kaip tai realizuoti programiškai.

Rankiniu būdu atspausdinti pirmąjį laiško puslapį yra gana paprasta. Prieš spausdindami galite tiesiog pakeisti spausdinimo parinktis. Tačiau jei tikitės, kad „Outlook“ gali automatiškai nustatyti el. laiško ilgį ir automatiškai atspausdinti pirmąjį labai ilgo el. laiško puslapį, turite ieškoti kitų priemonių, pvz., tolesnio.

Automatiškai išspausdinkite pirmąjį svarbių gaunamų el. laiškų puslapį

1. Norėdami pradėti, turite paleisti „Outlook“ programą kaip įprasta.
2. Tada pagrindiniame "Outlook" lange turite paspausti "Alt + F11" klavišus.
3. Vėliau sėkmingai pasieksite VBA redaktorių.
4. Šiame naujame lange turėtumėte atidaryti tuščią modulį, kuriame į šį modulį turėtumėte nukopijuoti šį VBA kodą.

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. Po to galite išeiti iš dabartinio lango.
6. Tada eikite į meniu „Failas“ ir spustelėkite mygtuką „Tvarkyti taisykles ir įspėjimus“.
7. Atsidariusiame dialogo lange „Taisyklės ir įspėjimai“ spustelėkite mygtuką „Nauja taisyklė“.
8. Tada naujame „Taisyklių vedlio“ dialogo lange pasirinkite „Taikyti taisyklę gautiems pranešimams“ ir paspauskite „Kitas“.
9. Antrame „Taisyklių vedlio“ ekrane turėtumėte nurodyti sąlygas, būtent apibrėžti, kokie el. laiškai jums svarbūs, pavyzdžiui, iš konkrečių siuntėjų ir pan.
10. Po to spustelėkite „Kitas“, ir pateksite į kitą ekraną, kuriame turėsite nustatyti taisyklės veiksmą. Pasirinkite „Vykdyti scenarijų“ ir pasirinkite anksčiau pridėtą makrokomandą.
11. Vėliau spustelėkite keletą „Kitas“, kol pasirodys paskutinis ekranas – „Baigti taisyklės nustatymą“, kuriame galėsite nurodyti šios taisyklės pavadinimą ir dar kartą patikrinti taisyklės nustatymą.
12. Galiausiai spustelėkite „Baigti“, kad išsaugotumėte šią naują taisyklę.
13. Galiausiai, nuo tada kiekvieną kartą, kai į jūsų pašto dėžutę patenka naujas svarbus gaunamas el. laiškas, „Outlook“ automatiškai išspausdins pirmąjį puslapį, jei jis bus per ilgas.

Ištraukite maksimalų duomenų kiekį iš sugadintų PST failų

Galbūt supratote „Outlook“ pažeidžiamumą. Esant tokioms aplinkybėms, norėdami apsaugoti savo „Outlook“ duomenis, neturėtumėte palikti nė vieno akmens. Tačiau dažniausiai pastebėsite, kad „Outlook“ duomenys gali būti sugadinti tiesiog dėl staigaus išjungimo. Taigi, jūs turite pasiruošti netikėtumams Outlook korupcija, įskaitant įprastas PST atsargines kopijas ir galingą taisymo įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com