Πώς να αποθηκεύσετε μόνο συγκεκριμένο συνημμένο (Excel) στο Outlook;
Το Outlook παρέχει τη δυνατότητα Αποθήκευση όλων των συνημμένων για να σας βοηθήσει να αποθηκεύσετε όλα τα συνημμένα σε ένα email σε έναν συγκεκριμένο φάκελο ταυτόχρονα. Ωστόσο, εάν θέλετε να αποθηκεύσετε μόνο ορισμένους τύπους συνημμένων σε ένα ή περισσότερα μηνύματα ηλεκτρονικού ταχυδρομείου, όπως βιβλία εργασίας του Excel, έγγραφα Word και ούτω καθεξής, πώς το επιτυγχάνετε; Σε αυτό το σεμινάριο, σας παρέχουμε δύο μεθόδους για να λύσετε αυτό το πρόβλημα.
Αποθηκεύστε μόνο συγκεκριμένα συνημμένα μορφής αρχείου στο Outlook με κώδικα VBA
Αποθηκεύστε εύκολα μόνο συνημμένα συγκεκριμένης μορφής αρχείου στο Outlook με ένα εκπληκτικό εργαλείο
Αποθηκεύστε μόνο συγκεκριμένα συνημμένα μορφής αρχείου στο Outlook με κώδικα VBA
Ο ακόλουθος κώδικας VBA μπορεί να βοηθήσει στην αποθήκευση μόνο συνημμένων μορφής αρχείου σε ένα ή περισσότερα επιλεγμένα email σε έναν συγκεκριμένο φάκελο. Κάντε τα εξής.
1. Εκκινήστε το Outlook σας. Στη λίστα αλληλογραφίας, επιλέξτε ένα ή περισσότερα email από τα οποία θέλετε να αποθηκεύσετε μόνο συνημμένα σε μια συγκεκριμένη μορφή αρχείου.
2. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο. Στο παράθυρο ανοίγματος, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: Αποθηκεύστε μόνο συγκεκριμένο συνημμένο σε ένα email ή πολλά email σε ένα φάκελο
Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
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
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
If xItem.Class = olMail Then
xFilesSavePath = ""
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xExt = "." & xFSO.GetExtensionName(xFilePath)
xExtArr = VBA.Split(xExtStr, ",")
xS = VBA.Filter(xExtArr, xExt)
If UBound(xS) > -1 Then
xAttachment.SaveAsFile xFilePath
If xItem.BodyFormat <> olFormatHTML Then
xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xFilesSavePath = xFilesSavePath & "
" & "" & xFilePath & ""
End If
End If
Next
xItem.Save
End If
Next
Set xFSO = Nothing
End Sub3. κλικ Εργαλεία > αναφορές, Στην Παραπομπές - Έργο διαλόγου, ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft πλαίσιο και κάντε κλικ στο OK κουμπί.
4. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στο αναδυόμενο Αναζήτηση για φάκελο πλαίσιο διαλόγου, επιλέξτε έναν φάκελο για να αποθηκεύσετε τα συνημμένα.
5. Και, στη συνέχεια, κάντε κλικ στο OK, στα ακόλουθα Kutools για το Outlook πλαίσιο διαλόγου, εισαγάγετε την επέκταση αρχείου του συνημμένου που θα αποθηκεύσετε στο πλαίσιο κειμένου και κάντε κλικ OK.
Σημείωση: Για πολλαπλές επεκτάσεις αρχείων, πρέπει να τις διαχωρίσετε με κόμματα.
Στη συνέχεια αποθηκεύονται μόνο τα καθορισμένα συνημμένα.
Αποθηκεύστε εύκολα μόνο συνημμένα συγκεκριμένης μορφής αρχείου στο Outlook με ένα εκπληκτικό εργαλείο
Εάν είστε νέος στη VBA, εδώ σας προτείνουμε να χρησιμοποιήσετε το Αποθήκευση όλων των συνημμένων χαρακτηριστικό του Kutools για το Outlook. Με αυτήν τη δυνατότητα, μπορείτε εύκολα να αποθηκεύσετε μόνο συνημμένα σε συγκεκριμένη μορφή αρχείου στο Outlook.
1. Επιλέξτε τα email από τα οποία θέλετε να αποθηκεύσετε μόνο συνημμένα σε συγκεκριμένη μορφή αρχείου.
2. κλικ Kutools > Εργαλεία συνημμένου > Αποθήκευση όλων.
3. Στο Αποθήκευση ρυθμίσεων πλαίσιο διαλόγου, πρέπει να διαμορφώσετε ως εξής.
κουμπί για να επιλέξετε έναν φάκελο για να αποθηκεύσετε τα συνημμένα.
4. Εμφανίζεται ένα παράθυρο διαλόγου που σας υπενθυμίζει εάν θέλετε να αποθηκεύσετε τα συνημμένα, κάντε κλικ OK για να συνεχίσετε.
5. Στη συνέχεια, εμφανίζεται ένα άλλο παράθυρο διαλόγου για να σας ενημερώσει πόσα συνημμένα έχουν αποθηκευτεί, κάντε κλικ στο OK κουμπί.
Τώρα αποθηκεύονται μόνο τα συγκεκριμένα συνημμένα μορφής αρχείου.
Πατήστε εδώ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα.
Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημέρα) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Σχετικά άρθρα:
- Πώς να αποθηκεύσετε όλα τα συνημμένα από μηνύματα email στο Outlook;
- Πώς να αφαιρέσετε όλα τα συνημμένα από το email στο Outlook;
Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!
- Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
- Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
- Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
- Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
- Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
