Outlook фолдер доторх бүх имэйлийг хэрхэн хурдан шахах вэ Zip Файлын

Зарим хэрэглэгчид Outlook фолдерт байгаа бүх имэйлийг zip файл. Ийм шууд функц байхгүй ч гэсэн та энэ нийтлэлд гарсан VBA кодыг ашиглан үүнийг хурдан хэрэгжүүлж болно.

To zip Outlook хавтас дахь бүх имэйлийг эхлээд орон нутгийн диск рүү нэг нэгээр нь экспортлоод дараа нь "Илгээх" > "Шахсан (зиплэгдсэн) хавтас" функцийг ашиглах хэрэгтэй. Энэ нь хэтэрхий төвөгтэй байх нь дамжиггүй. Тиймээс үүнийг нэг дор ойлгоход туслахын тулд доор бид танд өөр аргыг заах болно. Энэ нь танд VBA кодоор хэрхэн авахыг заах болно. Хэрэв та VBA-г мэдэхгүй бол "Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ" энэ үеэр.

Фолдерт байгаа бүх имэйлийг а-д шахах 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 фолдерыг сонгоод “OK” дээр дарна уу.
5. Макро дуусахад Windows хавтас гарч ирэх бөгөөд үүнд шинэ хавтас байна zip Сонгосон Outlook фолдерын бүх имэйлийг агуулсан файлыг дараах зурагт үзүүлэв.

Асуудалтай Outlook файлын авлигатай харьцах

Outlook-д түгээмэл тохиолддог бүх асуудлын дотроос Outlook-ийн гэмтэл нь хамгийн ноцтой нь эргэлзээгүй юм. Гэсэн хэдий ч бодит байдал дээр ийм асуудал хэзээ ч тохиолдож болно. Тиймээс, хэрэв та Outlook-ийн байнгын хэрэглэгч бол Outlook өгөгдлийнхөө нөөц хуулбарыг тогтмол хийх шаардлагатай. Дээрээс нь, найдвартай нөөц хуулбарыг авах нь ухаалаг хэрэг юм. Outlook засвар гэх мэт хэрэгсэл DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com