Πώς να μετονομάσετε και να αποθηκεύσετε συνημμένα email σε ένα φάκελο στο Outlook;

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

Μετονομάστε και αποθηκεύστε συνημμένα με το ίδιο όνομα σε ένα φάκελο

Μετονομάστε και αποθηκεύστε συνημμένα σε ένα φάκελο με το Kutools για Outlook

---

Απάντηση μηνύματος με αρχικά συνημμένα σε προοπτική

Όπως όλοι γνωρίζουμε, τα συνημμένα συνημμένα θα αφαιρεθούν από το αρχικό μήνυμα όταν απαντάτε ένα μήνυμα στον παραλήπτη στο Outlook. Εάν θέλετε να απαντήσετε στο μασάζ διατηρώντας τα συνημμένα, μπορείτε να δοκιμάσετε Kutools για το Outlook's Απάντηση με συνημμένο Λειτουργία, μπορεί να απαντήσει ένα μήνυμα με τα αρχικά συνημμένα, επίσης να λειτουργεί για όλα τα messafe.    Κάντε κλικ για πλήρη χαρακτηριστικά 60 ημέρες δωρεάν δοκιμή!

Kutools για Outlook: με δεκάδες εύχρηστα πρόσθετα του Outlook, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες.

Μετονομάστε και αποθηκεύστε συνημμένα με το ίδιο όνομα σε ένα φάκελο

1. Επιλέξτε το μήνυμα που θέλετε να αποθηκεύσετε τα συνημμένα του και μετονομάστε το στο ίδιο όνομα.

2. Τύπος Alt + F11 keys, μετά στο Project1 παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession για να δημιουργήσετε ένα νέο κενό σενάριο στη δεξιά ενότητα και, στη συνέχεια, αντιγράψτε και επικολλήστε τον κώδικα σε αυτό.

VBA: Μετονομασία και αποθήκευση συνημμένων

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

3. κλικ Εργαλεία > αναφορές, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Χρόνος εκτέλεσης σεναρίων της Microsoft κουτάκι.

4. κλικ OK, πατήστε F5 κλειδί για την εκτέλεση του κώδικα, a Αναζήτηση φακέλου εμφανίζεται το παράθυρο διαλόγου για την επιλογή ή τη δημιουργία ενός φακέλου για την τοποθέτηση συνημμένων.

5. κλικ OKκαι, στη συνέχεια, δώστε ένα όνομα για τα συνημμένα.

6. κλικ OK, τώρα τα συνημμένα μετονομάζονται με το ίδιο όνομα, εάν υπάρχουν αντίγραφα, τα διπλά θα προστίθενται αριθμοί ως επίθημα.

Μετονομάστε και αποθηκεύστε συνημμένα σε ένα φάκελο με το Kutools για Outlook

Στην πραγματικότητα, υπάρχει ένα χαρακτηριστικό στο Kutools για το Outlook - ένα εύχρηστο εργαλείο προσθήκης του Outlook μπορεί να μετονομάσει όλα τα συνημμένα πριν από την αποθήκευση ή την αποστολή.

Δωρεάν εγκατάσταση Kutools για Outlook και, στη συνέχεια, κάντε τα παρακάτω βήματα:

1. Ενεργοποιήστε το μήνυμα ηλεκτρονικού ταχυδρομείου στο παράθυρο με το μήνυμα ή στο πλαίσιο μηνυμάτων όπως θέλετε, κάντε κλικ στο Kutools > Εργαλεία συνημμένου > Μετονομασία όλων.

2. Στο αναδυόμενο παράθυρο διαλόγου, πληκτρολογήστε το νέο όνομα που χρησιμοποιείτε για κάθε συνημμένο. Κάντε κλικ OK, τα συνημμένα μετονομάστηκαν με νέα ονόματα.
 

3. Κάντε δεξί κλικ σε ένα συνημμένο, επιλέξτε Αποθήκευση όλων των συνημμένων, Κλίκ OK και επιλέξτε ένα φάκελο για να αποθηκεύσετε τα συνημμένα όπως χρειάζεστε. Στη συνέχεια, τα μετονομασμένα συνημμένα αποθηκεύτηκαν σε ένα φάκελο.
 

---

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

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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

Δείτε Περισσότερα       Δωρεάν κατέβασμα      Αγορά