Microsoft Outlook nám poskytuje Rychlá tisk funkce, která vám pomůže tisknout přílohy v e-mailové zprávě jeden po druhém.

1. Vyberte e-mailovou zprávu, jejíž přílohy vytisknete později.

2. Klikněte na jednu přílohu v tomto e-mailu.

3, Klepněte na tlačítko Rychlá tisk tlačítko v Akce skupina na Přílohy Karta.

Poznámka: Nástroje pro připojení nebudou aktivovány, dokud nekliknete na přílohy v e-mailech.

4. Objeví se dialogové okno Opening Mail Attachment a klikněte prosím na Otevřená .

Tento krok otevře vybranou přílohu a současně vytiskne tuto vybranou přílohu.

Chcete-li vytisknout další přílohy v tomto e-mailu, opakujte kroky 2 až 4.

Rychle ukládejte / exportujte všechny přílohy z více e-mailů v Outlooku

Za normálních okolností můžeme uložit přílohy z jednoho e-mailu s aktivací Nástroje pro připojení a uplatnění Uložit všechny přílohy funkce v Outlooku. Ale co když ukládáte přílohy z více e-mailů nebo z celé složky pošty v Outlooku? Vyzkoušejte Kutools pro Outlook Uložit všechny Funkce (Přílohy).

Pokud je v jedné e-mailové zprávě mnoho příloh, bude jejich tisk jednu po druhé časově náročné. A následující metoda vás snadno provede dávkovým tiskem všech příloh ve vybrané e-mailové zprávě.

1. Vyberte e-mailovou zprávu, jejíž přílohy vytisknete později.

2. V aplikaci Outlook 2010 nebo novějších verzích klikněte na ikonu Soubor > Tisk > Možnosti tisku. Viz následující snímek obrazovky:

3. V dialogovém okně Tisk zaškrtněte Tisk přiložených souborů. Přílohy se vytisknou pouze na výchozí tiskárně možnost v Možnosti tisku sekce.

4, Klepněte na tlačítko Tisk .

5. Ve vyskakovacím dialogovém okně Otevření přílohy pošty klikněte na ikonu Otevřená tlačítko pokračovat. (Poznámka: Toto dialogové okno vyskočí pro každou přílohu zvlášť.)

Nyní budou všechny přílohy v této vybrané e-mailové zprávě vytištěny najednou.

Chcete-li vytisknout všechny přílohy ve více e-mailech a také všechny obrázky v těle zprávy v aplikaci Outlook, použijte kód VBA podle níže uvedených kroků.

1. V seznamu adresátů prosím podržte Ctrl or směna klávesy pro výběr více e-mailů, jejichž přílohy vytisknete.

2. lis Další + F11 společně otevřete okno Microsoft Visual Basic pro aplikace.

3. V okně Microsoft Visual Basic pro aplikace klikněte na Tools > Reference. A pak zkontrolujte Microsoft Scripting Runtime možnost, jak je uvedeno níže. Po dokončení klikněte OK.

4, klikněte Vložit > Modula poté vložte pod kód VBA do nového okna modulu.

VBA: Tiskněte všechny přílohy ve více e-mailech aplikace 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. lis F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto kódu VBA. Nyní uvidíte, že jsou vytištěny všechny přílohy ve vybraných e-mailech a obrázky v těle zprávy.

Poznámka:

• U každého obrázku se zobrazí vyskakovací dialogové okno s žádostí o potvrzení tisku. Zatímco ostatní typy souborů budou vytištěny přímo.
• Pokud jsou v e-mailovém podpisu obrázky, zobrazí se také vyskakovací dialogová okna.
• Pokud se dostanete Makra v tomto projektu jsou zakázána chyba, zkontrolujte prosím tento tutoriál: Jak povolit a zakázat makra v aplikaci Outlook?

Chcete-li v aplikaci Outlook tisknout pouze přílohy ve více e-mailech, ale pouze obrázky v těle zprávy, použijte kód VBA podle následujících kroků.

1. V seznamu adresátů prosím podržte Ctrl or směna klávesy pro výběr více e-mailů, jejichž přílohy vytisknete.

2. lis Další + F11 společně otevřete okno Microsoft Visual Basic pro aplikace.

3. V okně Microsoft Visual Basic pro aplikace klikněte na Tools > Reference. A pak zkontrolujte Microsoft Scripting Runtime možnost, jak je uvedeno níže. Po dokončení klikněte OK.

4, klikněte Vložit > Modula poté vložte pod kód VBA do nového okna modulu.

VBA: Tiskněte všechny přílohy ve více e-mailech aplikace 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. lis F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto kódu VBA. Nyní uvidíte, že jsou vytištěny všechny přílohy ve vybraných e-mailech.

Poznámka:

• Každý připojený obrázek zobrazí vyskakovací dialogové okno s žádostí o potvrzení tisku. Zatímco ostatní typy souborů budou vytištěny přímo.
• Obrázky v těle zprávy nebudou vytištěny.
• Pokud se dostanete Makra v tomto projektu jsou zakázána chyba, zkontrolujte prosím tento tutoriál: Jak povolit a zakázat makra v aplikaci Outlook?