3 způsoby, jak stáhnout všechny přílohy z aplikace Outlook

Projděte si tohoto průvodce, abyste se naučili všechny způsoby

Jako profesionální uživatel může být stahování spousty příloh z e-mailů přijatých v aplikaci Outlook monotónní a časově náročné.

Naštěstí můžete snadno stáhnout více příloh z jednoho e-mailu v Outlooku najednou, aniž byste museli pro každou z nich stisknout tlačítko Uložit. Kromě toho je také možné stáhnout více příloh přítomných ve více e-mailech pomocí jednoduchého řešení.

Pokud vás zajímá postup krok za krokem, zůstaňte s námi, protože vás tímto postupem provedeme.

Jak stáhnu všechny přílohy z e-mailu?

1. Pomocí aplikace pro stolní počítače

1. Spusťte Microsoft Outlook aplikace na vašem počítači se systémem Windows.
2. Vyhledejte a otevřete tento e-mail v podokně čtení, ze kterého stahujete přílohy.
3. Přepněte na
   instagram story viewer
   Přílohy z horního panelu nabídek klepněte pravým tlačítkem na jednu z příloh souboru v pravé části a vyberte Uložte všechny přílohy v rozevírací nabídce.
4. zmáčkni Ctrl a v malém dialogovém okně, které se otevře, vyberte všechny přílohy, které chcete stáhnout.
5. zmáčkni OK po výběru požadovaných příloh.
6. Nový Uložit jako otevře se vyskakovací okno pro uložení příloh. Přejděte do složky, do které chcete uložit soubory přílohy, a stiskněte tlačítko OK tlačítko vpravo dole pro zahájení stahování přílohy.

Můžete snadno stáhnout všechny soubory připojené k e-mailu najednou místo stahování každého souboru jednotlivě.

2. Pomocí webové aplikace

1. Přístup k Webová aplikace Microsoft Outlook pomocí preferovaného webového prohlížeče a po zobrazení výzvy k přihlášení zadejte své přihlašovací údaje.
2. Vybrat Doručená pošta složky z levého panelu nabídek v Domov části webové aplikace.
3. Poklepáním na příslušný e-mail zobrazíte obsah e-mailu v novém okně.
4. Klikněte na Stáhnout vše tlačítko pro stažení příloh ve formě souboru ZIP.
5. Vyberte umístění stahování a stiskněte tlačítko OK tlačítko pokud Uložit jako otevře se dialogové okno.

Jedná se o přímou metodu stažení všech e-mailových příloh z jednoho e-mailu, pokud dáváte přednost webové aplikaci místo aplikace Outlook.

Jak stáhnu všechny přílohy z více e-mailů?

POZNÁMKA

Tuto metodu můžete vyzkoušet, pouze pokud používáte Outlook 2019, 2016, 2013, 2010, 2007 nebo 2003.

1. Vytvořit novou složku

1. Použijte Okna + E zkratka ke spuštění Průzkumník souborů.
2. Přejděte na Dokumenty složku z levého postranního panelu.
3. Klepněte pravým tlačítkem myši kdekoli v pravé části a vyberte Nový následován Složka z kontextové nabídky.
4. Poklepejte na název složky a přejmenujte ji jako Přílohy.

2. Vytvořte skript VBA

1. Nyní spusťte aplikaci Outlook na počítači se systémem Windows.
2. Vyber Soubor možnost a poté vyberte Možnosti z levého bočního panelu.
3. Vybrat Přizpůsobit pás karet z levého panelu Možnosti aplikace Word okno.
4. Vybrat Vývojář možnost v Hlavní karty a stiskněte tlačítko Plus ikonu pro přidání režimu vývojáře do nabídky pásu karet aplikace Outlook.
5. Zavřete vyskakovací okno Možnosti aplikace Word a vyberte Vývojářský režim následován Visual Basic z hlavní nabídky.
6. Vybrat Projekt1 zobrazí se jako výchozí a poté vyberte Vložit následován Modul pro přístup do okna Modul.
7. Nyní zkopírujte a vložte následující kód do Modul1 a zavřete okno.

Dim GCount As Integer. Dim GFilepath As String. Public Sub SaveAttachments()
'Update 20200821. Dim xMailItem As Outlook.MailItem. Dim xAttachments As Outlook.Attachments. Dim xSelection As Outlook.Selection. Dim i As Long. Dim xAttCount As Long. Dim xFilePath As String, xFolderPath As String, xSaveFiles As String. On Error Resume Next. xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection. xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then VBA.MkDir xFolderPath. End If. GFilepath = ""
For Each xMailItem In xSelection Set xAttachments = xMailItem.Attachments xAttCount = xAttachments.Count xSaveFiles = "" If xAttCount > 0 Then For i = xAttCount To 1 Step -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 & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" End If End If Next i End If. Next. Set xAttachments = Nothing. Set xMailItem = Nothing. Set xSelection = Nothing. End Sub Function FileRename(FilePath As String) As String. Dim xPath As String. Dim xFso As FileSystemObject. On Error Resume Next. Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath. FileRename = xPath. If 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 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

3. Spusťte skript VBS

1. Přepněte na Vývojářský režim a poté vyberte Visual Basic z pásu karet aplikace Outlook.
2. Vybrat Modul1 a udeřit do F5 klíč ke spuštění kódu.
3. Klikněte na Uložit přílohu po výběru příloh potvrďte akci.

Skripty VBA umožňují automatizovat proces stahování příloh v aplikaci Microsoft Outlook. Se skripty VBA byste však měli postupovat opatrně, aby nedošlo k poškození počítače.

To je vše v tomto návodu! Doufám, že jste si vědomi různých způsobů, jak si můžete snadno stáhnout všechny přílohy e-mailů z aplikace Microsoft Outlook.

Pokud narazíte na Něco se pokazilo Chyba v Outlooku aplikaci, vyzkoušejte řešení navržená v této příručce.

Pokud máte nějaké dotazy nebo víte o jiných metodách, dejte nám vědět v sekci komentářů.