Τρόπος μαζικής αποθήκευσης όλων των συνημμένων σε μια εργασία του Outlook σε ένα φάκελο των Windows

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

Κατά καιρούς, ενδέχεται να λάβετε μια εργασία που έχει ανατεθεί από κάποιον άλλο. Και αυτή η εργασία μπορεί να περιέχει πολλά σημαντικά προσκολλήσεις στο σώμα της. Σε μια τέτοια εργασία, ίσως χρειαστεί να εξαγάγετε και να αποθηκεύσετε αυτά τα συνημμένα σε ένα φάκελο των Windows. Ωστόσο, σε αντίθεση με το email, δεν μπορείτε να τα αποθηκεύσετε σε παρτίδες από προεπιλογή. Το Outlook σάς επιτρέπει να αποθηκεύετε ένα προς ένα μόνο. Προφανώς, θα είναι πολύ κουραστικό εάν υπάρχουν πάρα πολλές προσκολλήσεις. Επομένως, εδώ θα παρουσιάσουμε έναν τρόπο που θα σας επιτρέψει να ολοκληρώσετε αυτήν την εργασία μαζικά.

Μαζική αποθήκευση όλων των συνημμένων σε μια εργασία σε φάκελο των Windows

1. Στην αρχή, ξεκινήστε την εφαρμογή Outlook.
2. Στη συνέχεια, ενεργοποιήστε το πρόγραμμα επεξεργασίας του Outlook VBA με αναφορά στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
3. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα σε μια μονάδα που δεν χρησιμοποιείται.

Sub BatchSaveAttachmentsFromTask()
    Dim objTask As Outlook.TaskItem
    Dim objShell, objWindowsFolder As Object
    Dim strWindowsFolder As String
    Dim objAttachment As Outlook.Attachment
    Dim strFolder, strFilePath As String

    'Get the task
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objTask = ActiveInspector.CurrentItem
           Case olExplorer
                Set objTask = ActiveExplorer.Selection.Item(1)
    End Select

    'Select a Windows folder for saving extracted attachments
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder to save Tasks' attachments:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       If objTask.Attachments.Count > 0 Then

          For Each objAttachment In objTask.Attachments
              strFilePath = strWindowsFolder & objAttachment.FileName
              objAttachment.SaveAsFile strFilePath
          Next
       End If

       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
    End If
End Sub

4. Στη συνέχεια, βγείτε από τον επεξεργαστή VBA.
5. Μετά από αυτό, προσθέστε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης ή κορδέλα.
6. Τελικά, μπορείτε να δοκιμάσετε.

• Πρώτα απ 'όλα, επιλέξτε ή ανοίξτε μια εργασία.
• Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής που προστέθηκε πρόσφατα.
• Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε ένα φάκελο Windows σύμφωνα με τις ανάγκες σας.
• Στη συνέχεια, κάντε κλικ στο "OK".
• Θα εμφανιστεί ταυτόχρονα ο φάκελος των Windows, στον οποίο μπορείτε να βρείτε τα συνημμένα.

Αντιμετωπίστε τα ενοχλητικά ζητήματα του Outlook

Όπως όλοι γνωρίζουμε, το αρχείο Outlook PST είναι ευαίσθητο σε διάφορα σφάλματα και καταστροφή. Για παράδειγμα, εάν κλείνετε συχνά το Outlook εσφαλμένα ή κάνετε λήψη κακόβουλων αρχείων, το αρχείο PST του Outlook ενδέχεται να μην είναι προσβάσιμο κάποια μέρα. Εκείνη τη στιγμή, ακόμη και το εργαλείο επιδιόρθωσης εισερχομένων δεν μπορεί να σας βοηθήσει. Αυτό που μπορείτε να καταφύγετε είναι πιο έμπειρο και αξιόπιστο Διόρθωση PST λογισμικό, όπως DataNumen Outlook Repair. Μπορεί να εξαγάγει τα μέγιστα δεδομένα του Outlook από ένα αρχείο PST σε γρήγορο χρόνο.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων σταθερός SQL Server και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com