Pokud jste v oboru, kde každý den dostáváte nespočet e-mailů, pravděpodobně dostanete mnoho e-mailů s více přílohami. Použití ruční metody k extrahování příloh může být časově náročné, pokud je jich ke stažení mnoho. Naštěstí je snadné uložit více e-mailových příloh najednou pomocí aplikace Microsoft Outlook.
V tomto kurzu vám ukážeme, jak stáhnout všechny přílohy z Outlooku.
Obsah
Jak stáhnout všechny e-mailové přílohy aplikace Microsoft Outlook najednou v systému Windows
Chcete-li stáhnout všechny přílohy najednou pomocí aplikace Microsoft Outlook pro Windows, postupujte takto:
Otevřete aplikaci Outlook a přihlaste se do svého profilu aplikace Outlook. Vyberte e-mail s požadovanými přílohami aplikace Outlook. Klikněte pravým tlačítkem na libovolný soubor přílohy a v rozevírací nabídce vyberte Uložit všechny přílohy. Pokud chcete uložit pouze jeden soubor, vyberte Uložit jako. 
V novém dialogovém okně podržte klávesu CTRL na klávesnici a vyberte všechny přílohy, které chcete stáhnout. Klepněte na tlačítko OK. 
Vyberte umístění, kam chcete soubory uložit, a stiskněte tlačítko OK.
Jak stáhnout všechny e-mailové přílohy Microsoft Outlook najednou na Mac
Zde je návod, jak stáhnout všechny přílohy pomocí Outlooku pro Mac:
Otevřete aplikaci MS Outlook. Vyberte e-mailovou zprávu, která obsahuje vaše přílohy. Klikněte na Přílohy a vyberte Stáhnout vše. 
Vyberte umístění, kam chcete přílohy uložit, a vyberte možnost Vybrat.
Jak stáhnout více příloh aplikace Outlook z více e-mailů
Je také možné stáhnout více příloh z mnoha e-mailů najednou. Postup:
Použijte kód VBA
Pokud používáte aplikaci Outlook 2019, 2016, 2013, 2010, 2007 nebo 2003, můžete pomocí editoru VBA stáhnout více příloh z více e-mailů.
Otevřete složku Dokumenty a vytvořte novou složku s názvem „Přílohy“. Zde se stahují vaše přílohy. Otevřete Microsoft Outlook. Stisknutím kláves Alt a F11 na klávesnici otevřete editor VBA. Klepněte pravým tlačítkem na Objekt Microsoft Outlook > Vložit > Vložit modul. 
Zkopírujte následující kód do editoru a stiskněte Enter:
Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
‘Aktualizace 20200821
Dim xMailItem jako Outlook.MailItem
Dim xAttachments jako Outlook.Attachments
Dim xSelection jako Outlook.Selection
Dim i jako dlouhé
Dim xAttCount jako dlouhé
Dim xFilePath jako řetězec, xFolderPath jako řetězec, xSaveFiles jako řetězec
Při chybě Obnovit další
xFolderPath=CreateObject(“WScript.Shell”).SpecialFolders(16)
Nastavit xSelection=Outlook.Application.ActiveExplorer.Selection
xFolderPath=xFolderPath & “\Attachments\”
Pokud VBA.Dir(xFolderPath, vbDirectory)=vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath=“”
Pro každou xMailItem v xSelection
Nastavit xAttachments=xMailItem.Attachments
xAttCount=xAttachments.Count
xSaveFiles=“”
If xAttCount > 0 Then
For i=xAttCount na 1 krok-1
GCount=0
xFilePath=xFolderPath & xAttachments.Item(i).FileName
GFilepath=xFilePath
xFilePath=FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item (i))=False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles=xSaveFiles & vbCrLf & „
Jinak
xSaveFiles=xSaveFiles & „
“ & „“ & xFilePath & „“
End If
End If
Další i
End If
Další
Nastavit xAttachments=nic
Nastavit xMailItem=nic
Nastavit xSelection=nic
End Sub
Funkce FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Nastavit xFso=CreateObject(“Scripting.FileSystemObject”)
xPath=FilePath
FileRename=xPath
Pokud xFso.FileExists(xPath) Then
GCount=GCount + 1
xPath=xFso.GetParentFolderName(GFilepath) & „\“ & xFso.GetBaseName(GFilepath) & ” ” & GCount & „.“ + xFso.GetExtensionName(GFilepath)
FileRename=FileRename(xPath)
End If
xFso=Nothing
End Function
Funkce IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
Při chybě Obnovit další
IsEmbeddedAttachment=False
Nastavit xItem=Attach.Parent
Pokud je xItem. BodyFormat <> olFormatHTML, pak funkce ukončení
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
Poznámka: Můžete zkopírovat původní kód výše z Extend Office a vložte jej do editoru.
Stisknutím klávesy F5 spusťte skript. Může se zobrazit vyskakovací okno s výzvou k povolení akce.
Použití externího nástroje
Pokud používáte jinou verzi aplikace Outlook, chcete stáhnout jiný typ souboru než PST nebo vám metoda VBA připadá těžkopádná, můžete si stáhnout nástroj, který vám pomůže stáhnout více příloh aplikace Outlook najednou.
Aplikace jako Outlook Attachment Extractor mají funkci ukládání příloh pouze ze souborů PST, ale také z jiných formátů souborů, jako jsou soubory OST, BAK, MSG, OLK a OLM. Aplikaci můžete také nakonfigurovat tak, aby filtrovala přílohy podle velikosti souboru, data nebo odesílatele.
Jak stáhnout všechny přílohy z poškozeného souboru
Pokud nemůžete otevřít, zobrazit nebo uložit souborové přílohy v aplikaci Outlook, soubor PST aplikace Microsoft Outlook může být poškozen nebo poškozen. Soubor PST můžete opravit a načíst přílohu pomocí nástrojů, jako je aplikace SCANPST.exe.
Chcete-li použít tento nástroj, zavřete aplikaci Outlook a přejděte do jednoho z následujících umístění v závislosti na verzi aplikace Outlook:
Outlook 2019: C:\Program Files (x86)\Microsoft Office\root \Office16 Outlook 2016: C:\Program Files (x86)\Microsoft Office\root\Office16 Outlook 2013: C:\Program Files (x86)\Microsoft Office\Office15 Outlook 2010: C:\Program Files (x86)\Microsoft Office \Office14 Outlook 2007: C:\Program Files (x86)\Microsoft Office\Office12
Potom poklepejte na SCANPST.EXE.
Vyberte možnost Procházet, vyhledejte datový soubor aplikace Outlook, který chcete skenovat, a stiskněte tlačítko Start.
Pokud nástroj nalezne chyby, pokuste se je opravit výběrem možnosti Opravit. Po dokončení restartujte aplikaci Outlook a zkontrolujte, zda nyní funguje.
Zefektivněte své e-mailové aktivity
Stahování více souborů z aplikace Outlook je snadné a dokonce můžete stahovat více souborů z více e-mailů najednou. Pokud vám připadají integrované metody v Outlooku příliš obtížné, můžete si stáhnout nástroje, jako je Outlook Attachment Extractor abych vám pomohl.
