Preskoči na glavno vsebino

Kako samodejno prenesti / shraniti priloge iz Outlooka v določeno mapo?

Na splošno lahko s klikom shranite vse priloge enega e-poštnega sporočila Priponke > Shrani vse priloge v Outlooku. Če pa morate shraniti vse priloge vseh prejetih in prejetih e-poštnih sporočil, imate kakšno idejo? Ta članek bo predstavil dve rešitvi za samodejno prenašanje prilog iz Outlooka v določeno mapo.


Samodejno prenesite priloge Outlook v mapo z VBA in pravilo

Ta metoda bo predstavila skript VBA in zagnala ta skript s pravilom za samodejni prenos in shranjevanje Outlook prilog v določeno mapo. Naredite naslednje:

1. Pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin nato prilepite spodnji skript VBA v novo odpiralno okno modula.

VBA: samodejno shrani priloge Outlook v določeno mapo

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

Opombe: Prosim, odkrijte sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"in po potrebi zamenjajte pot ciljne mape.

3. Shranite skript VBA in zaprite okno Microsoft Visual Basic for Applications.

4. Pojdi na mail pogled in kliknite HOME > Pravila > Upravljanje pravil in opozoril. Oglejte si posnetek zaslona:

5. V uvodnem pogovornem oknu Pravila in opozorila kliknite Novo pravilo gumb na Pravila o e-pošti zavihek. Oglejte si posnetek zaslona:

6. Zdaj v pogovornem oknu čarovnika za pravila kliknite, da izberete Uporabi pravilo o sporočilih, ki jih prejmem in kliknite na Naslednji gumb.

7. V pogovornem oknu čarovnika za pravila (katere pogoje želite preveriti?) Počistite katero koli možnost in kliknite Naslednji . In nato kliknite Da v pojavnem pogovornem oknu Microsoft Outlook. Oglejte si posnetek zaslona:

8. Zdaj v pogovornem oknu čarovnika za pravila (kaj želite storiti s sporočilom?): (1) Prijava zaženite skript možnost; (2) Kliknite besedilo scenarij če želite odpreti pogovorno okno Select Script, izberite skript, ki smo ga dodali v 2. koraku, in kliknite OK gumb; (3) Kliknite Naslednji gumb.

9. V pogovornem oknu Čarovnik za pravila (Ali obstajajo izjeme?) Kliknite na Naslednji gumb neposredno.

10. Zdaj v zadnjem pogovornem oknu čarovnika za pravila v prazno poimenujte pravilo korak 1 , potrdite možnosti, kot jih potrebujete v korak 2 in kliknite Konec gumb.

11. Zaprite pogovorno okno Pravila in opozorila.

Zdaj so vse priloge prenesene iz vašega e-poštnega računa in shranjene v določeno ciljno mapo. In vse priloge dohodnih e-poštnih sporočil bodo samodejno prenesene in shranjene tudi v določeno mapo.


Samodejno prenesite Outlookove priloge v mapo z Kutools for Outlook

Če imate Kutools for Outlook nameščen, lahko uporabite njegovo Samodejno loči možnost samodejnega prenosa vseh prilog v Outlooku in enostavno shranjevanje v določeno mapo.

Kutools for Outlook: Napolnite Outlook z več kot 100 orodji, ki jih morate imeti. Preizkusite ga BREZPLAČNO 60 dni, brez obveznosti!   Preberite več ...   Download Now!

1. Kliknite Kutools > Samodejno loči > Omogoči da omogočite funkcijo Auto Detach.

2. Pojdi naprej Kutools > Samodejno loči > Upravitelj samodejnega ločevanja.

3. V pogovornem oknu Samodejno odstrani priloge potrdite Samodejno odstrani vse prejete priloge in nato konfigurirajte na naslednji način:
(1) Kliknite gumb za brskanje  določiti ciljno mapo za shranjevanje samodejno ločenih prilog;
(2) Neobvezno je preveriti Ustvari podmape v naslednjem slogu in nato na spodnjem spustnem seznamu izberite en slog podmape;
(3) Neobvezno je preveriti samo snemite nastavke z naslednjim podaljškom in nato v spodnje polje vnesite končnice priponk;
(4) Neobvezno je preveriti ikona priloge še vedno ostane v e-poštnih sporočilih opcije.

Opombe: Če morate pošiljatelje samodejno odstraniti priloge, lahko preverite Samodejno odstrani priloge po pravilih kliknite možnost Novo in nato vnesite e-poštni naslov pošiljatelja in v drugem pogovornem oknu Auto Detach Attachments vnesite ciljno mapo.

4. kliknite Ok , da shranite nastavitve.

Od zdaj naprej se bodo vse priloge (ali priloge z določenimi priponami datotek ali priloge določenih pošiljateljev na podlagi vaših nastavitev) samodejno shranile.

Opombe: Lahko se prijavite Kutools for OutlookJe Loči vse (Priloge) funkcija oz Shrani vse Funkcija (priloge) za hiter prenos / shranjevanje vseh prilog iz več / vseh prejetih e-poštnih sporočil v Outlooku.


Predstavitev: samodejno prenesite Outlookove priloge v mapo z Kutools for Outlook


Nasvet: V tem videu, Kutools zavihek doda Kutools for Outlook. Če jo potrebujete, kliknite tukaj imeti 60-dnevno brezplačno preskusno različico brez omejitev!


Sorodni članki:


Najboljša pisarniška orodja za produktivnost

Kutools for Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

Comments (110)
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
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