Salt la conținutul principal

Cum se descarcă / salvează automat atașamente din Outlook într-un anumit folder?

În timp ce salvarea tuturor atașamentelor dintr-un singur e-mail în Outlook este simplă utilizarea Atașamente > Salvați toate atașamentele opțiunea, gestionarea atașamentelor de la mai multe e-mailuri, în special în cantități mari, poate fi mai dificilă. Acest articol prezintă două soluții eficiente pentru descărcarea automată a atașamentelor din e-mailurile Outlook într-un anumit folder. Aceste metode sunt deosebit de utile atunci când aveți de-a face cu numeroase e-mailuri și atașamente, simplificând procesul și economisind timp.


Descărcați automat atașamentele Outlook într-un folder cu VBA și regulă

Această abordare implică utilizarea unui script VBA, care, atunci când este executat cu o anumită regulă, va descărca și va salva automat atașamentele din e-mailurile Outlook într-un folder desemnat. Vă rugăm să continuați cu următorii pași:

  1. Anunturi Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
  2. Clic Insera > Module, apoi inserați sub scriptul VBA în noul deschis Module fereastră.

    VBA: Salvați automat atașamentele Outlook într-un anumit folder

    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

    Notă: Vă rugăm să găsiți linia sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"și înlocuiți-l cu calea folderului de destinație dorit.

  3. Salvați scriptul VBA și închideți Microsoft Visual Basic pentru aplicații fereastră.
  4. Du-te la Mail vizualizați și faceți clic Inițial > Reguli > Gestionați regulile și alertele.
  5. În deschidere Reguli și alerte caseta de dialog, faceți clic pe Noua regulă Butonul de pe Reguli de e-mail tab.
  6. În Expertul pentru reguli caseta de dialog care apare, vă rugăm să selectați Aplică regulă pe mesajele pe care le primesc și faceți clic pe Pagina Următoare → butonul.
  7. În Rules Wizard (Ce condiție(e) doriți să verificați?) , faceți clic pe Pagina Următoare → butonul fără a selecta nicio opțiune. Și apoi faceți clic pe Da butonul din fereastra pop-up Microsoft Outlook căsuță de dialog.
  8. În cele ce urmează Rules Wizard (Ce vrei să faci cu mesajul?) caseta de dialog, procedați după cum urmează:
    1. Verifică rulați un script opțiune. Sfat: Dacă nu vedeți opțiunea, vă rugăm accesați acest tutorial despre activarea opțiunii „rulați un script” în Outlook.
    2. Faceți clic pe textul subliniat albastru „un script” pentru a deschide Selectați Script căsuță de dialog. Aici, alegeți scriptul în care l-ați adăugat Etapa 2 și faceți clic pe OK butonul.
    3. Apasă pe Pagina Următoare → pentru a continua.
  9. În Rules Wizard (Există excepții?) caseta de dialog, faceți clic pe Pagina Următoare → butonul direct.
  10. În final Expertul pentru reguli caseta de dialog, vă rugăm să denumiți regula în Etapa 1 , bifați opțiunile după cum aveți nevoie în Etapa 2 și faceți clic pe finalizarea butonul.
  11. Inchide Reguli și alerte căsuță de dialog.

Rezultat

Acum, dacă ați selectat opțiunea „Rulați această regulă acum pe mesajele aflate deja în inbox”, toate atașamentele din contul dvs. de e-mail vor fi descărcate și stocate în folderul de destinație specificat. În plus, dacă ați bifat opțiunea „Activați această regulă”, toate atașamentele de la e-mailurile primite vor fi descărcate automat și salvate în folderul desemnat.


Descărcați automat atașamentele Outlook într-un folder cu Kutools pentru Outlook

Cu Kutools pentru Outlook instalat pe computer, este Detașare automată funcția vă permite să descărcați automat toate sau anumite atașamente Outlook în funcție de condițiile dvs. stabilite, direcționându-le în mod convenabil către un folder ales. În plus, această caracteristică oferă flexibilitatea de a crea subdosare. Acesta oferă două alternative pentru denumirea acestor subdosare: puteți selecta unul dintre formate, cum ar fi [dosarul mesajului]-[subiectul mesajului], sau alegeți să adăugați un șir de text personalizat ca sufix la formatul ales. Această capacitate îmbunătățește foarte mult organizarea și accesibilitatea atașamentelor dvs.

Kutools pentru Outlook: Suplimentați Outlook cu peste 100 de instrumente obligatorii. Testați-l GRATUIT timp de 60 de zile, fără obligații!   Citeşte mai mult ...   Descarcă acum!

  1. Clic Kutools > Detașare automată pentru a deschide dialogul de caracteristici.
  2. În Atașează detașarea automată , selectați fișierul Detașează automat toate atașamentele primite opțiunea și configurați după cum urmează:
    1. Faceți clic pe butonul de răsfoire pentru a specifica folderul de destinație pentru a salva atașamentele detașate automat.
    2. (Opțional) Verificați Detașează atașamentele în stilul de mai jos opțiune dacă doriți să creați subdosare pentru stocarea atașamentelor.
      • Creați subfoldere în stilul de mai jos: Denumiți subfolderele într-unul dintre formatele predefinite, cum ar fi [dosarul mesajului]-[subiectul mesajului].
      • Redenumiți atașamentele salvate în stilul de mai jos: Denumiți subfolderele folosind unul dintre formatele predefinite și adăugați un șir de text personalizat ca sufix.
    3. (Opțional) Verificați Pictograma atașament rămâne în continuare în e-mailuri opțiunea de a păstra un indicator vizual în e-mailurile care aveau atașamente.
    4. Clic Ok.

Rezultat

Începând de acum, toate atașamentele vor fi salvate automat în folderul specificat la primirea e-mailurilor.

Sfat: Dacă doriți să configurați detașarea automată a atașamentelor pe baza unor reguli specifice, activați Detasează automat atașamentele după reguli opțiune în Atașează detașarea automată dialog. După aceea, faceți clic pe Nou butonul pentru a defini condițiile de filtrare și setările de salvare dorite.

note:

  • Doriți să accesați Detașare automată caracteristică? Descarca Kutools pentru Outlook acum! Dincolo de aceasta, Kutools se mândrește cu o multitudine de alte 100 de alte funcții și oferă o perioadă de încercare gratuită de 60 de zile. Nu așteptați, încercați azi!
  • Dacă doriți să detașați sau să descărcați atașamentele existente din mai multe/toate e-mailurile primite în Outlook, aplicați Kutools pentru Outlook Desprindeți toate (atașamente) or Salvați toate (atașamente) caracteristică.

Legate de articole:


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (112)
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. 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)
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