Preskoči na glavno vsebino

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

Medtem ko je shranjevanje vseh prilog iz enega e-poštnega sporočila v Outlooku preprosto z uporabo Priponke > Shrani vse priloge možnost, je lahko upravljanje prilog iz več e-poštnih sporočil, zlasti v velikih količinah, večji izziv. Ta članek predstavlja dve učinkoviti rešitvi za samodejno prenašanje prilog iz Outlookovih e-poštnih sporočil v določeno mapo. Te metode so še posebej uporabne pri delu s številnimi e-poštnimi sporočili in prilogami, saj poenostavijo postopek in prihranijo čas.


Samodejno prenesite Outlookove priloge v mapo z VBA in pravilom

Ta pristop vključuje uporabo skripta VBA, ki bo ob izvedbi z določenim pravilom samodejno prenesel in shranil priloge iz Outlookovih e-poštnih sporočil v določeno mapo. Nadaljujte z naslednjimi koraki:

  1. Pritisnite Alt + F11 da odprete Microsoft Visual Basic za aplikacije okno.
  2. klik Vstavi > Moduli, nato pa prilepite spodnji skript VBA v novo odprto Moduli okno.

    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

    Opomba: Poiščite vrstico sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"in jo zamenjajte s potjo želene ciljne mape.

  3. Shranite skript VBA in zaprite Microsoft Visual Basic za aplikacije okno.
  4. Pojdi na mail pogled in kliknite Domov > Pravila > Upravljanje pravil in opozoril.
  5. V uvodu Pravila in opozorila pogovorno okno, kliknite Novo pravilo gumb na Pravila o e-pošti tab.
  6. v Čarovnik za pravila pogovornem oknu, ki se prikaže, izberite Uporabi pravilo o sporočilih, ki jih prejmem in kliknite na Naslednji gumb.
  7. v Čarovnik za pravila (Katere pogoje želite preveriti?) pogovorno okno, kliknite na Naslednji brez izbire možnosti. In nato kliknite Da gumb v pojavnem oknu Microsoft Outlook pogovorno okno.
  8. V nadaljevanju Čarovnik za pravila (Kaj želite narediti s sporočilom?) pogovornem oknu, nadaljujte na naslednji način:
    1. Prijava zaženite skript možnost. Nasvet: Če ne vidite možnosti, prosim pojdite na to vadnico o omogočanju možnosti »zaženi skript« v Outlooku.
    2. Kliknite modro podčrtano besedilo "skript", da odprete Izberite Script pogovorno okno. Tukaj izberite skript, ki ste ga dodali korak 2 In kliknite na OK gumb.
    3. Kliknite Naslednji za nadaljevanje.
  9. v Čarovnik za pravila (Ali obstajajo izjeme?) pogovorno okno, kliknite Naslednji gumb neposredno.
  10. V zadnjem Čarovnik za pravila pogovornem oknu poimenujte pravilo v korak 1 , potrdite možnosti, kot jih potrebujete v korak 2 in kliknite Konec gumb.
  11. Zapri Pravila in opozorila pogovorno okno.

Rezultat

Zdaj, če ste izbrali možnost »Zaženi to pravilo zdaj za sporočila, ki so že v mapi »Prejeto««, bodo vse priloge iz vašega e-poštnega računa prenesene in shranjene v določeni ciljni mapi. Poleg tega, če ste označili možnost »Vklopi to pravilo«, bodo vse priloge iz dohodnih e-poštnih sporočil samodejno prenesene in shranjene v določeno mapo.


Samodejno prenesite Outlookove priloge v mapo s Kutools for Outlook

z Kutools za Outlook nameščen v vašem računalniku, njegov Samodejno loči vam omogoča, da samodejno prenesete vse ali določene Outlookove priloge glede na nastavljene pogoje in jih priročno usmerite v izbrano mapo. Poleg tega ta funkcija ponuja prilagodljivost za ustvarjanje podmap. Ponuja dve možnosti za poimenovanje teh podmap: izberete lahko enega od formatov, kot je npr [mapa sporočil]-[zadeva sporočila], ali pa se odločite, da dodate besedilni niz po meri kot pripono izbrani obliki. Ta zmožnost močno izboljša organizacijo in dostopnost vaših prilog.

Kutools za 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. klik Kutools > Samodejno loči da odprete pogovorno okno funkcije.
  2. v Samodejno odstrani priloge v pogovornem oknu izberite Samodejno odstrani vse prejete priloge možnost in konfigurirajte na naslednji način:
    1. Kliknite gumb za brskanje da določite ciljno mapo za shranjevanje samodejno ločenih prilog.
    2. (Izbirno) Preverite Odstranite priloge v spodnjem slogu možnost, če želite ustvariti podmape za shranjevanje prilog.
      • Ustvarite podmape v spodnjem slogu: poimenujte podmape v enem od vnaprej določenih formatov, npr [mapa sporočil]-[zadeva sporočila].
      • Preimenujte shranjene priloge v spodnjem slogu: poimenujte podmape z uporabo enega od vnaprej določenih formatov in dodajte besedilni niz po meri kot pripono.
    3. (Izbirno) Preverite Ikona priloge še vedno ostane v e-poštnih sporočilih možnost ohraniti vizualni indikator v e-poštnih sporočilih, ki so imela priloge.
    4. klik Ok.

Rezultat

Od zdaj naprej bodo vse priloge samodejno shranjene v določeno mapo po prejemu e-pošte.

Nasvet: Če želite nastaviti samodejno odklop prilog na podlagi določenih pravil, omogočite Samodejno odstrani priloge po pravilih možnost v Samodejno odstrani priloge dialog. Po tem kliknite Novo gumb, da določite pogoje filtra in želene nastavitve shranjevanja.

Opombe:

  • Želite dostopati do Samodejno loči funkcija? Prenesi Kutools za Outlook zdaj! Poleg tega se Kutools ponaša z nešteto več kot 100 drugimi funkcijami in ponuja 60-dnevno brezplačno preskusno različico. Ne čakajte, poskusite še danes!
  • Če želite odklopiti ali prenesti obstoječe priloge iz več/vseh prejetih e-poštnih sporočil v Outlooku, uporabite Kutools za Outlook Odstrani vse (priponke) or Shrani vse (priloge) lastnost.

Sorodni članki:


Najboljša pisarniška orodja za produktivnost

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

🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 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 (115)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thank you for this information
This comment was minimized by the moderator on the site
May i ask some question?

I usually received mail to many people and many kinds of files.
So i should distinguish each file.
But now, It can`t.

So Did you have any idea for this?
(like chacnged file name or and so on...)

Thank you for your help

BR
Hansu
This comment was minimized by the moderator on the site
Thank you for your great code
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. is it possible to give the attachment file an entirely new name, using information form the mail (for example the date of delivery).
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)
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