Μετάβαση στο κύριο περιεχόμενο

Πώς να κάνετε αυτόματη λήψη / αποθήκευση συνημμένων από το Outlook σε έναν συγκεκριμένο φάκελο;

Ενώ η αποθήκευση όλων των συνημμένων από ένα μόνο μήνυμα ηλεκτρονικού ταχυδρομείου στο Outlook είναι απλή με τη χρήση του συνημμένα > Αποθήκευση όλων των συνημμένων επιλογή, η διαχείριση συνημμένων από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου, ειδικά σε μεγάλες ποσότητες, μπορεί να είναι πιο δύσκολη. Αυτό το άρθρο εισάγει δύο αποτελεσματικές λύσεις για την αυτόματη λήψη συνημμένων από μηνύματα ηλεκτρονικού ταχυδρομείου του Outlook σε έναν συγκεκριμένο φάκελο. Αυτές οι μέθοδοι είναι ιδιαίτερα χρήσιμες όταν αντιμετωπίζετε πολλά email και συνημμένα, απλοποιώντας τη διαδικασία και εξοικονομώντας χρόνο.


Αυτόματη λήψη συνημμένων του Outlook σε φάκελο με VBA και κανόνα

Αυτή η προσέγγιση περιλαμβάνει τη χρήση μιας δέσμης ενεργειών VBA, η οποία, όταν εκτελείται με έναν συγκεκριμένο κανόνα, θα πραγματοποιεί αυτόματη λήψη και αποθήκευση συνημμένων από μηνύματα ηλεκτρονικού ταχυδρομείου του Outlook σε έναν καθορισμένο φάκελο. Συνεχίστε με τα παρακάτω βήματα:

  1. Τύπος Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
  2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τη δέσμη ενεργειών VBA στο που άνοιξε πρόσφατα Μονάδα μέτρησης παράθυρο.

    VBA: Αυτόματη αποθήκευση συνημμένων του Outlook σε έναν συγκεκριμένο φάκελο

    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

    Σημείωση: Εντοπίστε τη γραμμή sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"και αντικαταστήστε το με τη διαδρομή του φακέλου προορισμού που θέλετε.

  3. Αποθηκεύστε το σενάριο VBA και κλείστε το Microsoft Visual Basic για εφαρμογές παράθυρο.
  4. Πηγαίνετε στο Ταχυδρομείο προβολή και κάντε κλικ Αρχική > Κανόνες που > Διαχείριση κανόνων και ειδοποιήσεων.
  5. Στο άνοιγμα Κανόνες και ειδοποιήσεις πλαίσιο διαλόγου, κάντε κλικ στο Νέος κανόνας κουμπί για το Κανόνες ηλεκτρονικού ταχυδρομείου Tab.
  6. Στο Οδηγός κανόνων παράθυρο διαλόγου που εμφανίζεται, επιλέξτε το Εφαρμόστε τον κανόνα στα μηνύματα που λαμβάνω και κάντε κλικ στο Επόμενο κουμπί.
  7. Στο Rules Wizard (Ποιες συνθήκες θέλετε να ελέγξετε;) , κάντε κλικ στο Επόμενο κουμπί χωρίς να κάνετε καμία επιλογή. Και μετά κάντε κλικ στο Ναι κουμπί στο αναδυόμενο παράθυρο Microsoft Outlook κουτί διαλόγου.
  8. Στα ακόλουθα Rules Wizard (Τι θέλετε να κάνετε με το μήνυμα;) παράθυρο διαλόγου, προχωρήστε ως εξής:
    1. Έλεγξε το εκτελέστε ένα σενάριο επιλογή. Συμβουλή: Εάν δεν βλέπετε την επιλογή, παρακαλώ μεταβείτε σε αυτό το σεμινάριο για την ενεργοποίηση της επιλογής "εκτέλεση σεναρίου" στο Outlook.
    2. Κάντε κλικ στο μπλε υπογραμμισμένο κείμενο "ένα σενάριο" για να ανοίξετε το Επιλέξτε Σενάριο κουτί διαλόγου. Εδώ, επιλέξτε το σενάριο που προσθέσατε Βήμα 2 Και κάντε κλικ στο OK κουμπί.
    3. Κάντε κλικ στο Επόμενο για να προχωρήσετε.
  9. Στο Rules Wizard (Υπάρχουν εξαιρέσεις;) πλαίσιο διαλόγου, κάντε κλικ στο Επόμενο κουμπί απευθείας.
  10. Στο τέλος Οδηγός κανόνων παράθυρο διαλόγου, ονομάστε τον κανόνα στο Βήμα 1 πλαίσιο, επιλέξτε τις επιλογές που χρειάζεστε στο Βήμα 2 και κάντε κλικ στο φινίρισμα κουμπί.
  11. Κλείστε το Κανόνες και ειδοποιήσεις κουτί διαλόγου.

Αποτέλεσμα

Τώρα, εάν επιλέξατε την επιλογή "Εκτέλεση αυτού του κανόνα τώρα σε μηνύματα που βρίσκονται ήδη στα εισερχόμενα", όλα τα συνημμένα από τον λογαριασμό email σας θα ληφθούν και θα αποθηκευτούν στον καθορισμένο φάκελο προορισμού. Επιπλέον, εάν τσεκάρετε την επιλογή "Ενεργοποίηση αυτού του κανόνα", όλα τα συνημμένα από τα εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου θα ληφθούν αυτόματα και θα αποθηκευτούν στον καθορισμένο φάκελο.


Αυτόματη λήψη των συνημμένων του Outlook σε έναν φάκελο με το Kutools για το Outlook

Με Kutools για το Outlook εγκατεστημένο στον υπολογιστή σας, είναι Αυτόματη απόσπαση Η λειτουργία σάς δίνει τη δυνατότητα να κάνετε αυτόματη λήψη όλων ή συγκεκριμένων συνημμένων του Outlook βάσει των συνθηκών που έχετε ορίσει, κατευθύνοντάς τα εύκολα σε έναν επιλεγμένο φάκελο. Επιπλέον, αυτή η δυνατότητα προσφέρει την ευελιξία για τη δημιουργία υποφακέλων. Παρέχει δύο εναλλακτικές λύσεις για την ονομασία αυτών των υποφακέλων: μπορείτε να επιλέξετε από μία από τις μορφές, όπως π.χ [φάκελος μηνύματος]-[θέμα μηνύματος], ή επιλέξτε να προσθέσετε μια προσαρμοσμένη συμβολοσειρά κειμένου ως επίθημα στη μορφή που έχετε επιλέξει. Αυτή η δυνατότητα βελτιώνει σημαντικά την οργάνωση και την προσβασιμότητα των συνημμένων σας.

Kutools για το Outlook: Φορτίστε το Outlook με πάνω από 100 εργαλεία που πρέπει να έχετε. Δοκιμάστε το ΔΩΡΕΑΝ για 60 ημέρες, χωρίς δεσμεύσεις!   Διαβάστε περισσότερα ...   Κατεβάστε τώρα!

  1. Πατήστε Kutools > Αυτόματη απόσπαση για να ανοίξετε το παράθυρο διαλόγου χαρακτηριστικών.
  2. Στο Αυτόματη αποσύνδεση προσαρτημάτων διαλόγου, επιλέξτε το Αποσυνδέστε αυτόματα όλα τα ληφθέντα συνημμένα επιλογή και ρυθμίστε τις παραμέτρους ως εξής:
    1. Κάντε κλικ στο κουμπί αναζήτησης για να καθορίσετε το φάκελο προορισμού για την αποθήκευση των αυτόματα αποσπασμένων συνημμένων.
    2. (Προαιρετικό) Ελέγξτε το Αποσυνδέστε τα προσαρτήματα στο παρακάτω στυλ επιλογή εάν θέλετε να δημιουργήσετε υποφακέλους για την αποθήκευση των συνημμένων.
      • Δημιουργήστε υποφακέλους με το παρακάτω στυλ: Ονομάστε τους υποφακέλους σε μία από τις προκαθορισμένες μορφές, π.χ [φάκελος μηνύματος]-[θέμα μηνύματος].
      • Μετονομάστε τα αποθηκευμένα συνημμένα στο παρακάτω στυλ: Ονομάστε τους υποφακέλους χρησιμοποιώντας μία από τις προκαθορισμένες μορφές και προσθέστε μια προσαρμοσμένη συμβολοσειρά κειμένου ως επίθημα.
    3. (Προαιρετικό) Ελέγξτε το Το εικονίδιο συνημμένου παραμένει στα μηνύματα ηλεκτρονικού ταχυδρομείου επιλογή διατήρησης οπτικής ένδειξης στα email που είχαν συνημμένα.
    4. Πατήστε Ok.

Αποτέλεσμα

Από τώρα, όλα τα συνημμένα θα αποθηκεύονται αυτόματα στον καθορισμένο φάκελο κατά τη λήψη των email.

Συμβουλή: Εάν θέλετε να ρυθμίσετε την αυτόματη αποσύνδεση συνημμένων με βάση συγκεκριμένους κανόνες, ενεργοποιήστε το Αυτόματη αποσύνδεση συνημμένων από κανόνες επιλογή του Αυτόματη αποσύνδεση προσαρτημάτων διαλόγου. Μετά από αυτό, κάντε κλικ στο Νέα κουμπί για να ορίσετε τις συνθήκες του φίλτρου και τις επιθυμητές ρυθμίσεις αποθήκευσης.

:

  • Θέλετε να αποκτήσετε πρόσβαση στο Αυτόματη απόσπαση χαρακτηριστικό? Κατεβάστε Kutools για το Outlook τώρα! Πέρα από αυτό, το Kutools μπορεί να υπερηφανεύεται για μυριάδες 100+ άλλες δυνατότητες και προσφέρει μια δωρεάν δοκιμή 60 ημερών. Μην περιμένετε, δοκιμάστε το σήμερα!
  • Εάν θέλετε να αποσυνδέσετε ή να κατεβάσετε υπάρχοντα συνημμένα από πολλά/όλα τα ληφθέντα email στο Outlook, εφαρμόστε το Kutools για το Outlook Αποσύνδεση όλων (Συνημμένα) or Αποθήκευση όλων (συνημμένα) χαρακτηριστικό.

Σχετικά άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

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