Ինչպե՞ս արագ սեղմել Outlook թղթապանակի բոլոր էլ.փոստերը ա Zip Ֆայլ

Որոշ օգտվողներ կցանկանան Outlook թղթապանակի բոլոր էլփոստերը սեղմել a zip ֆայլ Չնայած այդպիսի ուղղակի գործառույթ գոյություն չունի, այն արագորեն իրականացնելու համար կարող եք օգտագործել այս հոդվածում բացահայտված VBA կոդը:

Դեպի zip Outlook թղթապանակում գտնվող բոլոր էլ. նամակները, դուք նախ պետք է դրանք մեկ առ մեկ արտահանեք տեղական սկավառակ, ապա օգտագործեք «Ուղարկել» > «Սեղմված (ziped) թղթապանակ» գործառույթը: Անկասկած, սա չափազանց ձանձրալի միջոց է: Հետևաբար, որպեսզի օգնենք ձեզ դա միանգամից հասկանալ, ստորև մենք ձեզ կսովորեցնենք մեկ այլ մեթոդ: Այն ձեզ կսովորեցնի, թե ինչպես ստանալ այն VBA կոդով: Եթե ​​դուք ծանոթ չեք VBA-ին, կարող եք դիմել «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում" ՄԻԵՎՆՈՒՅՆ ժամանակ.

Թղթապանակում սեղմեք բոլոր էլ.փոստերը ա Zip Ֆայլ

1. Սկսելու համար գործարկեք Outlook VBA խմբագրիչը՝ օգտագործելով «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- ի աղբյուրի պանակը և կտտացրեք «Լավ»:
5. Մակրոյի ավարտից հետո կցուցադրվի Windows պանակ, որում կա նորը zip ֆայլ, որը պարունակում է ընտրված Outlook թղթապանակի բոլոր էլփոստերը, ինչպես ցույց է տրված հետևյալ նկարում:

Կարգավորեք անհանգստացնող Outlook ֆայլի կոռումպացվածությունը

Outlook-ի բոլոր տարածված խնդիրների շարքում, անկասկած, Outlook-ի վնասումը ամենալուրջն է։ Սակայն, իրականում, նման խնդիրներ կարող են առաջանալ ցանկացած պահի։ Հետևաբար, եթե դուք Outlook-ի մշտական ​​օգտատեր եք, ապա պետք է պարբերաբար պահուստավորեք Outlook-ի տվյալները։ Բացի այդ, խելամիտ է ձեռք բերել հուսալի... Outlook- ի նորոգում օգտակար, ինչպիսիք են DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql ֆիքս և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com