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

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

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

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

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