Как распечатать все вложения в одном / нескольких письмах в Outlook?
Как вы знаете, он будет печатать только содержимое электронного письма, такое как заголовок, тело, когда вы нажимаете Файл > Печать / PDF в Microsoft Outlook, но не распечатывать вложения. Здесь мы покажем вам, как легко распечатать все вложения в выбранном электронном письме в Microsoft Outlook.
- Печатать все вложения в одном сообщении электронной почты по одному
- Пакетная печать всех вложений в одном сообщении электронной почты
- Пакетная печать всех вложений и изображений в нескольких выбранных электронных письмах
- Пакетная печать всех вложений в нескольких выбранных электронных письмах, кроме изображений в теле
Печатать все вложения в одном сообщении электронной почты по одному
Microsoft Outlook предоставляет нам Быстрая печать функция, которая может помочь вам распечатать вложения в сообщении электронной почты по одному.
1. Выберите сообщение электронной почты, вложения которого вы распечатаете позже.
2. Щелкните одно вложение в этом письме.
3, Нажмите Быстрая печать в Действия группы на Вложения меню.
Обратите внимание Инструменты для вложения не будет активирован, пока вы не нажмете на вложения в письмах.
4. Появится диалоговое окно «Открытие почтового вложения», нажмите кнопку Откройте .
Обратите внимание, что этот шаг откроет выбранное вложение и одновременно распечатает это выбранное вложение.
Чтобы распечатать другие вложения в этом электронном письме, повторите шаги 2–4.
Быстро сохранять / экспортировать все вложения из нескольких писем в Outlook
Обычно мы можем сохранить вложения из одного письма, активировав Инструменты для вложения и применение Сохранить все вложения функция в Outlook. Но что, если сохранять вложения из нескольких писем или из всей почтовой папки в Outlook? Попробуйте Kutools для Outlook Сохраните все (Вложения) особенность.
Пакетная печать всех вложений в одном сообщении электронной почты
Если в одном сообщении электронной почты много вложений, их распечатка по одному займет много времени. А следующий метод поможет вам легко выполнить пакетную печать всех вложений в выбранном сообщении электронной почты.
1. Выберите сообщение электронной почты, вложения которого вы распечатаете позже.
2. В Outlook 2010 или более поздних версиях щелкните значок Файл > Печать / PDF > Параметры печати. См. Следующий снимок экрана:
3. В диалоговом окне «Печать» установите флажок Распечатать прикрепленные файлы. Вложения будут печататься только на принтере по умолчанию. вариант в Параметры печати .
4, Нажмите Печать / PDF .
5. В появившемся диалоговом окне «Открытие почтового вложения» щелкните значок Откройте кнопку, чтобы продолжить. (Внимание: Это диалоговое окно будет появляться для каждого вложения отдельно.)
Теперь все вложения в этом выбранном сообщении электронной почты будут распечатаны сразу.
Пакетная печать всех вложений и изображений в нескольких выбранных электронных письмах
Чтобы распечатать все вложения в нескольких электронных письмах, а также все изображения в теле сообщения в Outlook, выполните следующие действия, чтобы применить код VBA.
1. В списке рассылки удерживайте Ctrl or Shift клавиши для выбора нескольких писем, вложения которых вы будете распечатывать.
2, нажмите другой + F11 вместе, чтобы открыть окно Microsoft Visual Basic для приложений.
3. В окне Microsoft Visual Basic для приложений щелкните Инструменты > Рекомендации. А затем проверьте Среда выполнения сценариев Microsoft вариант, как показано ниже. Когда закончите, нажмите OK.
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 ключ или щелкните Run кнопку для запуска этого кода VBA. Теперь вы увидите, что все вложения в выбранных электронных письмах и изображения в теле сообщения распечатываются.
Примечание:
- Каждое изображение вызывает всплывающее диалоговое окно с запросом на подтверждение печати. В то время как другие типы файлов будут напечатаны напрямую.
- Если в подписи электронной почты есть изображения, они также будут вызывать всплывающие диалоговые окна.
- Если вы Макросы в этом проекте отключены ошибка, пожалуйста, проверьте этот учебник: Как включить и отключить макросы в Outlook?
Пакетная печать всех вложений в нескольких выбранных электронных письмах, кроме изображений в теле
Чтобы распечатать только вложения в нескольких электронных письмах, но изображения в теле сообщения в Outlook, выполните следующие действия, чтобы применить код VBA.
1. В списке рассылки удерживайте Ctrl or Shift клавиши для выбора нескольких писем, вложения которых вы будете распечатывать.
2, нажмите другой + F11 вместе, чтобы открыть окно Microsoft Visual Basic для приложений.
3. В окне Microsoft Visual Basic для приложений щелкните Инструменты > Рекомендации. А затем проверьте Среда выполнения сценариев Microsoft вариант, как показано ниже. Когда закончите, нажмите OK.
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 ключ или щелкните Run кнопку для запуска этого кода VBA. Теперь вы увидите, что все вложения в выбранных электронных письмах распечатаны.
Примечание:
- Каждое прикрепленное изображение вызывает всплывающее диалоговое окно с запросом на подтверждение печати. В то время как другие типы файлов будут напечатаны напрямую.
- Изображения в теле сообщения не будут распечатаны.
- Если вы Макросы в этом проекте отключены ошибка, пожалуйста, проверьте этот учебник: Как включить и отключить макросы в Outlook?
Демонстрация: распечатайте одно или все вложения в электронном письме Outlook
Функции: В этом видео, Кутулс вкладка добавлена Kutools for Outlook. Если вам это нужно, нажмите здесь получить 60-дневную бесплатную пробную версию без ограничений!
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.