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

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

Προς την zip όλα τα email σε έναν φάκελο του Outlook, πρέπει πρώτα να τα εξαγάγετε στην τοπική μονάδα δίσκου ένα προς ένα και, στη συνέχεια, να χρησιμοποιήσετε τη λειτουργία "Αποστολή σε" > "Συμπιεσμένος (ziped) φάκελος". Αναμφίβολα, με αυτόν τον τρόπο, είναι πολύ κουραστικό. Επομένως, για να σας βοηθήσουμε να το καταλάβετε μονομιάς, παρακάτω θα σας διδάξουμε μια άλλη μέθοδο. Θα σας διδάξει πώς να το αποκτήσετε με κώδικα VBA. Εάν δεν είστε εξοικειωμένοι με το VBA, μπορείτε να ανατρέξετε στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook" εν τω μεταξύ.

Συμπιέστε όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου σε έναν φάκελο σε ένα Zip Αρχεία

1. Για αρχή, ξεκινήστε τον επεξεργαστή VBA του Outlook μέσω του "Alt + F11".
2. Στη συνέχεια, αντιγράψτε και επικολλήστε τον κώδικα VBA σε μια λειτουργική μονάδα.

Sub ZipAllEmailsInAFolder()
    Dim objFolder As Outlook.Folder
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
    Dim varTempFolder As Variant
    Dim varZipFile As Variant
    Dim objShell As Object
    Dim objFileSystem As Object
   
    'Select an Outlook Folder
    Set objFolder = Outlook.Application.Session.PickFolder
 
    If Not (objFolder Is Nothing) Then
       'Create a temp folder
       varTempFolder = "E:\" & objFolder.Name & Format(Now, "YYMMDDHHMMSS")
       MkDir (varTempFolder)
       varTempFolder = varTempFolder & "\"
   
       'Save each email as msg file
       For Each objItem In objFolder.Items
 
           If TypeOf objItem Is MailItem Then
              Set objMail = objItem
              strSubject = objMail.Subject
              strSubject = Replace(strSubject, "/", " ")
              strSubject = Replace(strSubject, "\", " ")
              strSubject = Replace(strSubject, ":", "")
              strSubject = Replace(strSubject, "?", " ")
              strSubject = Replace(strSubject, Chr(34), " ")
 
              objMail.SaveAs varTempFolder & strSubject & ".msg", olMSG
           End If
       Next
 
       'Create a new ZIP file
       varZipFile = "E:\" & objFolder.Name & " Emails.zip"
       Open varZipFile For Output As #1
       Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
       Close #1
 
       'Add the exported msg files to the ZIP file
       Set objShell = CreateObject("Shell.Application")
       objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items

       On Error Resume Next
       Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
          Application.Wait (Now + TimeValue("0:00:01"))
       Loop
       On Error GoTo 0
 
       'Delete the temp folder
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1)
    End If
End Sub

3. Στη συνέχεια, κάντε κλικ στο κουμπί "F5" για να εκτελέσετε αυτήν τη μακροεντολή.
4. Αργότερα, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε τον φάκελο προέλευσης του Outlook και κάντε κλικ στο "OK".
5. Όταν ολοκληρωθεί η μακροεντολή, θα εμφανιστεί ένας φάκελος των Windows, στον οποίο υπάρχει ένας νέος zip αρχείο που περιέχει όλα τα email από τον επιλεγμένο φάκελο του Outlook, όπως φαίνεται στην παρακάτω εικόνα.

Αντιμετωπίστε την προβληματική καταστροφή του αρχείου του Outlook

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

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

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