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

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

Печать только вложения(й) из одного письма с помощью функции «Быстрая печать»

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

---

Печать только вложения(й) из одного письма с помощью функции «Быстрая печать»

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

1. В окне сообщения щёлкните правой кнопкой мыши по вложению, которое хотите распечатать, и выберите в контекстном меню пункт «Быстрая печать».

2. Затем нажмите «Сохранить» > «Сохранить», чтобы сохранить вложенный файл в нужном месте.

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

---

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

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

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

2. В области «Project1» дважды щёлкните по «ThisOutlookSession» и вставьте приведённый ниже код в открывшийся скрипт.

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 Scripting Runtime».
  

4. Нажмите «ОК», а затем — клавишу «F5», чтобы одновременно распечатать все вложения из выбранных писем.

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