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

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

3. κλικ Εργαλεία > αναφορές, Στην Παραπομπές - Έργο διαλόγου, ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft πλαίσιο και κάντε κλικ στο OK κουμπί.

4. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στο αναδυόμενο Αναζήτηση για φάκελο πλαίσιο διαλόγου, επιλέξτε έναν φάκελο για να αποθηκεύσετε τα συνημμένα.

5. Και, στη συνέχεια, κάντε κλικ στο OK, στα ακόλουθα Kutools για το Outlook πλαίσιο διαλόγου, εισαγάγετε την επέκταση αρχείου του συνημμένου που θα αποθηκεύσετε στο πλαίσιο κειμένου και κάντε κλικ OK.

Σημείωση: Για πολλαπλές επεκτάσεις αρχείων, πρέπει να τις διαχωρίσετε με κόμματα.

Στη συνέχεια αποθηκεύονται μόνο τα καθορισμένα συνημμένα.


Αποθηκεύστε εύκολα μόνο συνημμένα συγκεκριμένης μορφής αρχείου στο Outlook με ένα εκπληκτικό εργαλείο

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

1. Επιλέξτε τα email από τα οποία θέλετε να αποθηκεύσετε μόνο συνημμένα σε συγκεκριμένη μορφή αρχείου.

2. κλικ Kutools > Εργαλεία συνημμένου > Αποθήκευση όλων.

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

3.1) Στο Αποθηκεύστε συνημμένα σε αυτόν το φάκελο κάντε κλικ στο κουμπί για να επιλέξετε έναν φάκελο για να αποθηκεύσετε τα συνημμένα.
3.2) Κάντε κλικ στο Επιλογές για προχωρημένους κουμπί για να ξεδιπλώσετε το πλαίσιο διαλόγου.
3.3) Στο Συνθήκες φίλτρου , ελέγξτε το Τύπος συνημμένου πλαίσιο ελέγχου και, στη συνέχεια, εισαγάγετε την επέκταση αρχείου των συνημμένων που θα αποθηκεύσετε στο κείμενο.
Συμβουλές: Για πολλαπλές επεκτάσεις αρχείων, πρέπει να τις διαχωρίσετε με ερωτηματικά.
3.4) Κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

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

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

Τώρα αποθηκεύονται μόνο τα συγκεκριμένα συνημμένα μορφής αρχείου.

Πατήστε εδώ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα.

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


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


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

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

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

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

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

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

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

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

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

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations