Как распечатать вложения только из одного или выбранных писем в Outlook?
В Outlook вы можете распечатать электронные письма, но распечатали ли вы вложения только из одного электронного письма или выбранных писем в Outlook? В этой статье я расскажу о приемах решения этой задачи.
Распечатайте вложения только из одного электронного письма с помощью Quick Print
Печатать только вложения из выбранных писем с VBA
Распечатайте вложения только из одного электронного письма с помощью Quick Print
Чтобы распечатать только вложения без тела письма, вы можете использовать функцию быстрой печати.
1. В окне сообщения щелкните правой кнопкой мыши вложение, которое хотите распечатать, выберите Быстрая печать из контекстного меню.
2. Затем нажмите Сохранить > Сохранить для сохранения файла вложения в определенном месте.
3. Теперь перейдите в то место, где вы разместили прикрепленный файл, и откройте файл, чтобы распечатать его как обычно.
Печатать только вложения из выбранных писем с VBA
Если вы хотите распечатать вложения из выбранных писем, вы можете использовать код VBA.
1. Выберите электронные письма, вложения которых вы хотите распечатать, нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Двойной клик Эта сессия Outlook от Project1 панели, скопируйте и вставьте приведенный ниже код в скрипт.
VBA: печать вложений из выбранных писем
Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
If xItem.Class = olMail Then
Set xMailItem = xItem
If xMailItem.Attachments.Count = 0 Then Exit Sub
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
xFilePath = xTmpFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
xTempFolderItem.InvokeVerbEx ("print")
Next
End If
Next
'If xFSO.FolderExists(xTmpFldPath) Then
' xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub
3. Затем нажмите Инструменты > РекомендацииИ в Рекомендации диалог, проверьте Среда выполнения сценариев Microsoft флажок.
4. Нажмите OK, Затем нажмите F5 Клавиша, чтобы распечатать все вложения в выбранных письмах сразу.
Внимание: Если прикреплен рисунок, появится значок Печать изображений сначала диалоговое окно, щелкните Печать / PDF , чтобы перейти к Сохранить вывод на печать как Диалог.
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.