3 τρόποι λήψης όλων των συνημμένων από το Outlook

Περάστε από αυτόν τον οδηγό για να μάθετε όλους τους τρόπους

Ως επαγγελματίας χρήστης, η λήψη πολλών συνημμένων από τα email που λαμβάνονται στο Outlook μπορεί να είναι μονότονη και χρονοβόρα.

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

Εάν είστε περίεργοι να μάθετε τη διαδικασία βήμα προς βήμα, μείνετε μαζί μας καθώς σας καθοδηγούμε στη διαδικασία.

Πώς μπορώ να κατεβάσω όλα τα συνημμένα από ένα email;

1. Χρησιμοποιώντας την εφαρμογή για υπολογιστές

1. Εκκινήστε το Microsoft Outlook εφαρμογή στον υπολογιστή σας με Windows.
2. Αναζητήστε και ανοίξτε αυτό το μήνυμα ηλεκτρονικού ταχυδρομείου στο παράθυρο ανάγνωσης από το οποίο πραγματοποιείτε λήψη των συνημμένων.
3. Εναλλαγή στο Συνημμένα ενότητα από την επάνω γραμμή μενού, κάντε δεξί κλικ σε ένα από τα συνημμένα αρχείου στη δεξιά ενότητα και επιλέξτε Αποθηκεύστε όλα τα συνημμένα στο αναπτυσσόμενο μενού.
4. Πάτα το Ctrl πληκτρολογήστε και επιλέξτε όλα τα συνημμένα που θέλετε να λάβετε στο μικρό παράθυρο διαλόγου που ανοίγει.
5. Πάτα το Εντάξει κουμπί αφού επιλέξετε τα απαιτούμενα συνημμένα.
6. Ενα νέο Αποθήκευση ως Θα ανοίξει ένα αναδυόμενο παράθυρο για να αποθηκεύσετε τα συνημμένα σας. Μεταβείτε στο φάκελο όπου θέλετε να αποθηκεύσετε τα αρχεία συνημμένων και πατήστε το Εντάξει κουμπί κάτω δεξιά για να ξεκινήσει η λήψη του συνημμένου.

Μπορείτε εύκολα να κάνετε λήψη όλων των αρχείων που είναι συνημμένα σε ένα email ταυτόχρονα αντί να κάνετε λήψη κάθε αρχείου ξεχωριστά.

2. Χρησιμοποιώντας την εφαρμογή Ιστού

1. Πρόσβαση στο Εφαρμογή web Microsoft Outlook χρησιμοποιώντας το πρόγραμμα περιήγησης ιστού που προτιμάτε και παρέχετε τα διαπιστευτήρια σύνδεσής σας όταν σας ζητηθεί να συνδεθείτε.
2. Επίλεξε το Inbox φάκελο από την αριστερή γραμμή μενού στο Σπίτι ενότητα της εφαρμογής Ιστού.
3. Κάντε διπλό κλικ στο εν λόγω email για να προβάλετε τα περιεχόμενα του email σε νέο παράθυρο.
4. Κάντε κλικ στο Κατέβασέ τα όλα κουμπί για λήψη των συνημμένων με τη μορφή αρχείου ZIP.
5. Επιλέξτε τη θέση λήψης και πατήστε το Εντάξει κουμπί εάν το Αποθήκευση ως ανοίγει το πλαίσιο διαλόγου.

Αυτή είναι μια απλή μέθοδος λήψης όλων των συνημμένων email από ένα email, εάν προτιμάτε την εφαρμογή web αντί για την εφαρμογή Outlook.

Πώς μπορώ να κατεβάσω όλα τα συνημμένα από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου;

ΣΗΜΕΙΩΣΗ

Μπορείτε να δοκιμάσετε αυτήν τη μέθοδο μόνο εάν χρησιμοποιείτε το Outlook 2019, 2016, 2013, 2010, 2007 ή 2003.

1. Δημιουργήστε έναν νέο φάκελο

1. Χρησιμοποιήστε το Windows + μι συντόμευση για εκκίνηση Εξερεύνηση αρχείων.
2. Πλοηγηθείτε στο Εγγραφα φάκελο από την αριστερή πλαϊνή γραμμή.
3. Κάντε δεξί κλικ οπουδήποτε στη δεξιά ενότητα και επιλέξτε Νέος ακολουθούμενη από Ντοσιέ από το μενού περιβάλλοντος.
4. Κάντε διπλό κλικ στο όνομα του φακέλου και μετονομάστε τον ως Συνημμένα.

2. Δημιουργήστε ένα σενάριο VBA

1. Τώρα ξεκινήστε την εφαρμογή Outlook στον υπολογιστή σας με Windows.
2. Επιλέξτε το Αρχείο επιλογή και μετά επιλέξτε Επιλογές από την αριστερή πλαϊνή μπάρα.
3. Επιλέγω Προσαρμογή κορδέλας από τον αριστερό πίνακα του Επιλογές Word παράθυρο.
4. Επίλεξε το Προγραμματιστής επιλογή στο Κύριες καρτέλες και πατήστε το Συν εικονίδιο για να προσθέσετε τη λειτουργία προγραμματιστή στο μενού κορδέλας του Outlook.
5. Κλείστε το αναδυόμενο παράθυρο Επιλογές του Word και, στη συνέχεια, επιλέξτε Λειτουργία για προγραμματιστές ακολουθούμενη από Visual Basic από το κεντρικό μενού.
6. Επιλέγω Έργο 1 εμφανίζεται ως προεπιλογή και, στη συνέχεια, επιλέξτε Εισάγετε ακολουθούμενη από Μονάδα μέτρησης για πρόσβαση στο παράθυρο Module.
7. Τώρα αντιγράψτε και επικολλήστε τον παρακάτω κώδικα Ενότητα 1 και κλείσε το παράθυρο.

Dim GCount As Integer. Dim GFilepath As String. Public Sub SaveAttachments()
'Update 20200821. Dim xMailItem As Outlook.MailItem. Dim xAttachments As Outlook.Attachments. Dim xSelection As Outlook.Selection. Dim i As Long. Dim xAttCount As Long. Dim xFilePath As String, xFolderPath As String, xSaveFiles As String. On Error Resume Next. xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection. xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then VBA.MkDir xFolderPath. End If. GFilepath = ""
For Each xMailItem In xSelection Set xAttachments = xMailItem.Attachments xAttCount = xAttachments.Count xSaveFiles = "" If xAttCount > 0 Then For i = xAttCount To 1 Step -1 GCount = 0 xFilePath = xFolderPath & xAttachments.Item(i).FileName GFilepath = xFilePath xFilePath = FileRename(xFilePath) If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then xAttachments.Item(i).SaveAsFile xFilePath If xMailItem.BodyFormat <> olFormatHTML Then xSaveFiles = xSaveFiles & vbCrLf & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" End If End If Next i End If. Next. Set xAttachments = Nothing. Set xMailItem = Nothing. Set xSelection = Nothing. End Sub Function FileRename(FilePath As String) As String. Dim xPath As String. Dim xFso As FileSystemObject. On Error Resume Next. Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath. FileRename = xPath. If xFso.FileExists(xPath) Then GCount = GCount + 1 xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath) FileRename = FileRename(xPath)
End If. xFso = Nothing. End Function Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem. Dim xCid As String. Dim xID As String. Dim xHtml As String. On Error Resume Next. IsEmbeddedAttachment = False. Set xItem = Attach.Parent. If xItem.BodyFormat <> olFormatHTML Then Exit Function. xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then xHtml = xItem.HTMLBody xID = "cid:" & xCid If InStr(xHtml, xID) > 0 Then IsEmbeddedAttachment = True End If. End If. End Function

3. Εκτελέστε το σενάριο VBS

1. Εναλλαγή στο Λειτουργία για προγραμματιστές και μετά επιλέξτε Visual Basic από την κορδέλα του Outlook.
2. Επιλέγω Ενότητα 1 και χτυπήστε το F5 κλειδί για την εκτέλεση του κώδικα.
3. Κάντε κλικ στο Αποθήκευση συνημμένου κουμπί αφού επιλέξετε τα συνημμένα για να επιβεβαιώσετε την ενέργεια.

Τα σενάρια VBA σάς επιτρέπουν να αυτοματοποιήσετε τη διαδικασία λήψης συνημμένων στο Microsoft Outlook. Ωστόσο, θα πρέπει να προχωρήσετε προσεκτικά με τα σενάρια VBA για να αποφύγετε την καταστροφή του υπολογιστή σας.

Αυτά είναι όλα σε αυτόν τον οδηγό! Ελπίζουμε ότι γνωρίζετε τους διαφορετικούς τρόπους με τους οποίους μπορείτε εύκολα να κάνετε λήψη όλων των συνημμένων email από την εφαρμογή Microsoft Outlook.

Αν συναντήσετε το Κάτι πήγε στραβά Σφάλμα στο Outlook app, δοκιμάστε τις λύσεις που προτείνονται σε αυτόν τον οδηγό.

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