Outlook-da Mühüm Gələn E-poçtların İlk Səhifəsini Avtomatik Çap Etmək

Bəzi istifadəçilər Outlook-a vacib gələn e-poçtları avtomatik çap etməyə icazə vermək istəyirlər. Həmçinin, belə bir e-poçt çox uzun olarsa, sənədləri israf etməmək üçün Outlook yalnız ilk səhifəni çap edəcək. İndi bu məqalədə bunu proqramlı şəkildə necə həyata keçirəcəyimizi açıqlayacağıq.

Məktubun ilk səhifəsini əl ilə çap etmək olduqca asandır. Siz sadəcə çap etməzdən əvvəl çap seçimlərini dəyişə bilərsiniz. Bununla belə, Outlook-un e-poçtun uzunluğunu avtomatik müəyyən edə biləcəyinə və çox uzun e-poçtun ilk səhifəsini avtomatik çap etməyə ümid edirsinizsə, aşağıdakı kimi başqa vasitələr axtarmalısınız.

Mühüm Gələn E-poçtların Birinci Səhifəsini Avtomatik Çap edin

1. Başlamaq üçün Outlook proqramınızı normal şəkildə işə salmalısınız.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basmalısınız.
3. Sonradan VBA redaktoruna uğurla daxil olacaqsınız.
4. Bu yeni pəncərədə siz boş modul açmalısınız, orada aşağıdakı VBA kodunu bu modula köçürməlisiniz.

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. Bundan sonra cari pəncərədən çıxa bilərsiniz.
6. Sonra "Fayl" menyusuna gedin və "Qaydaları və xəbərdarlıqları idarə et" düyməsini basın.
7. Açılan “Qaydalar və Siqnallar” informasiya qutusunda “Yeni Qayda” düyməsini sıxın.
8. Sonra, "Qaydalar Sihirbazının" yeni dialoq qutusunda "Aldığım mesajlara qayda tətbiq et" seçin və "Növbəti" düyməsini basın.
9. “Qaydalar Sihirbazı”nın ikinci ekranında siz şərtləri göstərməlisiniz, yəni sizin üçün hansı e-poçtların vacib olduğunu müəyyən etməlisiniz, məsələn, konkret göndəricilərdən gələnlər və s.
10. Bundan sonra, qayda hərəkətini təyin etməli olduğunuz növbəti ekrana gətirəcək "Növbəti" düyməsini basın. "Skript işlət" seçin və əvvəllər əlavə edilmiş makroya üstünlük verin.
11. Daha sonra, bu qayda üçün ad təyin edə biləcəyiniz və qayda parametrlərini bir daha yoxlaya biləcəyiniz son ekran - "Qayda quraşdırmasını tamamlayın" əldə olunana qədər bir neçə "Növbəti" düyməsini basın.
12. Nəhayət, bu yeni qaydanı saxlamaq üçün "Bitir" düyməsini basın.
13. Nəhayət, o vaxtdan bəri, hər dəfə poçt qutunuza yeni vacib gələn e-poçt daxil olduqda, çox uzun olarsa, Outlook ilk səhifəsini avtomatik çap edəcək.

Zədələnmiş PST fayllarından maksimum məlumatı çıxarın

Yəqin ki, siz Outlook-un zəifliyini dərk etmisiniz. Bu vəziyyətdə, Outlook məlumatlarınızı qorumaq üçün heç bir daş qoymamalısınız. Bununla belə, daha tez-tez Outlook məlumatlarının qəfil bağlanması səbəbindən korlana biləcəyini görəcəksiniz. Beləliklə, gözlənilməz hadisələrə hazırlaşmalısınız Outlook korrupsiyası, o cümlədən müntəzəm PST ehtiyat nüsxələri və güclü düzəltmə aləti, məsələn DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com