Microsoft Outlook надає нам Швидкий друк функція, яка може допомогти вам роздрукувати вкладення в електронному повідомленні по одному.

1. Виберіть повідомлення електронної пошти, вкладення якого ви надрукуєте пізніше.

2. Клацніть одне вкладення в цьому електронному листі.

3. Натисніть Швидкий друк кнопка в Дії група на Attachments Вкладка.

Примітка: Інструменти кріплення не буде активовано, доки ви не клацнете вкладення в електронних листах.

4. З’явиться діалогове вікно «Відкрити вкладення до електронної пошти», і натисніть відкритий кнопки.

Зверніть увагу, що цей крок відкриє вибране вкладення та одночасно роздрукує цей вибраний вкладення.

Щоб надрукувати інші вкладення у цьому електронному листі, повторіть кроки 2 - 4.

Швидко зберігайте / експортуйте всі вкладення з декількох електронних листів в Outlook

Зазвичай ми можемо зберігати вкладення з одного електронного листа з активацією Інструменти кріплення і застосовуючи Зберегти всі вкладення функція в Outlook. Але що робити, якщо зберегти вкладення з декількох електронних листів або з усієї папки пошти в Outlook? Спробуйте Kutools для Outlook Зберегти все Функція (вкладення).

Якщо в одному повідомленні електронної пошти багато вкладень, роздрукувати їх одне за іншим займе багато часу. А наведений нижче метод допоможе вам легко надрукувати всі вкладення у вибраному електронному повідомленні.

1. Виберіть повідомлення електронної пошти, вкладення якого ви надрукуєте пізніше.

2. У програмі Outlook 2010 або пізнішої версії натисніть кнопку філе > друк > Параметри друку. Дивіться наступний знімок екрана:

3. У діалоговому вікні Друк поставте прапорець Роздрукувати прикріплені файли. Вкладення друкуються лише на принтері за замовчуванням опція в Параметри друку .

4. Натисніть друк кнопки.

5. У спливаючому діалоговому вікні Відкриття вкладення пошти натисніть кнопку відкритий кнопку, щоб продовжити. (примітки: Це діалогове вікно відкриється для кожного вкладення окремо.)

Тепер усі вкладення у вибраному електронному повідомленні будуть надруковані одночасно.

Щоб надрукувати всі вкладення в кількох електронних листах, а також усі зображення в тілі повідомлення в Outlook, виконайте наведені нижче дії, щоб застосувати код VBA.

1. У списку розсилки, утримуйте Ctrl or Shift клавіші для вибору декількох електронних листів, вкладення яких ви надрукуєте.

2. Прес інший + F11 клавіші разом, щоб відкрити вікно Microsoft Visual Basic for Applications.

3. У вікні Microsoft Visual Basic for Applications натисніть інструменти > посилання. А потім перевірте Виконання сценаріїв Microsoft варіант, як показано нижче. Після завершення натисніть OK.

4. Клацання Insert > Модулі, а потім вставте нижче коду 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. Тепер ви побачите, що всі вкладення у вибраних електронних листах і зображення в тілі meesage роздруковано.

Примітка:

• Кожне зображення відкриє спливаюче діалогове вікно із запитом на підтвердження друку. У той час як інші типи файлів будуть надруковані безпосередньо.
• Якщо в електронному підписі є зображення, вони також відображатимуть спливаючі діалогові вікна.
• Якщо ти отримаєш Макроси в цьому проекті вимкнено помилка, перевірте цей посібник: Як увімкнути та вимкнути макроси в Outlook?

Щоб надрукувати лише вкладення в кількох електронних листах, крім зображень у тілі повідомлення в Outlook, виконайте наведені нижче дії, щоб застосувати код VBA.

1. У списку розсилки, утримуйте Ctrl or Shift клавіші для вибору декількох електронних листів, вкладення яких ви надрукуєте.

2. Прес інший + F11 клавіші разом, щоб відкрити вікно Microsoft Visual Basic for Applications.

3. У вікні Microsoft Visual Basic for Applications натисніть інструменти > посилання. А потім перевірте Виконання сценаріїв Microsoft варіант, як показано нижче. Після завершення натисніть OK.

4. Клацання Insert > Модулі, а потім вставте нижче коду 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?