如何將Outlook文件夾中的所有電子郵件快速壓縮到 Zip 文件

Outlook解決方案 2025 年 9 月 29 日

一些用戶希望將Outlook文件夾中的所有電子郵件壓縮為 zip 文件。儘管沒有這樣的直接功能，但是您可以利用本文中公開的VBA代碼來快速實現它。

至 zip 若要將 Outlook 資料夾中的所有電子郵件逐一匯出到本機磁碟器，然後使用「傳送至」>「壓縮（zipped）資料夾」功能。毫無疑問，這種方法非常繁瑣。因此，為了幫助您一次完成此操作，接下來我們將教您另一種方法。我們將教您如何使用 VBA 程式碼來實現。如果您不熟悉 VBA，可以參考“如何在Outlook中運行VBA代碼“ 同時。

將文件夾中的所有電子郵件壓縮為 Zip 文件

首先，透過「Alt + F11」啟動 Outlook VBA 編輯器。
然後，將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

然後，單擊“ F5”鍵按鈕運行此宏。
稍後，在彈出對話框中，選擇源Outlook文件夾，然後單擊“確定”。
宏完成後，將顯示一個Windows文件夾，其中有一個新文件夾。 zip 文件，其中包含來自所選Outlook文件夾的所有電子郵件，如下圖所示。

處理麻煩的Outlook文件損壞

在 Outlook 的所有常見問題中，Outlook 資料損壞無疑是最嚴重的。然而，實際上，這類問題隨時都可能發生。因此，如果您是 Outlook 的常用用戶，則需要定期備份 Outlook 資料。此外，配備一個可靠的備份工具也是明智之舉。 Outlook修復實用程序，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL修復和Outlook修復軟件產品。欲了解更多信息，請訪問萬維網。datanumen.COM