Πώς να μετονομάσετε και να αποθηκεύσετε συνημμένα 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 και κάνει την εργασία πολύ πιο εύκολη!

• Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
• Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
• Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
• Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
• Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.

Διαβάστε περισσότερα ... Κατεβάστε τώρα...