Как да отпечатате автоматично първата страница от важни входящи имейли във вашия Outlook

Някои потребители биха искали да позволят на Outlook автоматично да отпечатва важните входящи имейли. Освен това, ако такъв имейл е твърде дълъг, за да не се хаби хартия, Outlook ще отпечата само първата страница. Сега в тази статия ще изложим как да го реализираме програмно.

Ръчното отпечатване на първата страница на пощата е доста лесно. Можете просто да промените опциите за печат, преди да отпечатате. Ако обаче се надявате, че Outlook може автоматично да идентифицира дължината на имейла и автоматично да отпечата първата страница на много дълъг имейл, трябва да потърсите други средства, като например следния.

Автоматично отпечатайте първата страница на важни входящи имейли

1. Като начало трябва да стартирате приложението на Outlook както обикновено.
2. След това в главния прозорец на Outlook трябва да натиснете клавишите „Alt + F11“.
3. Впоследствие ще имате достъп до редактора на VBA успешно.
4. В този нов прозорец трябва да отворите празен модул, в който трябва да копирате следния VBA код в този модул.

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. След това можете да излезете от текущия прозорец.
6. След това отидете в менюто „Файл“ и кликнете върху бутона „Управление на правила и сигнали“.
7. В изскачащия диалогов прозорец „Правила и сигнали“ кликнете върху бутона „Ново правило“.
8. След това в новия диалогов прозорец на „Wizard Rules“ изберете „Apply rule on messages I receive“ и натиснете „Next“.
9. Във втория екран на „Съветник за правила“ трябва да посочите условията, а именно да определите кои имейли са важни за вас, като например да идват от конкретни податели и т.н.
10. След това щракнете върху „Напред“, което ще ви отведе до следващия екран, в който ще трябва да зададете действие на правилото. Изберете „Стартиране на скрипт“ и изберете предварително добавения макрос.
11. По-късно щракнете върху няколко „Напред“, докато получите последния екран - „Завършване на настройката на правилото“, в който можете да посочите име за това правило и да проверите отново правилото за настройка.
12. Накрая щракнете върху „Finish“, за да запазите това ново правило.
13. И накрая, оттогава, всеки път, когато нов важен входящ имейл влезе в пощенската ви кутия, Outlook автоматично ще отпечата първата си страница, ако е твърде дълга.

Извличане на максимални данни от повредени PST файлове

Може би сте осъзнали уязвимостта на Outlook. При това обстоятелство не трябва да оставяте камъни на камък, за да защитите данните си в Outlook. По-често обаче ще откриете, че данните на Outlook могат да се повредят само поради внезапно изключване. По този начин трябва да се подготвите за неочаквано Корупция в Outlook, включително редовни PST архиви и мощен инструмент за фиксиране, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com