Як виключити вбудовані зображення під час друку електронної пошти Outlook

Поділитися зараз:

Іноді вам може знадобитися просто роздрукувати текст електронного листа, не включаючи вбудовані зображення. Замість того, щоб видаляти зображення перед друком, ви можете застосувати метод, представлений у цій статті. Він може автоматично виключати зображення під час друку.

Як ми всі знаємо, друк зображень витрачає чорнило. Тому часом під час друку електронного листа ви можете подумати, що вставлені зображення марні. Таким чином, можливо, ви захочете виключити зображення під час друку електронного листа. У цьому випадку ви можете скористатися наступним способом, щоб досягти цього з легкістю.

Виключіть вбудовані зображення під час друку електронної пошти Outlook

Виключіть вбудовані зображення під час друку електронного листа

  1. По-перше, запустіть програму Outlook.
  2. Потім відкрийте редактор Outlook VBA відповідно до статті - “Як запустити код VBA у своєму Outlook".
  3. Згодом вам потрібно ввімкнути «Бібліотеку об’єктів MS Word», про яку можна дізнатися в розділі «Як додати посилання на бібліотеку об'єктів у VBA".
  4. Після цього помістіть наступний код VBA у невикористаний модуль.
Sub ExcludeEmebeddedImagesWhenPrintingEmail()
    Dim objMail As Outlook.MailItem
    Dim strMailDocument As String
    Dim objWordApp As Word.Application
    Dim objMailDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Save the email as a Word document
    strMailDocument = Environ("Temp") & "\" & objMail.Subject & ".doc"
    objMail.SaveAs strMailDocument, olDoc
 
    'Remove the embedded images from the document
    Set objWordApp = CreateObject("Word.Application")
    Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
    objWordApp.Visible = True
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.Delete
    Next
 
    'Print out the document
    objMailDocument.PrintOut
 
    objMailDocument.Close
    objWordApp.Quit
    Kill strMailDocument
End Sub

Код VBA - Виключіть вбудовані зображення під час друку електронного листа

  1. Пізніше закрийте поточне вікно “Microsoft Visual Basic for Applications”.
  2. Потім додайте новий макрос на панель швидкого доступу.
  3. Зрештою, ви можете спробувати цей макрос зараз.
  • Для початку виберіть або відкрийте вихідний електронний лист.
  • Потім натисніть кнопку макросу на панелі швидкого доступу.Запустіть макрос на вибраній електронній пошті
  • Одразу електронний лист буде роздруковано без вбудованих зображень, що виглядатиме як на наступному знімку екрана:Друкована електронна пошта

Ефективно захистіть свої дані Outlook

На сьогоднішній день дані завжди небезпечні, оскільки існує занадто багато потенційних ризиків, таких як апаратні збої, несправності програмного забезпечення, зараження вірусом тощо. Те саме стосується даних Outlook. Отже, вам доведеться докласти зусиль для захисту даних Outlook. Наприклад, вам слід регулярно робити резервні копії PST. Крім того, вам потрібно навчитися користуватися scanpst для відновлення файлу Outlook. І останнє, але не менш важливе: підготовка потужного зовнішнього інструменту для ремонту також є питанням необхідності DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити mdf - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.