Kā ātri saspiest visus Outlook mapes e - pastus a Zip fileja

Daži lietotāji vēlas visus Outlook mapē esošos e-pastus saspiest zip failu. Lai gan nav tādas tiešas funkcijas, varat ātri izmantot šajā rakstā redzamo VBA kodu.

Uz zip Lai eksportētu visus e-pastus Outlook mapē, vispirms tie ir jāeksportē uz lokālo disku pa vienam un pēc tam jāizmanto funkcija “Sūtīt uz” > “Saspiesta (zip) mape”. Bez šaubām, šādā veidā tas ir pārāk nogurdinoši. Tāpēc, lai palīdzētu jums to saprast uzreiz, turpmāk mēs jums iemācīsim citu metodi. Tā iemācīs, kā to iegūt ar VBA kodu. Ja neesat pazīstams ar VBA, varat skatīt “Kā palaist VBA kodu programmā Outlook" Tikmēr.

Saspiest visus mapē esošos e-pastus a Zip fileja

1. Lai sāktu, palaidiet Outlook VBA redaktoru, izmantojot taustiņu kombināciju “Alt + F11”.
2. Pēc tam nokopējiet un ielīmējiet VBA kodu 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. Pēc tam noklikšķiniet uz taustiņa F5, lai palaistu šo makro.
4. Vēlāk uznirstošajā dialoglodziņā atlasiet avota Outlook mapi un noklikšķiniet uz “OK”.
5. Kad makro būs pabeigts, tiks parādīta Windows mape, kurā ir jauna zip fails, kurā ir visi e-pasta ziņojumi no atlasītās Outlook mapes, kā parādīts nākamajā attēlā.

Rīkojieties ar traucējošo Outlook failu korupciju

Starp visām izplatītākajām problēmām programmā Outlook, neapšaubāmi, Outlook bojājumi ir visnopietnākie. Tomēr patiesībā šādas problēmas var rasties jebkurā laikā. Tāpēc, ja esat regulārs Outlook lietotājs, jums regulāri jāveic Outlook datu dublējumkopijas. Turklāt ir ieteicams iegūt stabilu... Outlook remonts lietderība, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar