KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как распечатать все вложения из одного или нескольких писем в Outlook?

АвторКеллиДата изменения

Как известно, при нажатии Файл > Печать в Microsoft Outlook печатаются только содержимое письма — например, заголовок и тело, — но не вложения. Ниже мы покажем, как легко распечатать все вложения из выбранного письма в Microsoft Outlook.

Печать всех вложений в одном письме по одному

Microsoft Outlook предлагает функцию Быстрая печать, которая позволяет распечатывать вложения из письма по одному.

1. Выберите письмо, вложения из которого вы хотите распечатать.

2. Щелкните по любому вложению в этом письме.

шаги печати всех вложений из одного сообщения электронной почты поочередно

3. Нажмите кнопку Быстрая печать в группе Действия на вкладке Вложения.

шаги печати всех вложений из одного сообщения электронной почты поочередно
Примечание:Инструменты вложенийне активируется, пока вы не щёлкните по вложениям в письмах.

4. Появится диалоговое окно «Открытие вложения электронной почты». Нажмите кнопку Открыть.

шаги печати всех вложений из одного сообщения электронной почты поочередно

Обратите внимание: этот шаг откроет выбранное вложение и одновременно отправит его на печать.

Чтобы распечатать другие вложения из этого письма, повторите действия со шага 2 по шаг 4.

Быстро сохраняйте/экспортируйте все вложения из нескольких писем в Outlook

Обычно вложения из одного письма можно сохранить, активировав Инструменты вложений и воспользовавшись функцией Сохранить все вложения в Outlook. Но что делать, если нужно сохранить вложения сразу из нескольких писем или даже из всей почтовой папки? Попробуйте функцию Kutools для Outlook — Сохранить все (вложения)!

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

сохранение вложений из нескольких сообщений электронной почты kto9

Пакетная печать всех вложений в одном письме

Если в одном письме много вложений, их поочерёдная печать займёт немало времени. Следующий метод позволит вам легко выполнить пакетную печать всех вложений в выбранном письме.

1. Выберите письмо, вложения из которого хотите распечатать.

2. В Outlook 2010 или более поздних версиях нажмите Файл > Печать > Параметры печати. См. следующий снимок экрана:

шаги пакетной печати всех вложений из одного сообщения электронной почты

3. В диалоговом окне «Печать» установите флажок Печатать вложения. Вложения будут напечатаны только на принтере по умолчанию в разделе Параметры печати.

шаги пакетной печати всех вложений из одного сообщения электронной почты

4. Нажмите кнопку Печать.

5. Во всплывающем диалоговом окне «Открытие вложения электронной почты» нажмите кнопку Открыть, чтобы продолжить. ()Примечание: это диалоговое окно появляется для каждого вложения отдельно.)

шаги пакетной печати всех вложений из одного сообщения электронной почты

Теперь все вложения из выбранного письма будут напечатаны сразу.

Пакетная печать всех вложений и изображений в нескольких выбранных письмах

Чтобы распечатать все вложения и изображения из тела сообщения сразу в нескольких письмах Outlook, выполните приведённые ниже шаги для применения кода VBA.

1. В Списке писем удерживайте клавиши Ctrl или Shift, чтобы выбрать несколько писем, вложения которых вы хотите распечатать.

2. Нажмите сочетание клавиш Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

3. В окне Microsoft Visual Basic для приложений выберите Сервис > Ссылки. Установите флажок рядом с пунктом Microsoft Scripting Runtime, как показано ниже, и нажмите ОК.

шаги пакетной печати всех вложений и изображений из нескольких выбранных сообщений электронной почты

4. Выберите Вставка > Модуль и вставьте приведённый ниже код VBA в появившееся окно модуля.

VBA: Печать всех вложений в нескольких письмах Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить этот код VBA. Теперь все вложения из выбранных писем и изображения в теле сообщения будут напечатаны.

Примечание:

  • Каждое изображение вызовет всплывающее диалоговое окно с запросом подтверждения печати, тогда как остальные типы файлов будут напечатаны напрямую.
  • Если в подписи письма присутствуют изображения, они также вызовут появление всплывающих диалоговых окон.
  • Если появляется ошибка Макросы в этом проекте отключены, ознакомьтесь с этим руководством:Как включить и отключить макросы в Outlook?

Пакетная печать всех вложений в нескольких выбранных письмах, за исключением изображений в теле сообщения

Чтобы распечатать только вложения из нескольких писем в Outlook, исключив изображения, встроенные в тело сообщения, выполните приведённые ниже шаги для применения кода VBA.

1. В Список писем удерживайте клавиши Ctrlили Shift, чтобы выбрать несколько писем, вложения из которых вы хотите распечатать.

2. Нажмите сочетание клавиш Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

3. В окне Microsoft Visual Basic для приложений выберите Сервис>Ссылки. Установите флажок напротив параметра Microsoft Scripting Runtime, как показано ниже. После этого нажмите ОК.

шаги пакетной печати всех вложений из нескольких выбранных сообщений электронной почты, за исключением изображений в теле письма

4. Выберите Вставка>Модульи вставьте приведённый ниже код VBA в новое окно модуля.

VBA: Печать всех вложений в нескольких письмах Outlook

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить этот код VBA. Теперь все вложения из выбранных писем будут напечатаны.

Примечание:

  • Каждое прикреплённое изображение вызовет всплывающее диалоговое окно с запросом подтверждения печати, тогда как остальные типы файлов будут напечатаны напрямую.
  • Изображения, встроенные в текст сообщения, не будут напечатаны.
  • Если появляется ошибка Макросы в этом проекте отключены, ознакомьтесь с этим руководством:Как включить и отключить макросы в Outlook?

Демонстрация: печать одного или всех вложений в письме Outlook

 

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

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

🤖KUTOOLS AI:Использует передовые технологии ИИ для удобной работы с электронной почтой: ответы, составление резюме, оптимизация, расширение, перевод и создание писем.

📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

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

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

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

👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

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

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

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

kutools for outlook features1kutools for outlook features2

🚀 Скачать одним щелчком — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

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

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