Outlook qovluğundakı bütün e-poçtları necə tez sıxışdırmaq olar Zip fayl

Bəzi istifadəçilər Outlook qovluğunda olan bütün e-poçtları sıxışdırmaq istəyirlər zip fayl. Belə bir birbaşa funksiya olmasa da, onu sürətlə həyata keçirmək üçün bu məqalədə açıqlanan VBA kodundan istifadə edə bilərsiniz.

Kənar zip Outlook qovluğundakı bütün e-poçtları əvvəlcə yerli sürücüyə bir-bir ixrac etməli və sonra "Göndər" > "Sıxılmış (ziplənmiş) qovluq" funksiyasından istifadə etməlisiniz. Şübhəsiz ki, bu, çox yorucudur. Buna görə də, bunu birdəfəlik həyata keçirməyinizə kömək etmək üçün aşağıda sizə başqa bir üsul öyrədəcəyik. Bu, sizə VBA kodu ilə necə əldə edəcəyinizi öyrədəcək. VBA ilə tanış deyilsinizsə, "əlavəsinə" müraciət edə bilərsiniz.Outlook-da VBA kodunu necə işlətmək olar”Bu vaxt.

Qovluqdakı Bütün E-poçtları a Zip fayl

1. Başlamaq üçün Outlook VBA redaktorunu "Alt + F11" vasitəsilə işə salın.
2. Sonra VBA kodunu modula köçürün və yapışdırın.

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. Daha sonra bu makronu işə salmaq üçün “F5” düyməsini sıxın.
4. Daha sonra, açılan informasiya qutusunda mənbə Outlook qovluğunu seçin və "OK" düyməsini basın.
5. Makro tamamlandıqda, yenisi olan Windows qovluğu görünəcək zip aşağıdakı şəkildə göstərildiyi kimi seçilmiş Outlook qovluğundan bütün e-poçtları ehtiva edən fayl.

Problemli Outlook Fayl Korrupsiyasını idarə edin

Outlook-dakı bütün ümumi problemlər arasında, şübhəsiz ki, Outlook zədələnməsi ən ciddisidir. Lakin, əslində bu cür problemlər istənilən vaxt baş verə bilər. Buna görə də, əgər siz müntəzəm Outlook istifadəçisisinizsə, Outlook məlumatlarının müntəzəm olaraq ehtiyat nüsxələrini çıxarmalısınız. Üstəlik, etibarlı bir proqram təminatına sahib olmaq ehtiyatlılıq tələb edir. Outlook təmiri kimi kommunal DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com