Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


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

Όπως όλοι γνωρίζουμε, τα συνημμένα συνημμένα θα αφαιρεθούν από το αρχικό μήνυμα όταν απαντάτε ένα μήνυμα στον παραλήπτη στο Outlook. Εάν θέλετε να απαντήσετε στο μασάζ διατηρώντας τα συνημμένα, μπορείτε να δοκιμάσετε Kutools για το Outlook's Απάντηση με συνημμένο Λειτουργία, μπορεί να απαντήσει ένα μήνυμα με τα αρχικά συνημμένα, επίσης να λειτουργεί για όλα τα messafe.    Κάντε κλικ για πλήρη χαρακτηριστικά δωρεάν δοκιμή 60 ημερών!
 
απάντηση doc με επισύναψη
 
Kutools για Outlook: με δεκάδες εύχρηστα πρόσθετα του Outlook, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες.
Καρτέλα Office - Ενεργοποίηση επεξεργασίας καρτέλας και περιήγησης στο Office και να κάνετε την εργασία πολύ πιο εύκολη ...
Kutools για Outlook - Φέρνει 100 ισχυρές προηγμένες δυνατότητες στο Microsoft Outlook
  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά email μέσω κανόνων. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC. Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου. Απάντηση σε πολλά email ταυτόχρονα. Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Αυτόματη προσθήκη ημερομηνίας και ώρας στο θέμα ...
  • Εργαλεία συνημμένου: Αυτόματη αποσύνδεση, Συμπίεση όλων, Μετονομασία όλων, Αυτόματη αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων, Κατάργηση διπλών μηνυμάτων και επαφών ...
  • Περισσότερες από 100 προηγμένες δυνατότητες θα λύστε τα περισσότερα από τα προβλήματά σας στο Outlook 2021 - 2010 ή στο Office 365. Πλήρεις δυνατότητες δωρεάν δοκιμή 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

doc μετονομασία αποθήκευση συνημμένων σε ένα φάκελο 2

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

doc μετονομασία αποθήκευση συνημμένων σε ένα φάκελο 3 doc βέλος δεξιά doc μετονομασία αποθήκευση συνημμένων σε ένα φάκελο 4

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

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

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


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

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

Kutools for Outlook , Περιλαμβάνει
100
 ισχυρές δυνατότητες και εργαλεία για το Microsoft Outlook 2016, 2013, 2010 και Office 365.

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

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

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

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


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

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

Public Sub UnzipFileInOutlook(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Εξασθένιση του saveFolder ως συμβολοσειρά
saveFolder = "C:\Users\acheng\Desktop"
Για κάθε objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder
Ορισμός objAtt = Τίποτα
Επόμενο
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Lipe, ίσως αυτός ο κωδικός μπορεί να σε βοηθήσει.

Ιδιωτικό δευτερεύον CopyToDefaultCalendarFld(Στοιχείο ByVal ως αντικείμενο)
Dim xCopiedAppointment As Outlook.AppointmentItem
Dim xMovedAppointment ως Outlook.AppointmentItem
Dim xMeeting As MeetingItem
Dim xApoint As AppointmentItem
On Error Συνέχιση Επόμενη
Αν Στοιχείο.Τάξη = olΡαντεβού Τότε
Ορισμός xApoint = Στοιχείο
Ορίστε xCopiedAppointment = xApoint.Copy
Ορισμός xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Αν xApoint.Subject <> xMovedAppointment.Subject Τότε
Αν InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Τότε
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Αποθήκευση
End If
End If
ElseIf Item.Class = olMeetingRequest Τότε
Ορισμός xMeeting = Στοιχείο
Ορισμός xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Αντιγραφή
Ορισμός xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Αν xMeeting.Subject <> xMovedAppointment.Subject Τότε
Αν InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Τότε
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Αποθήκευση
End If
End If
xCopiedAppointment.Διαγραφή
End If
Ορισμός xCopiedAppointment = Τίποτα
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Πώς μπορεί να λειτουργήσει αν έχετε πολλά email; Είναι μόνο για πολλά συνημμένα στο ίδιο email; Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ, είναι γελοίο που πρέπει να κάνουμε αυτά τα μήκη για να κάνουμε κάτι που πρέπει να χειριστεί η εφαρμογή
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL