Jak uložit pouze konkrétní (Excel) přílohu v aplikaci Outlook?

Outlook poskytuje funkci Uložit všechny přílohy, která vám pomůže uložit všechny přílohy v e-mailu do konkrétní složky najednou. Pokud však chcete do jednoho nebo více e-mailů uložit pouze určité typy příloh, jako jsou sešity Excel, dokumenty Word a tak dále, jak toho dosáhnete? V tomto tutoriálu vám nabízíme dva způsoby, jak tento problém vyřešit.

Pomocí kódu VBA ukládejte v aplikaci Outlook pouze přílohy určitého formátu souboru
Pomocí úžasného nástroje můžete v Outlooku snadno ukládat pouze přílohy určitého formátu souboru

Pomocí kódu VBA ukládejte v aplikaci Outlook pouze přílohy určitého formátu souboru

Následující kód VBA může pomoci uložit pouze přílohy určitého formátu souboru v jednom nebo více vybraných e-mailech do konkrétní složky. Postupujte prosím následovně.

1. Spusťte aplikaci Outlook. V seznamu pošty vyberte jeden nebo více e-mailů, ze kterých chcete uložit pouze přílohy v určitém formátu souboru.

2. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno. V úvodním okně klikněte na Vložit > Modula poté zkopírujte níže uvedený kód VBA do okna modulu.

Kód VBA: Uložte pouze konkrétní přílohu v e-mailu nebo více e-mailů do složky

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "
" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. cvaknutí Tools > Reference, V roce Reference - projekt dialogové okno, zkontrolujte Microsoft Scripting Runtime a klikněte na tlačítko OK .

4. zmáčkni F5 klíč ke spuštění kódu. Ve vyskočené Vyhledejte složku V dialogovém okně vyberte jednu složku pro uložení příloh.

5. A poté klepněte na OK, v následujícím Kutools pro aplikaci Outlook V dialogovém okně zadejte příponu souboru přílohy, kterou uložíte, do textového pole a klikněte na OK.

Poznámka: V případě více přípon souborů je třeba je oddělit čárkami.

Poté se uloží pouze zadané přílohy.

Pomocí úžasného nástroje můžete v Outlooku snadno ukládat pouze přílohy určitého formátu souboru

Pokud s VBA začínáte, zde vám doporučujeme použít Uložit všechny přílohy vlastnost Kutools pro aplikaci Outlook. Pomocí této funkce můžete v Outlooku snadno ukládat pouze přílohy v konkrétním formátu souboru.

1. Vyberte e-maily, ze kterých chcete ukládat pouze přílohy v určitém formátu souboru.

2. cvaknutí Kutools > Nástroje pro připojení > Uložit všechny.

3. V Uložit nastavení dialogové okno, musíte nakonfigurovat následujícím způsobem.

3.1) V Uložte přílohy do této složky , klikněte na tlačítko pro výběr složky pro uložení příloh;

3.2) Klikněte na Pokročilé volby tlačítko pro rozbalení dialogového okna;

3.3) V Podmínky filtru zkontrolujte část Typ přílohy zaškrtávací políčko, poté do textu zadejte příponu souboru příloh, které budete ukládat.

Tip: U více přípon souborů je třeba je oddělit středníky.

3.4) Klikněte na OK knoflík. Viz screenshot:

4. Objeví se dialogové okno, které vám připomene, že chcete uložit přílohy, klikněte OK pokračovat.

5. Poté se objeví další dialogové okno, které vám řekne, kolik příloh bylo uloženo, klepněte na OK .

Nyní jsou uloženy pouze přílohy konkrétního formátu souboru.

klikněte zde dozvědět se více o této funkci.

Související články:

• Jak uložit všechny přílohy z e-mailových zpráv v aplikaci Outlook?
• Jak odstranit všechny přílohy z e-mailu v aplikaci Outlook?

---

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.

Čtěte více... Stáhnout teď...