Kaip greitai suspausti visus el. laiškus Outlook aplanke į a Zip filė

Kai kurie vartotojai norėtų suspausti visus Outlook aplanke esančius el. laiškus į a zip failą. Nors tokios tiesioginės funkcijos nėra, galite naudoti šiame straipsnyje pateiktą VBA kodą, kad jį greitai įgyvendintumėte.

Iki zip Visus el. laiškus „Outlook“ aplanke pirmiausia turite juos po vieną eksportuoti į vietinį diską, o tada naudoti funkciją „Siųsti į“ > „Suspaustas aplankas“. Be jokios abejonės, tokiu būdu tai pernelyg varginantis procesas. Todėl, kad padėtume jums tai suprasti iš karto, toliau pateiksime kitą metodą. Jis išmokys jus, kaip jį gauti naudojant VBA kodą. Jei nesate susipažinę su VBA, galite peržiūrėti „Kaip paleisti VBA kodą „Outlook“." šiuo metu.

Suspausti visus el. laiškus aplanke į a Zip filė

1. Norėdami pradėti, paleiskite „Outlook VBA“ redaktorių paspausdami „Alt + F11“.
2. Tada nukopijuokite ir įklijuokite VBA kodą į 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. Po to spustelėkite mygtuką „F5“, kad paleistumėte šią makrokomandą.
4. Vėliau iššokančiajame dialogo lange pasirinkite šaltinio „Outlook“ aplanką ir spustelėkite „Gerai“.
5. Baigus makrokomandą, bus rodomas „Windows“ aplankas, kuriame yra naujas zip failą, kuriame yra visi el. laiškai iš pasirinkto „Outlook“ aplanko, kaip parodyta toliau pateiktame paveikslėlyje.

Tvarkykite sudėtingą „Outlook“ failų korupciją

Iš visų dažniausiai pasitaikančių „Outlook“ problemų, be jokios abejonės, „Outlook“ pažeidimai yra rimčiausia. Tačiau iš tikrųjų tokios problemos gali kilti bet kuriuo metu. Todėl, jei esate įprastas „Outlook“ vartotojas, turite reguliariai kurti „Outlook“ duomenų atsargines kopijas. Be to, protinga turėti patikimą „Outlook“ taisymas naudingumas, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com