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

Author: Sun Last Modified: 2025-08-07

В Outlook можно распечатывать электронные письма, но пробовали ли вы печатать только вложения из одного или нескольких выбранных писем? В этой статье я расскажу о способах решения этой задачи.

Печать вложений только из одного письма с помощью функции быстрой печати

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

Печать вложений только из одного письма с помощью функции быстрой печати

Чтобы напечатать только вложения без текста письма, вы можете использовать функцию быстрой печати.

1. В окне сообщения щелкните правой кнопкой мыши по вложению, которое хотите распечатать, и выберите "Быстрая печать" из контекстного меню.
doc print attachment 1

2. Затем нажмите "Сохранить" > "Сохранить", чтобы сохранить файл вложения в определенном месте.
doc print attachment 2
doc print attachment 3

3. Теперь перейдите в место, куда вы сохранили файл вложения, и откройте его для обычной печати.

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

Если вы хотите распечатать вложения из выбранных писем, вы можете воспользоваться кодом VBA.

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

2. Дважды щелкните на "ThisOutlookSession" в панели "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

doc print attachment 4

3. Затем нажмите "Инструменты" > "Ссылки", и в диалоговом окне "Ссылки" отметьте флажок "Microsoft Scripting Runtime".
doc print attachment 5 doc print attachment 6

4. Нажмите "OK", затем нажмите клавишу "F5", чтобы напечатать все вложения из выбранных писем.

Примечание: Если вложение является изображением, сначала появится диалоговое окно "Печать изображений", нажмите "Печать", чтобы перейти к диалогу "Сохранить вывод печати как".
doc print attachment 7

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

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

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

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

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