Note: The other languages of the website are Google-translated. Back to English

Jak tisknout všechny přílohy v jednom / více e-mailů v aplikaci Outlook?

Jak víte, vytiskne pouze obsah e-mailu, jako je záhlaví, tělo, když kliknete na Soubor > Tisk v aplikaci Microsoft Outlook, ale nevytisknout přílohy. Zde vám ukážeme, jak snadno vytisknout všechny přílohy ve vybraném e-mailu v aplikaci Microsoft Outlook.


Tiskněte všechny přílohy v jedné e-mailové zprávě jeden po druhém

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ŘENO .

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).


ukládat přílohy do více e-mailů kto9

Hromadně vytiskněte všechny přílohy v jedné e-mailové zprávě

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ŘENO 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.


Dávkový tisk všech příloh a obrázků ve více vybraných e-mailech

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?

Dávkový tisk všech příloh ve více vybraných e-mailech kromě obrázků v těle

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?

 


Ukázka: vytiskněte jednu nebo všechny přílohy v e-mailu aplikace Outlook


Tip: V tomto videu, Kutools kartu přidal uživatel Kutools pro aplikaci Outlook. Pokud to potřebujete, klikněte prosím zde mít 60denní bezplatnou zkušební verzi bez omezení!


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (23)
Hodnocení 5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
To je velmi užitečné, ale nepomůže mi to s Office 365?
Tento komentář byl moderátorem webu minimalizován
Na tuto část bych mohl přijít sám – snažím se přijít na to, proč se přílohy nevytisknou, přestože to dělám. U každé přílohy vyskočí chybová zpráva s dotazem, zda chci "otevřít" nebo "uložit". Výběrem kterékoli možnosti získáte přesně tyto výsledky – jinými slovy, stále žádný tisk, pouze otevření nebo uložení. Mám 20 příloh ze 4 emailů. Opravdu se mi nechce otevírat 80 dokumentů jen proto, abych je mohl vytisknout. Je jasné, že existuje nějaké bezpečnostní nastavení „zachraň mě před sebou“, které je třeba odstranit, abych mohl používat svůj vlastní počítač a operační systém, který jsem si koupil a zaplatil. To je to, co potřebuji vědět.
Tento komentář byl moderátorem webu minimalizován
Dvojitým kliknutím na e-mail se „otevře sám“. Klikněte pravým tlačítkem na jednu z příloh a klikněte na „vybrat vše“ a poté na „rychlý tisk“.
Tento komentář byl moderátorem webu minimalizován
Souhlas s Leah, tohle nefunguje. Vytiskne pouze hlavní část e-mailu a první přílohu, ne všechny. Potřebujete pokyny, jak je všechny vytisknout pomocí výše uvedených možností „vybrat vše“.
Tento komentář byl moderátorem webu minimalizován
pokud chcete vytisknout všechny přílohy společně v 1 e-mailu, postupujte takto. nejprve si vytvořte složku na ploše....tu jsem pojmenoval „tisk“. přejděte na e-mail s přílohami....označte všechny přílohy, klikněte pravým tlačítkem a uložte všechny přílohy do složky pro tisk. Otevřete složku tisku.....označte všechny.....klikněte pravým tlačítkem.....tisknout.



teď kdybych jen mohl přijít na to, jak vytisknout všechny přílohy ve 200 e-mailech, aniž bych je musel otevírat a tisknout.
Tento komentář byl moderátorem webu minimalizován
Funkce Odpojit vše (přílohy) aplikace Kutools pro Outlook vám může pomoci stáhnout všechny přílohy z více e-mailů několika kliknutími! https://www.extendoffice.com/product/kutools-for-outlook/outlook-detach-attachments.html
Tento komentář byl moderátorem webu minimalizován
pokud má pdf stejný název, makro vytiskne pouze jedno pdf, jak mohu změnit kód, abych upravil název pdf?
Tento komentář byl moderátorem webu minimalizován
kód VBA uvádí, že syntaxe je chyba
Tento komentář byl moderátorem webu minimalizován
na řádku 9, odstranění "On Error Resume Next" fungovalo pro mě.
Tento komentář byl moderátorem webu minimalizován
ano, tohle mi taky fungovalo. Děkuji!
Tento komentář byl moderátorem webu minimalizován
Děkuji 
Tento komentář byl moderátorem webu minimalizován
Ahoj, už pár týdnů používám tuto zkratku, tisknu všechny přílohy z více e-mailů najednou a nedávno jsem musel odstranit řádek 9 jak řekla Nilanka, což fungovalo, ale toto už nefunguje. Zobrazuje se mi varovné pole, které říká, že makra v tomto projektu jsou zakázána.....a tak dále...pokud má někdo řešení, aby to fungovalo tak, jak to bylo doposud, prosím lmk, protože vybírám asi 60 e-maily, které všechny obsahují přílohy k tisku. dík
Tento komentář byl moderátorem webu minimalizován
Tento komentář byl moderátorem webu minimalizován
Ahoj všichni, aktualizovali jsme kód VBA v tutoriálu dne 2022/08/03. Pokud stále potřebujete vytisknout všechny přílohy, zkontrolujte prosím nový kód. 😊
Tento komentář byl moderátorem webu minimalizován
Ahoj, včera mi to fungovalo dobře, ale teď mi to píše 'makra v tomto projektu jsou zakázána' Nějaká rada, jak je povolit? 
Tento komentář byl moderátorem webu minimalizován
Tento komentář byl moderátorem webu minimalizován
Vielen, vielen Dank dafür! Hat uns enorm viel Arbeit erspart.Auch ich must - wie beits in den Comments geschrieben - die neunte Zeile "Dim xAttachment As Outlook. Attachment On Error Resume Next" entfernen, dann der der Code einfandfrei
Tento komentář byl moderátorem webu minimalizován
ahoj, möchte nur den Anhang der Mails von der angegebenen Adresse senden, wie kann ich das machen, danke
Tento komentář byl moderátorem webu minimalizován
Používám Microsoft 365 a po odstranění řádku 9 to fungovalo. Díky! To mi ušetřilo trochu času.
Hodnocení 5 z 5
Tento komentář byl moderátorem webu minimalizován
Vážení,

Zkoušel jsem VBA a kód běží, ale na obrazovce se otevírá mnoho vyskakovacích oken pro tisk obrázků z podpisu pošty (zřejmě se to považuje za přílohu). Ví někdo, jak to vyřešit?

S.
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Je nám líto, že tisk obrázků zobrazí vyskakovací okna. Chcete-li stáhnout všechny obrázky, budete muset každý potvrdit. Pokud nepotřebujete tisknout obrázky, klikněte na Storno.

Amanda
Tento komentář byl moderátorem webu minimalizován
Pokud nechcete tisknout obrázky v těle zprávy, použijte prosím níže uvedený kód:
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
Tento komentář byl moderátorem webu minimalizován
Drahá Amanda,

Děkuji za kód. Fungovalo to!

S.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL