Как автоматически распечатать первую страницу важных входящих писем в 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. Затем в новом диалоговом окне «Мастер правил» выберите «Применить правило к сообщениям, которые я получаю» и нажмите «Далее».
9. На втором экране «Мастера правил» вы должны указать условия, а именно определить, какие электронные письма важны для вас, например, от определенных отправителей и т. Д.
10. После этого нажмите «Далее», что приведет вас к следующему экрану, на котором вам нужно будет установить действие правила. Выберите «Запустить скрипт» и выберите ранее добавленный макрос.
11. Позже несколько раз нажмите «Далее», пока не появится последний экран — «Завершить настройку правила», в котором вы можете указать имя для этого правила и еще раз проверить настройку правила.
12. Наконец, нажмите «Готово», чтобы сохранить это новое правило.
13. Наконец, с тех пор каждый раз, когда в ваш почтовый ящик попадает новое важное входящее электронное письмо, Outlook автоматически печатает первую страницу, если она слишком длинная.

Извлечь максимум данных из поврежденных файлов PST

Возможно, вы осознали уязвимость Outlook. В этом случае вы должны сделать все возможное, чтобы защитить свои данные Outlook. Однако чаще всего вы обнаружите, что данные Outlook могут быть повреждены просто из-за внезапного закрытия. Таким образом, вы должны подготовиться к неожиданному Повреждение Outlook, включая регулярные резервные копии PST и мощный инструмент исправления, например DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com