Kako brzo komprimirati sve poruke e-pošte u Outlook folderu u a Zip fajl

Neki korisnici bi željeli komprimirati sve poruke e-pošte u Outlook folderu u a zip fajl. Iako ne postoji tako direktna funkcija, možete koristiti VBA kod izložen u ovom članku da biste je brzo realizovali.

To zip Da biste dobili sve e-poruke u Outlook mapi, prvo ih morate jednu po jednu eksportovati na lokalni disk, a zatim koristiti funkciju "Pošalji u" > "Komprimovana (zipovana) mapa". Nema sumnje da je na ovaj način previše zamoran. Stoga, kako bismo vam pomogli da to shvatite odjednom, u nastavku ćemo vas naučiti drugoj metodi. Naučit ćemo vas kako da to dobijete pomoću VBA koda. Ako niste upoznati sa VBA, možete se pozvati na "Kako pokrenuti VBA kod u vašem Outlooku" u međuvremenu.

Komprimirajte sve poruke e-pošte u folderu u a Zip fajl

1. Za početak, pokrenite Outlook VBA editor pomoću "Alt + F11".
2. Zatim kopirajte i zalijepite VBA kod u modul.

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. Nakon toga, kliknite na dugme “F5” da pokrenete ovaj makro.
4. Kasnije, u iskačućem dijaloškom okviru, odaberite izvorni Outlook folder i kliknite na “OK”.
5. Kada se makro završi, prikazaće se Windows fascikla u kojoj se nalazi nova zip datoteku koja sadrži sve poruke e-pošte iz odabranog Outlook foldera, kao što je prikazano na sljedećoj slici.

Riješite problematičnu korupciju Outlook datoteke

Među svim uobičajenim problemima u Outlooku, nesumnjivo je da je oštećenje Outlooka najozbiljnije. Međutim, u stvarnosti se takvi problemi mogu dogoditi u bilo kojem trenutku. Stoga, ako ste redovan korisnik Outlooka, potrebno je da redovno pravite sigurnosne kopije Outlook podataka. Osim toga, preporučljivo je nabaviti robusnu Outlook popravak korisnost, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com