Outlook: Как печатать электронные письма без изображений
Обычно при печати электронного письма в 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
3. Нажмите Инструменты > Ссылки, чтобы открыть диалоговое окно Ссылки – Проект 1, отметьте флажок Библиотека объектов Microsoft Word 16.0. Нажмите ОК.
4-1. Удерживайте курсор внутри кода и нажмите клавишу F5 или кнопку Выполнить , чтобы запустить код, после чего письмо без изображений будет немедленно напечатано через Word. Если у вас нет принтера на компьютере, следуйте Шагу 4.
4-2. Если у вас нет принтера на компьютере, после нажатия клавиши F5 или кнопки Выполнить для запуска кода появится диалоговое окно для выбора папки, куда сохранить файл PDF, и имени файла PDF. Нажмите Сохранить.
Теперь письмо было экспортировано как PDF без изображений. Откройте файл PDF и щелкните правой кнопкой мыши, чтобы выбрать Печать для печати письма.
Совет: Если вы хотите массово сохранить выбранные письма в формате PDF (или Word, CSV, Excel, Txt, HTML) с изображениями, заголовками, телами, Cc, функция Массового Сохранения Kutools для Outlook может помочь вам, требуя всего три шага.
1. Выберите письма.
2. Нажмите Kutools > Массовое Сохранение.
3. Выберите место и отметьте нужные форматы файлов, нажмите Ок.
AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО
Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.
Эта функция поддерживает:
- Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
- Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
- Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
- Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
- Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
- Глобальный охват: Легко переводите ваши письма на любой язык.
Эта функция поддерживает:
- Умные ответы на письма
- Оптимизированное содержание
- Черновики на основе ключевых слов
- Интеллектуальное расширение содержания
- Краткое изложение писем
- Перевод на несколько языков
Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Kutools для Outlook запускает бесплатную версию!
Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
