Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Outlook: Как печатать электронные письма без изображений

Author Sun Last modified

Обычно при печати электронного письма в Outlook изображения также будут напечатаны. Однако иногда вам нужно распечатать только текст без изображений, но в Outlook нет встроенной функции, которая могла бы это сделать. В этом руководстве представлен код VBA, который сразу же напечатает письмо без изображений через Word. А если на вашем компьютере нет принтера, код VBA сначала экспортирует письмо в PDF без изображений, а затем вы сможете распечатать PDF, когда принтер станет доступен.

VBA для печати электронной почты без изображений


VBA для печати электронной почты без изображений

 

1. Выберите электронное письмо, которое хотите напечатать только текстом, затем нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль, чтобы создать новый пустой модуль, затем скопируйте и вставьте приведенный ниже код в модуль.

VBA: экспорт электронной почты без изображений

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub
steps on using vab to print email without images

3. Нажмите Инструменты > Ссылки, чтобы открыть диалоговое окно Ссылки – Проект 1, отметьте флажок Библиотека объектов Microsoft Word 16.0. Нажмите ОК.

 steps on using vab to print email without images

steps on using vab to print email without images

4-1. Удерживайте курсор внутри кода и нажмите клавишу F5 или кнопку Выполнить , чтобы запустить код, после чего письмо без изображений будет немедленно напечатано через Word. Если у вас нет принтера на компьютере, следуйте Шагу 4.

4-2. Если у вас нет принтера на компьютере, после нажатия клавиши F5 или кнопки Выполнить для запуска кода появится диалоговое окно для выбора папки, куда сохранить файл PDF, и имени файла PDF. Нажмите Сохранить.

 steps on using vab to print email without images

Теперь письмо было экспортировано как PDF без изображений. Откройте файл PDF и щелкните правой кнопкой мыши, чтобы выбрать Печать для печати письма.

steps on using vab to print email without images
steps on using vab to print email without images

Совет: Если вы хотите массово сохранить выбранные письма в формате PDF (или Word, CSV, Excel, Txt, HTML) с изображениями, заголовками, телами, Cc, функция Массового Сохранения Kutools для Outlook может помочь вам, требуя всего три шага.

1. Выберите письма.

2. Нажмите Kutools > Массовое Сохранение.

steps on using vab to print email without images

3. Выберите место и отметьте нужные форматы файлов, нажмите Ок.

steps on using vab to print email without images
steps on using vab to print email without images

AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.
doc ai email handle

Эта функция поддерживает:

  • Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
  • Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
  • Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
  • Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
  • Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
  • Глобальный охват: Легко переводите ваши письма на любой язык.

Эта функция поддерживает:

  • Умные ответы на письма
  • Оптимизированное содержание
  • Черновики на основе ключевых слов
  • Интеллектуальное расширение содержания
  • Краткое изложение писем
  • Перевод на несколько языков

Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь


Лучшие инструменты для повышения продуктивности работы с Office

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные / Удалить напоминание о дне рождения ...

Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!

Мгновенно активируйте Kutools для Outlook одним кликом. Не ждите – скачайте и улучшите свою эффективность прямо сейчас!

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения Office одним кликом

Рекомендуем: Kutools для Office (5-в-1)

Скачайте сразу пять установщиков одним кликом — Kutools для Excel, Outlook, Word, PowerPoint и Office Tab Pro. Нажмите, чтобы скачать прямо сейчас!

  • Все просто: скачайте все пять установочных пакетов одним действием.
  • 🚀 Готово для любой задачи Office: Установите нужные дополнения тогда, когда они вам понадобятся.
  • 🧰 Включено: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools для PowerPoint