A fontos bejövő e-mailek első oldalának automatikus kinyomtatása az Outlook programban

Egyes felhasználók szeretnék engedélyezni, hogy az Outlook automatikusan kinyomtassa a fontos bejövő e-maileket. Ezenkívül, ha egy ilyen e-mail túl hosszú, az Outlook csak az első oldalt nyomtatja ki, hogy ne pazarolja el a papírokat. Most ebben a cikkben bemutatjuk, hogyan valósítható meg programozottan.

A levél első oldalának manuális kinyomtatása meglehetősen egyszerű. Nyomtatás előtt módosíthatja a nyomtatási beállításokat. Ha azonban azt reméli, hogy az Outlook automatikusan azonosítani tudja az e-mail hosszát, és automatikusan kinyomtatja egy nagyon hosszú e-mail első oldalát, akkor más eszközöket kell keresnie, például a következőt.

A fontos bejövő e-mailek első oldalának automatikus kinyomtatása

1. Először is el kell indítania az Outlook alkalmazást a szokásos módon.
2. Ezután az Outlook főablakában meg kell nyomnia az „Alt + F11” billentyűket.
3. Ezt követően sikeresen hozzáfér a VBA-szerkesztőhöz.
4. Ebben az új ablakban meg kell nyitnia egy üres modult, amelyben a következő VBA kódot kell bemásolnia ebbe a modulba.

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. Ezt követően kiléphet az aktuális ablakból.
6. Ezután lépjen a „Fájl” menübe, és kattintson a „Szabályok és figyelmeztetések kezelése” gombra.
7. A felugró „Szabályok és figyelmeztetések” párbeszédpanelen kattintson az „Új szabály” gombra.
8. Ezután a „Szabályvarázsló” új párbeszédpaneljében válassza a „Szabály alkalmazása a kapott üzenetekre” lehetőséget, és nyomja meg a „Tovább” gombot.
9. A „Szabályvarázsló” második képernyőjén meg kell adnia a feltételeket, nevezetesen azt, hogy mely e-mailek fontosak az Ön számára, például adott feladóktól érkeznek, stb.
10. Ezután kattintson a „Tovább” gombra, amely a következő képernyőre viszi, ahol be kell állítania a szabályműveletet. Válassza a „Szkript futtatása” lehetőséget, és válassza a korábban hozzáadott makrót.
11. Később kattintson többször a „Tovább” gombra, amíg meg nem jelenik az utolsó képernyő – „Finish rule setup”, amelyben megadhat egy nevet ennek a szabálynak, és még egyszer ellenőrizheti a szabály beállítását.
12. Végül kattintson a „Befejezés” gombra az új szabály mentéséhez.
13. Végül, azóta minden alkalommal, amikor új fontos bejövő e-mail érkezik a postafiókjába, az Outlook automatikusan kinyomtatja az első oldalt, ha az túl hosszú.

Kivonja a maximális adatot a sérült PST-fájlokból

Talán felismerte az Outlook sebezhetőségét. Ilyen körülmények között az Outlook-adatai védelme érdekében nem szabad megmunkálni. Leggyakrabban azonban azt tapasztalja, hogy az Outlook-adatok megsérülhetnek egyszerűen a hirtelen leállás miatt. Ezért fel kell készülni a váratlan helyzetekre Az Outlook korrupciója, beleértve a szokásos PST biztonsági mentéseket és egy hatékony javítóeszközt, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com