Přejít k hlavnímu obsahu

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.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Související články:


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations