Přejít k hlavnímu obsahu

Jak automaticky stahovat / ukládat přílohy z Outlooku do určité složky?

Zatímco ukládání všech příloh z jednoho e-mailu v aplikaci Outlook je jednoduché pomocí Přílohy > Uložit všechny přílohy Správa příloh z více e-mailů, zejména ve velkém množství, může být náročnější. Tento článek představuje dvě efektivní řešení pro automatické stahování příloh z e-mailů aplikace Outlook do konkrétní složky. Tyto metody jsou užitečné zejména při práci s mnoha e-maily a přílohami, zjednodušují proces a šetří čas.


Automaticky stahujte přílohy aplikace Outlook do složky pomocí jazyka VBA a pravidla

Tento přístup zahrnuje použití skriptu VBA, který po spuštění se specifickým pravidlem automaticky stáhne a uloží přílohy z e-mailů aplikace Outlook do určené složky. Pokračujte prosím následujícími kroky:

  1. Stisknout Alt + F11 k otevření Microsoft Visual Basic pro aplikace okno.
  2. klikněte Vložit > Modula poté vložte pod skript VBA do nově otevřeného Modul okno.

    VBA: Automatické ukládání příloh aplikace Outlook do určité složky

    Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
    For Each oAttachment In MItem.Attachments
    oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next
    End Sub

    Poznámka: Prosím, najděte linku sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-přílohy \"a nahraďte jej cestou k požadované cílové složce.

  3. Uložte skript VBA a zavřete soubor Microsoft Visual Basic pro aplikace okno.
  4. Přejít na Poštovní zásilka zobrazit a kliknout Domů > pravidla > Spravujte pravidla a upozornění.
  5. V otvoru Pravidla a upozornění V dialogovém okně klikněte na Nové pravidlo Tlačítko na Pravidla e-mailu Karta.
  6. v Průvodce pravidly dialogovém okně, které se objeví, vyberte Použijte pravidlo na zprávy, které dostávám a klepněte na tlačítko další .
  7. v Průvodce pravidly (Jaké podmínky chcete zkontrolovat?) dialogové okno, klepněte na tlačítko další bez výběru jakékoli možnosti. A pak klikněte na Ano tlačítko ve vyskakovacím okně Microsoft Outlook dialogové okno.
  8. V následujícím Průvodce pravidly (Co chcete se zprávou udělat?) dialogovém okně postupujte následovně:
    1. Zkontrolovat spustit skript volba. Tip: Pokud možnost nevidíte, prosím přejděte na tento výukový program o povolení možnosti "spustit skript" v aplikaci Outlook.
    2. Kliknutím na modře podtržený text „skript“ otevřete soubor Vyberte skript dialogové okno. Zde vyberte skript, který jste přidali Krok 2 a klepněte na tlačítko OK .
    3. Klepněte na tlačítko další pro pokračování.
  9. v Průvodce pravidly (Existují nějaké výjimky?) V dialogovém okně klikněte na další tlačítko přímo.
  10. V poslední Průvodce pravidly V dialogovém okně pojmenujte pravidlo v Krok 1 políčko, zaškrtněte možnosti, které potřebujete, v Krok 2 a klepněte na tlačítko úprava .
  11. Zavři Pravidla a upozornění dialogové okno.

Výsledek

Pokud jste nyní vybrali možnost „Spustit toto pravidlo nyní pro zprávy, které jsou již ve složce Doručená pošta“, všechny přílohy z vašeho e-mailového účtu budou staženy a uloženy do určené cílové složky. Pokud jste navíc zaškrtli možnost „Zapnout toto pravidlo“, všechny přílohy z příchozích e-mailů se automaticky stáhnou a uloží do určené složky.


Automaticky stahujte přílohy Outlooku do složky pomocí Kutools pro Outlook

S Kutools pro aplikaci Outlook nainstalovaný na vašem počítači, jeho Automatické odpojení Tato funkce vám umožňuje automaticky stahovat všechny nebo konkrétní přílohy aplikace Outlook na základě vašich nastavených podmínek a pohodlně je nasměrovat do vybrané složky. Tato funkce navíc nabízí flexibilitu při vytváření podsložek. Poskytuje dvě alternativy pro pojmenování těchto podsložek: můžete si vybrat z jednoho z formátů, jako je např [složka zpráv]-[předmět zprávy], nebo se rozhodnout připojit vlastní textový řetězec jako příponu ke zvolenému formátu. Tato možnost výrazně zlepšuje organizaci a dostupnost vašich příloh.

Kutools pro aplikaci Outlook: Doplňte Outlook s více než 100 nástroji, které musíte mít. Zkušební jízda ZDARMA po dobu 60 dnů, bez závazků!   Čtěte více...   Stáhnout nyní!

  1. klikněte Kutools > Automatické odpojení otevřete dialogové okno funkce.
  2. v Automatické odpojení příloh v dialogovém okně vyberte Automaticky odpojit všechny přijaté přílohy možnost a nakonfigurujte jej následovně:
    1. Klikněte na tlačítko procházet k určení cílové složky pro ukládání automaticky odpojených příloh.
    2. (Volitelné) Zkontrolujte Odpojte nástavce níže uvedeným stylem Pokud si přejete vytvořit podsložky pro ukládání příloh.
      • Vytvořte podsložky v níže uvedeném stylu: Pojmenujte podsložky v jednom z předdefinovaných formátů, např [složka zpráv]-[předmět zprávy].
      • Uložte přílohy v níže uvedeném stylu: Pojmenujte podsložky pomocí jednoho z předdefinovaných formátů a přidejte vlastní textový řetězec jako příponu.
    3. (Volitelné) Zkontrolujte V e-mailech stále zůstává ikona přílohy možnost zachovat vizuální indikátor v e-mailech, které měly přílohy.
    4. klikněte Ok.

Výsledek

Od této chvíle budou všechny přílohy automaticky ukládány do zadané složky po přijetí e-mailů.

Tip: Pokud chcete nastavit automatické oddělování příloh na základě specifických pravidel, povolte Automatické odpojení příloh podle pravidel možnost v Automatické odpojení příloh dialog. Poté klikněte na Nový pro definování podmínek filtru a požadovaného nastavení uložení.

Poznámky:

  • Chcete získat přístup k Automatické odpojení Vlastnosti? Stažení Kutools pro aplikaci Outlook Nyní! Kromě toho se Kutools může pochlubit nesčetným množstvím více než 100 dalších funkcí a nabízí 60denní bezplatnou zkušební verzi. Nečekejte a vyzkoušejte to ještě dnes!
  • Pokud si přejete odpojit nebo stáhnout existující přílohy z více/všech přijatých e-mailů v Outlooku, použijte Kutools pro Outlook's Odpojit vše (přílohy) or Uložit vše (přílohy) vlastnost.

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 (111)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hi,
I create Module in Microsoft VBA & save it
However when go to create Rules in Outlook, I can't see the select box of "Run a script"
What is the reason & how to fix it?
Thank you
This comment was minimized by the moderator on the site
Hi there,

In some versions of Outlook, especially in more recent updates, the "Run a Script" option might be disabled by default due to security concerns. To enable the "Run a Script" option in Outlook, you usually need to modify the registry settings. Here's a general guide on how to do it:

1. Close Outlook: Make sure Outlook is not running.
2. Open Registry Editor: Press Win + R, type regedit, and hit Enter.
3. Navigate to the Outlook Security Settings: Depending on your version of Outlook, you'll need to navigate to a specific path in the Registry Editor. For example, for Outlook 2016, 2019, and Microsoft 365, you might navigate to HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security.
4. Modify/Add the Registry Value:
4.1 Right-click in the right pane and choose New > DWORD (32-bit) Value.
4.2 Name the new value as EnableUnsafeClientMailRules.
4.3 Set its value to 1.
5. Close Registry Editor and restart your computer.
6. Open Outlook and check if the "Run a Script" option is available.
This comment was minimized by the moderator on the site
Ale kupa, oszuści. Maile zaczynają znikać. Nie mam moich wiadomości.
This comment was minimized by the moderator on the site
Hi, code works great however I am saving excel files and was wondering how I can modify the saved name. I recieve files like this "exa 2022-08.xlsx" how can I save the excel file as just "2022-08"?

this is my current code and my file saves however as just a file type not excel.

Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments

Dim SplitName() As String
SplitName = Split(oAttachment.DisplayName, ".")

Dim RightName As String
RightName = Right(SplitName(0), 7)

Dim SaveName As String

SaveName = sSaveFolder & RightName

oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName

Next
End Sub
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments
  Dim SplitName() As String
  SplitName = Split(oAttachment.DisplayName, ".")
  Dim RightName As String
  RightName = Right(SplitName(0), 7) 'You can also declare the file name here, e.g., RightName = "2022-08"
  Dim SaveName As String
  SaveName = sSaveFolder & RightName & "." & SplitName(1)
  oAttachment.SaveAsFile SaveName
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
Hi,
How can I create a VBA to save attachment (Excel file) in my location drive when email received in my outlook folder and using the file name based on cell value...Many thanks

Regards,
Anthony On
This comment was minimized by the moderator on the site
Bonjour, j'ai réussi à rajouter "exécuter un script" dans les règles et faire fonctionner le script dans outlook. Les pièces jointes d'un mail bien précis s'enregistrent parfaitement dans le dossier demandé. Sauf que j'aimerais enregistrer uniquement les fichiers .txt, et non les .pdf qui s'incrémentent également. Aussi j'ai une autre requête s'il vous plaît, le script fonctionne très bien pour définir un dossier de destination, mais je souhaite définir d'autres règles qui me permettraient d'enregistrer les pièces jointes d'autres mails vers un autre dossier de destination. J'ai essayé de faire un 2e module VBA, cela ne fonctionne pas. J'ai généré un deuxième projet VBA mais Outlook n'en gère qu'un seul. Dans ce cas, comment remédier s'il vous plait ? Merci pour ce tuto très clair pour moi qui suis débutante.
This comment was minimized by the moderator on the site
Hi pearl,
Could you please send the code you generated so that we can fix it?
Amanda
This comment was minimized by the moderator on the site
Hi Can we  download the attachment contains specific letters using VBA code
This comment was minimized by the moderator on the site
Hi DAS,
When you said “the attachment contains specific letters”, did you mean you want to download the attachments from specific letters?
Amanda
This comment was minimized by the moderator on the site
Hi,
I executed the VBA + Rule option and it seemed to work perfectly. However, it recently stopped working with no errors. The rule is set to read the subject line, move to a certain folder if there is a certain subject, and then run the script. I know the trigger is working in the rule because the first action (move to folder) is working as it should.
Any idea why the rule trigger would work, but the documents are no longer being saved?
Things I have tried/checked:-The file path is correct-I added delays in various spots in the vba using application.wait-outlook has been shutdown and re-opened, and so has my laptop
(disclosure: I am a bit of a VBA newbie, but have beginner level coding knowledge)
This comment was minimized by the moderator on the site
Hi,when i use the Kutools plugin, it is possibile to add a rule for all the sender wich include a text in the sender email?for example i want to download all the ".txt" attachments recived from all the senders containing "@amazon.com" in his email adress?
thank you!!
This comment was minimized by the moderator on the site
Hi
I have a problem. I can't find "run a script" command in second step dialog window while creating the rule :/
I have the Outlook2016, any ideas how to find it or turn it on ?
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
Hi,
The script works very well.Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

Everything works great but what if I have a number of attachments in the email and I only want to save the excel and pdf files which are attached and not all the files attached to the email?
Does someone can help?
Much appreciated.Joao
This comment was minimized by the moderator on the site
Please share your mail id i will send my custom desinged form to Download the attachments.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations