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.
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:
- 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?
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? 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 Pro: Dá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.